LocalRoutines

' Declarations

'

' Place these in a Bas module, or in a Class module

' Don't forget to change public/private where

' applicable Locale Constants

'

Public Const LOCALE_SDECIMAL = &HE
Public Const LOCALE_SLONGDATE = &H20
Public Const LOCALE_SSHORTDATE = &H1F
Public Const LOCALE_SCURRENCY = &H14
Public Const LOCALE_STHOUSAND = &HF
Public Const LOCALE_SINTLSYMBOL = &H15
Public Const LOCALE_STIMEFORMAT = &H1003
Public Const LOCALE_USER_DEFAULT As Long = &H400
Public Declare Function GetLocaleInfo Lib "KERNEL32" _
Alias "GetLocaleInfoA" (ByVal lLocale As Long, _
ByVal lLocaleType As Long, ByVal sLCData As String, _
ByVal lBufferLength As Long) As Long
Public Declare Function GetSystemDefaultLangID Lib _
"KERNEL32" () As Integer
Public Declare Function VerLanguageName Lib "KERNEL32" _
Alias "VerLanguageNameA" (ByVal wLang As Long, _
ByVal szLang As String, ByVal nSize As Long) As Long