8 Сентябрь 2008

Сколько Вам лет?

Разное |  Таги: , ,

А давайте посчитаем, сколько Вам лет.

В текстовое поле вводим: год месяц и день рождения и нажимаем кнопку.

В результате в текстовом поле видим количество полных лет ;-)

Option Explicit

Function GetAge(dtDOB As Date, Optional dtDateTo As Date = 0) As String
If dtDateTo = 0 Then
    dtDateTo = Date
End If
GetAge = Format$(dtDateTo - dtDOB, "yy")
End Function

Private Sub Command1_Click()
Text1 = GetAge(Text1)
End Sub

Private Sub Form_Load()
Text1 = ""
End Sub


Оставить комментарий

Я не робот.