• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

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

ironfist

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

savl

Lotus Team
28.10.2011
2 597
310
BIT
159
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 597
310
BIT
159
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

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
Вычитаешь из одной даты другую и получаешь точный возраст в секундах.
 
I

ironfist

спасибо всем за помощь, ща буду пробовать все это))
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!