Проверьте формат даты Windows, используя доступ VBA

Question

Есть ли фрагмент кода VBA для проверки формата рабочего стола Windows в Access?У меня есть требование, если формат даты Windows не английский (США), то доступ должен завершиться.Если формат даты английский (Великобритания), он должен открыться.

Пожалуйста, поддержите.

Answer 1

Есть много способов получить текущий формат даты.

Лично я смотрю его в реестре, используя WScript.Shell:

Dim strDateFormat As String
strDateFormat = CreateObject("WScript.Shell").RegRead("HKCU\Control Panel\International\sShortDate")

Возвращает формат даты, который Accessиспользует, например, dd/MM/yyyy для Великобритании.

Вы также можете проверить форматы даты, протестировав конкретные даты:

If Format(#01/02/1911#, "Short Date") <> "02/01/1911" Then 'Wrong format  
'VBA always uses mm/dd/yyyy internally, you can also use DateSerial(2011,01,02)

Существует также второй формат даты, Длинная дата *Формат 1013 *, но он не используется Access для внутреннего использования, поэтому я предполагаю, что он вам не нужен.