Функция SetSystemTime

Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long

lpSystemTime

Новые время и дата для установки системного времени. Параметр wDayOfWeek структуры игнорируется

Пример

' Установим системное время с параметрами:
' Октябрь 3, 1999 16:46:00 по Гринвичу
Dim systime As SYSTEMTIME ' новое время и дата
Dim retval As Long ' возвращаемое значение

' Передадим информацию о дате в структуру
systime.wYear = 1999
systime.wMonth = 10
systime.wDay = 3
systime.wHour = 16
systime.wMinute = 46
systime.wSecond = 0
systime.wMillisecond = 0

' Установим системное время с желаемыми параметрами
retval = SetSystemTime(systime)

Смотри также

Категория