kor4evnik
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Вот для себя написал такой код, чтобы определять правильное время. Использую при проверке времени изменения файлов. Может кому подойдет. '--------------------------------- ' возвращает дату/время с учётом перехода на летнее время '--------------------------------- Function DateTimeUTC(DateTime1) Dim oShell,atb,timez1,timez2,offsetMin set oShell = CreateObject("WScript.Shell") atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\" &_ "Control\TimeZoneInformation\ActiveTimeBias" timez1 = oShell.RegRead(atb) atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\" &_ "Control\TimeZoneInformation\Bias" timez2 = oShell.RegRead(atb) If timez1 = timez2 Then atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\" &_ "Control\TimeZoneInformation\StandardBias" offsetMin = oShell.RegRead(atb) DateTimeUTC = dateadd("n", offsetMin, DateTime1) Else atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\" &_ "Control\TimeZoneInformation\DaylightBias" offsetMin = oShell.RegRead(atb) DateTimeUTC = dateadd("n", offsetMin, DateTime1) End If End Function |