Рассчитать возраст по дате рождения - 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