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

Тема в разделе "Lotus - Программирование", создана пользователем ironfist, 4 окт 2012.

  1. ironfist

    ironfist Гость

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

    ironfist Гость

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

    savl Lotus team
    Lotus team

    Регистрация:
    28 окт 2011
    Сообщения:
    2.052
    Симпатии:
    146
    2 способа:
    первый, самый точный, вплоть до секунды, но в секундах:
    Код (LotusScript):
    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
    Второй в годах:
    Код (LotusScript):
        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
     
  4. savl

    savl Lotus team
    Lotus team

    Регистрация:
    28 окт 2011
    Сообщения:
    2.052
    Симпатии:
    146
    ironfist
    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))
     
  5. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Вычитаешь из одной даты другую и получаешь точный возраст в секундах.
     
  6. ironfist

    ironfist Гость

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

Поделиться этой страницей