Известны год и номер месяца рождения человека, определить возраст человека - VB
Формулировка задачи:
Известны год и номер месяца рождения человека, а также год и номер месяца сегодняшнего дня (январь – 1 и т.д.). Определить возраст человека (число полных лет). В случае совпадения указанных месяцев считать, что прошел весь год.
Решение задачи: «Известны год и номер месяца рождения человека, определить возраст человека»
textual
Листинг программы
Dim countYear As Long Dim month As Integer ' Месяц рождения. Dim year As Integer ' Год рождения. month = 2 year = 1971 countYear = Date - CDate(Left(Date, 2) & "-" & month & "-" & year) MsgBox Fix(countYear / 365) ' Либо так. ' MsgBox Right(CDate(countYear), 2)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д