Региональный формат даты в Excel VBA - PullRequest
0 голосов
/ 10 февраля 2020

У меня странные проблемы с форматированием даты - я последовательно форматирую даты, как указано ниже - пытаюсь получить и отобразить сведения о файле, ниже работает нормально с настройками ldn / other.

Однако один из пользователей получил французскую настройку даты и времени, и приведенный ниже код не соответствует формату datetime и размеру файла.

Не уверен, что является лучшим способом обработки всех регионов? Какие-либо предложения, пожалуйста?

недопустимый формат FR - 02 декабря 2019 15:23:10, fileSize = 110,00 вместо 110,00

fileSize = FileLen(tool) / 1024
creationDate = Format(Local2GMT(.getFile(tool).DateCreated), "DD-MMM-YYYY HH:MM:SS")
modifiedDate = Format(Local2GMT(.getFile(tool).DateLastModified), "DD-MMM-YYYY HH:MM:SS")
accessfileDate = Format(Local2GMT(.getFile(tool).DateLastAccessed), "DD-MMM-YYYY HH:MM:SS")

Function Local2GMT(dtLocalDate As Date) As Date
    Local2GMT = DateAdd("s", -GetLocalToGMTDifference(), dtLocalDate)
End Function
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...