Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
GetSystemTime возвращает текущие системные дату и время и передает эти значения структуре SYSTEMTIME. Время всегда показывается по Гринвичу, а не местное время
' Показываем текущее время от нулевого меридиана
Dim utctime As SYSTEMTIME
GetSystemTime utctime
Debug.Print "Время по Гринвичу"; utctime.wHour; ":"; utctime.wMinute; ":"; utctime.wSecond
GetLocalTime, GetSystemTimeAsFileTime, SetSystemTime