Автор Ваган Арутюнян задал вопрос в разделе Другие языки и технологии
Visual Basic проект "Даты и времени" программа 2010 года. и получил лучший ответ
Ответ от || бизда || бизгалстув||[гуру]
'Что значит "для таймера"?
'Событие таймера Timer (повторение через определённый интервал Timer1.Interval=число милисикунд)
'сдесь будет код который небходимо повторять (как в примере для получения времени)
'Кстати определения интервала между датами правельно вынисти в другой
'обработчик события например в Private Sub Form_Load()
Private Sub Timer1_Timer()
'при обьявлении указывается тип после каждой переменной
Dim Dat1 As Date, Dat2 As Date
Label1.Caption = Time
Dat1 = "2/16/1955"
Dat2 = Now
' у контролла Label нет свойства Text
'и с DateDiff не понятно
Label2.Caption = DateDiff("Yyyy", Dat1, Dat2)
End Sub
'DateDiff Функция возвращает число заданных интервалов времени между двумя указанными датами.
'Синтаксис
'DateDif(Interval, Date1, Date2[, FirstDayOfWeek[, FirstDayOfYear])
'Параметры
'Interval - значение типа String, обозначает период, применяемый для вычисления разницы между датами.
'Date1, Date2 - значения типа VarType (Date), представляют собой даты, разницу между которыми необходимо вычислить.
'FirstDayOfWeek - (необязательный) указывает первый день недели, по умолчанию - vbSunday (1 - воскресенье) .
'FirstWeekOfYear - (необязательный) указывает первую неделю года, по умолчанию - vbFirstJan1 (1 - неделя на которую приходится 1 января) .
'Параметр Interval может принимать одно из следующих значений:
'Yyyy - год;
'Q - квартал;
'M - месяц;
'Y - день в году;
'D - число месяца;
'W - день недели;
'Ww - неделя;
'H - час;
'N - минута;
'S - секунда;