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

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

ironfist

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

savl

Well-Known Member
Lotus team
28.10.2011
2 116
157
32
#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

Well-Known Member
Lotus team
28.10.2011
2 116
157
32
#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))
 
I

ironfist

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