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

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


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

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

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