Declare Function SetLocalTime Lib "kernel32" (lpSystem As SYSTEMTIME) As Long
SetLocalTime устанавливает текущие время и дату.
Dim localtime As SYSTEMTIME SetLocalTime localtime
GetLocalTime, GetSystemTime
Время