Как определить точный возраст?

  • Автор темы ironfist
  • Дата начала
I

ironfist

#1
Добрый день! помогите найти точный возраст если есть дата рождения и текущая дата.
 

savl

Lotus team
28.10.2011
2 131
102
#3
2 способа:
первый, самый точный, вплоть до секунды, но в секундах:
Код:
Dim dBorn As NotesDateTime
Dim dToday As New NotesDateTime(Today)
Dim res As Long
Set dBorn= New NotesDateTime("03.10.1985")
res = dToday.TimeDifference(dBorn)
Msgbox "" & res
Второй в годах:
Код:
	Dim dBorn As NotesDateTime
Dim dToday As New NotesDateTime(Today)
Dim res As Long
Set dBorn= New NotesDateTime("03.10.1985")

If (Month(dToday.DateOnly)>=Month(dBorn.DateOnly) And Day(dToday.DateOnly)>=Day(dBorn.DateOnly)) Or(Month(dToday.DateOnly) > Month(dBorn.DateOnly)) Then
res = (Year(dToday.DateOnly) -Year(dBorn.DateOnly))
Else
res = (Year(dToday.DateOnly) -Year(dBorn.DateOnly) -1)		
End If
Msgbox "" & res
 

savl

Lotus team
28.10.2011
2 131
102
#4
ironfist
с помощью формул lotus
dt:=@Date(1985;10;3);
cM:=@Month(@Today);
cD:=@Day(@Today);
res:= @ToNumber(@Year(@Today) - @Year(dt));
res:=@If( (cM >=@Month(dt) & cD >= @Day(dt)) | Cm > @Month(dt);res;res-1);
@Prompt([Ok];@Text("123");@Text(res))
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
1
#5
Вычитаешь из одной даты другую и получаешь точный возраст в секундах.
 
I

ironfist

#6
спасибо всем за помощь, ща буду пробовать все это))