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