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

[ironfist]

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

 

[ironfist]

с помощью формул lotus

 

[savl]

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]

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]

Вычитаешь из одной даты другую и получаешь точный возраст в секундах.

 

[ironfist]

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