Функция времени с таймером - VB
Формулировка задачи:
Есть программа простенькая, которая показывает системное время:
Но что делать если системное время не правильное? Как добавить к нему необходимое количество часов, минут, секунд?
Решение задачи: «Функция времени с таймером»
textual
Листинг программы
Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Label1 = Time Label2 = FormatDateTime(TimeSerial(Hour(Time) + 6, Minute(Time) - 15, Second(Time)), vbLongTime) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д