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