Как узнать возраст человека имея текущую дату - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д