Ошибка даты

[Паразит]

Привет.
Подскажите, а почему у меня неправильно отображается дата модификации файла?
У меня показывает на один час меньше, чем значение в свойствах файла.

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("C:\111.txt")
MsgBox File.DateLastModified
Set FSO = Nothing

 

[Dragokas]

Видимо FSO отображает по UTC+0, т.е. без учета локального смещения часового пояса, заданного в настройках Windows.

 

[Паразит]

@Dragokas, а где можно переключать смещения?
Часы у меня правильно показывают.
UTC+03:00

 

[Dragokas]

Проверил, у меня показывает с учётом UTC.
Не могу ответить на ваш вопрос.

 

[Кирилл]

У меня нормально отображается.

 

[Сергій]

У меня нормально отображается.

Если у Вас будет переход на зимнее-летнее время, то через полгода ошибка появится.

 

[Сергій]

Я сталкивался с єтим в своей програмке резервного копирования. Переход на зимнее-летнее время дает отклонение на 0 или 1 (или 2) часа. Копирование на флешку с FAT32 дает отклонение до 4 секунд. Решил проблему заменой проверки равенства дат на проверку устраивает ли модуль разности дат одной из єтих четьіресекундок (ну и розмера файлов)

 

[Кирилл]

Я сталкивался с єтим в своей програмке резервного копирования. Переход на зимнее-летнее время дает отклонение на 0 или 1 (или 2) часа. Копирование на флешку с FAT32 дает отклонение до 4 секунд. Решил проблему заменой проверки равенства дат на проверку устраивает ли модуль разности дат одной из єтих четьіресекундок (ну и розмера файлов)

Подтверждаю, с датой файла постоянно какая то трабла была - но до такого варианта не додумался)