Option Explicit

 

'Written by SCINER: lenar2003@mail.ru

 

Private Const LOCALE_SENGLANGUAGE = &H1001  'English name of language

Private Const LOCALE_SNATIVECTRYNAME = &H8  '  native name of country

Private Const LOCALE_SNATIVELANGNAME = &H4  '  native name of language

Private Const LOCALE_SSHORTDATE = &H1F      '  short date format string

Private Const LOCALE_STIMEFORMAT = &H1003   '  time format string

Private Const LOCALE_ICOUNTRY = &H5         '  country code

Private Const LOCALE_IDEFAULTLANGUAGE = &H9 '  default language id

Private Const LOCALE_ILANGUAGE = &H1        '  language id

Private Const LOCALE_SABBREVCTRYNAME = &H7  '  abbreviated country name

Private Const LOCALE_SCOUNTRY = &H6         '  localized name of country

 

Private Declare Function GetSystemDefaultLangID Lib "kernel32" () As Integer

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 Sub Form_Load()

 

  Dim lLocal As Long

 

  lLocal = GetSystemDefaultLangID

 

  Debug.Print lLocal

  Debug.Print LocalInfo(lLocal, LOCALE_SENGLANGUAGE)

  Debug.Print LocalInfo(lLocal, LOCALE_SNATIVELANGNAME)

  Debug.Print LocalInfo(lLocal, LOCALE_SNATIVECTRYNAME)

  Debug.Print LocalInfo(lLocal, LOCALE_SCOUNTRY)

  Debug.Print LocalInfo(lLocal, LOCALE_SSHORTDATE)

  Debug.Print LocalInfo(lLocal, LOCALE_STIMEFORMAT)

 

  Debug.Print LocalInfo(lLocal, LOCALE_IDEFAULTLANGUAGE)

  Debug.Print LocalInfo(lLocal, LOCALE_ILANGUAGE)

  Debug.Print LocalInfo(lLocal, LOCALE_SABBREVCTRYNAME)

 

End Sub

 

Function LocalInfo(ByVal lLocal As Long, ByVal LocalInfoEnum As Long) As String

  Dim Tmp As String

  Dim lRet As Long

  Tmp = Space(128)

  Call GetLocaleInfo(lLocal, LocalInfoEnum, Tmp, Len(Tmp))

  lRet = InStr(Tmp, vbNullChar)

  If lRet > 0 Then Tmp = Left(Tmp, lRet - 1)

  LocalInfo = Tmp

End Function