Какой-то хирый косяк с региональными настройками

[Pantalone]

Есть такой параметр как Short Date Format Ordering, его можно получить через апишную функцию GetLocaleInfoA.
В гугле я выяснил что значения для этого параметра могут возвращаться следующие: 0, 1, 2.
Они зависят от региональных настроек даты, а именно от Short date format следующим образом:
0 если этот формат указан в такой последовательности: Month - Day - Year
1 Day - Month - Year
2 Year - Month - Day

На машине заграничного клиента по какой-то неведомой причине этот параметр выдается как 0 и при этом Short date format у него dd/MM/yyyy, т.е. по правилу подходит Day - Month - Year и по запросу Short Date Format Ordering должно выдаваться 1.

В результате такого косяка у него моя прога не может нормально форматировать даты, например дата 02/07/2009 у него форматируется в 07/02/2009.

Кто-нибудь подскажите от чего еще зависит параметр Short Date Format Ordering?

Я поставил на стендовом компе регионаьные настройки идентичные скриншотам какие он прислал и у меня Short Date Format Ordering равен 1 что и должно быть у него, а у него 0.

[JohnK]

Вуаля:

Код: Выделить всё

Private Const LOCALE_SSHORTDATE As Long = &H1F

Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long

Private Function GetShortDateFormat() As String
Dim strFormat As String
Dim lcid As Long
Dim BufLen As Long
Dim retBuf As String

GetShortDateFormat = ""

  lcid = GetSystemDefaultLCID()
  BufLen = GetLocaleInfo(lcid, LOCALE_SSHORTDATE, 0&, 0&)
  If (BufLen) Then
   retBuf = Space$(BufLen - 1)
   Call GetLocaleInfo(lcid, LOCALE_SSHORTDATE, retBuf, BufLen)
  End If
If Len(retBuf) > 0 Then GetShortDateFormat = retBuf
End Function


[alibek]

Почему бы просто не получать строку формата и не форматировать по ней?