Рассчитать возраст по дате рождения - VB

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

Помогите создать программный код,чтобы он запрашивал дату рождения пользователя и рассчитывал его возраст(месяц,день,год) Если можно с применением линейного алгоритма

Решение задачи: «Рассчитать возраст по дате рождения»

textual
                            Листинг программы 
                        
Sub YourAge()
Dim cDat As Date
Dim aDat As Date
 
    cDat = Date
    
    aDat = CDate(InputBox("Введите дату рождения в виде дд.мм.гггг"))
    
    y% = Year(cDat) - Year(aDat) + (Format(aDat, "MMDD") > Format(cDat, "MMDD"))
    
    MsgBox "Вам " & y% & " полных лет"
 
End Sub

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

5 голосов , оценка 4.6 из 5

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

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

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