Вычисление возраста

Примечание: Функция Now возвращает текущее значение даты и времени.

Форма:

Код (проанализировать, при необходимости набрать проверить работу)

Dim DR As Date ‘ объявляется в разделе General

Private Sub Command1_Click()

' Проверяем введенную (в виде строки) дату рождения

If IsDate(Text1.Text) Then

' Если дата введена правильно, преобразуем ее в значение

' типа Data и присваиваем результат глобальной переменной

DR = CDate(Text1.Text)

Else

' Если дата введена неправильно, сообщаем об ошибке

MsgBox " Вы неправильно ввели дату", vbCritical, " Ошибка ввода даты"

' Возвращаем курсор в текстовое поле

Text1.SetFocus

' Помещаем курсор в начало текста

Text1.SelStart = 0

' Подсвечиваем ошибочный текст

Text1.SelLength = Len(Text1.Text)

' Выходим из подпрограммы

Exit Sub

End If

' Включаем таймер

Timer1.Enabled = True

Timer1.Interval = 100

End Sub

Private Sub Timer1_Timer()

Dim AgeSecs As Long

Dim AgeDays As Long

Dim AgeYears As Long

' Вычисляем возраст (разность дат) в секундах

AgeSecs = DateDiff(" s", DR, Now)

'Вычисляем возраст (разность дат) в днях

AgeDays = DateDiff(" d", DR, Now)

' Вычисляем возраст (разность дат) в годах

AgeYears = DateDiff(" yyyy", DR, Now)

' Отображаем полученные значения

Text2.Text = CStr(AgeYears)

Text3.Text = CStr(AgeDays)

Text4.Text = CStr(AgeSecs)

End Sub

САМОСТОЯТЕЛЬНО

1. Написать программу «Программирование таймера», которая бы демонстрировала временные промежутки таймера, задаваемые пользователем:

Форма

Код (сначала самостоятельно)

Dim a As Integer

Private Sub cmdTimerOn_Click()

If Option1.Value Then Timer1.Interval = 1000

If Option2.Value Then Timer1.Interval = 500

If Option3.Value Then Timer1.Interval = 100

Timer1.Enabled = True

End Sub

Private Sub cmdTimerOff_Click()

Timer1.Enabled = False

End Sub

Private Sub cmdUnset_Click()

Timer1.Enabled = False

Label1.Caption = " "

a = 0: Timer1.Interval = 0

End Sub

Private Sub Timer1_Timer()

a = a + 1

Label1.Caption = a

End Sub

2. Приложение выводит в метку слово ПРИВЕТ по букве в полсекунды.

ПОДПРОГРАММЫ И ФУНКЦИИ