Как узнать возраст человека имея текущую дату - VB

Узнай цену своей работы

Формулировка задачи:

Добрый день! Возникла проблема. В Интернете читал, находил примеры как узнать возраст человека имея текущую дату. К примеру: Сегодняшняя дата - 06.12.2013; Дата рождения человека: 24.07.1983. Помогите пожалуйста узнать возраст человека учитывая склонения. То есть: 25 лет или 41 год. Лет - Год.

Решение задачи: «Как узнать возраст человека имея текущую дату»

textual
Листинг программы
Option Explicit
 
Private Sub Form_Load()
    Debug.Print CalcDate(#11/10/1990#)
End Sub
Private Function CalcDate(Birth As Date) As String
    Dim Res As Long, q As Long
    Res = DateDiff("yyyy", Birth, Date, vbMonday)
    q = Res Mod 100: If q > 20 Then q = q Mod 10
    CalcDate = CStr(Res) & " " & Switch(q = 0 Or q > 4, "ëåò", q > 0, "ãîä" & IIf(q - 1, "Г*", vbNullString))
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы