Как узнать возраст человека имея текущую дату - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы