Написать функцию, которая будет возвращать возраст человека на любую произвольную дату - VB

Формулировка задачи:

Мне здесь уже предлагали решение, но, как потом я поняла, оно неверное. Вообщем, на форме нужно создать, например, 2 Textbox, в которых нужно вводить две даты. Одна дата - дата день рождения, другая - целевая дата. Например, вы родились такого-то дня, месяца, года, а целевая дата на один день раньше вашего день рождения, то должны считаться именно полные года. Также должны учитываться високосные года. И можно это как-то сделать, используя функцию DateDiff?

Решение задачи: «Написать функцию, которая будет возвращать возраст человека на любую произвольную дату»

textual
                            Листинг программы 
                        

                            Private Sub Text1_Change()
Age
End Sub
 
Private Sub Text2_Change()
Age
End Sub
 
Sub Age()
Dim d1 As Date, d2 As Date
On Error Resume Next
d1 = Text1
d2 = Text2
If Err = 0 Then
    Text3 = Year(d2) - Year(d1) + (Format(d2, "MMDD") < Format(d1, "MMDD"))
Else
    Text3 = ""
End If
End Sub
                        

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

11 голосов , оценка 4.364 из 5

Похожие ответы