Использование одной кнопки для включения /выключения
Задайте форму с командной кнопкой, меткой и таймером. На кнопке напишите ВКЛЮЧИТЬ/ВЫКЛЮЧИТЬ. В свойстве таймера Enabled поставьте false. Под кнопку и таймер напишите код:
Private Sub Command l_Click()
Timer1.Interval = 100
Timerl.Enabled = Not (Timerl.Enabled)
End Sub
Private Sub Timerl_Timer()
Static a
а = a + 1
Label 1 = a
End Sub
Запустите программу.
Функция Format()
Функция Format используется для управления отображением строки. Преимущественно используется для форматирования значений даты / времени и числовых значений, но ее можно использовать и с любыми строковыми значениями, чтобы придать им необходимый вид.
Отображение даты / времени:
Пример Результат
Format(36000,”Long Date”) 24 июля 2001 г.
Format(36000,”Medium Date”) 24-июл-01
Format(36000,”Short Date”) 24.07.01
Format(0.874,”Long Time”) 20:58:34
Format(0.874,”Medium Date”) 08:58
Format(0.874,”Short Date”) 20:58
Отображение числовых значений:
Format(36000,”General Number”) 36000
Format(36000,”Currency”) 36 000,00р
Format(36000,”Fixed”) 36000,00
Format(36000,”Standard”) 36 000,00
Format(36000,”Percent”) 3600000,00%
Format(36000,”Scientific”) 3,60E+04
Вычисление разницы между датами
Для вычисления разницы между датами используется функция DateDiff().
Примеры возвращаемых значений функции
Интервал Пример Возвращаемое значение
Год DateDiff(“yyyy”,”4.7.76”,”4.7.86”) 10
Квартал DateDiff(“q”,”4.7.76”,”4.7.86”) 40
Месяц DateDiff(“m”,”4.7.76”,”4.7.86”) 120
День DateDiff(“d”,”4.7.76”,”4.7.86”) 3652
Неделя DateDiff(“w”,”4.7.76”,”4.7.86”) 521
Час DateDiff(“h”,”4.7.76”,”4.7.86”) 87648
Минута DateDiff(“n”,”4.7.76”,”4.7.86”) 5258880
Секунда DateDiff(“s”,”4.7.76”,”4.7.86”) 315532800
Пример:
Вычисление возраста
Примечание: Функция 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