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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

9   голосов , оценка 3.889 из 5
Похожие ответы