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