VBA Tipp: Ländereinstellungen ermitteln/setzen

Aus DBWiki
Wechseln zu: Navigation, Suche

Anforderung

Ich möchte herausfinden, wie die Ländereinstellungen für die Datumsformate auf meinem Rechner aussehen bzw. diese ändern.

Lösung

Dies leisten die folgenden Funktionen:

Public Const LOCALE_SLONGDATE  As Long = &H20
Public Const LOCALE_SSHORTDATE As Long = &H1F
Public Const WM_SETTINGCHANGE  As Long = &H1A
Public Const HWND_BROADCAST    As Long = &HFFFF
 
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 Declare Function SetLocaleInfo Lib "kernel32" _
   Alias "SetLocaleInfoA" ( _
   ByVal Locale As Long, _
   ByVal LCType As Long, _
   ByVal lpLCData As String) As Long
 
Private Declare Function SendMessage Lib "user32" _
   Alias "SendMessageA" ( _
   ByVal hWnd As Long, _
   ByVal wMsg As Long, _
   ByVal wParam As Long, _
   lParam As Any) As Long
 
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
 
Public Sub SetShortDate(Optional sFmt As String = "dd.MM.yyyy")
 
   ' Quelle: www.dbwiki.net oder www.dbwiki.de
 
   Dim dwLCID As Long
   Dim res    As Long
 
   dwLCID = GetSystemDefaultLCID()
   If SetLocaleInfo(dwLCID, LOCALE_SSHORTDATE, sFmt) = 0 Then
      MsgBox "Fehler in SetShortDate: SetLocaleInfo"
   Else
      res = SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0&, 0&)
   End If
End Sub
 
Public Sub SetLongDate(Optional sFmt As String = "dddd, d. MMMM yyyy")
 
   ' Quelle: www.dbwiki.net oder www.dbwiki.de
 
   Dim dwLCID As Long
   Dim res    As Long
 
   dwLCID = GetSystemDefaultLCID()
   If SetLocaleInfo(dwLCID, LOCALE_SLONGDATE, sFmt) = 0 Then
      MsgBox "Fehler in SetLongDate: SetLocaleInfo"
   Else
      res = SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0&, 0&)
   End If
End Sub
 
Public Function GetShortDate() As String
 
   ' Quelle: www.dbwiki.net oder www.dbwiki.de
 
   Dim dwLCID As Long
   Dim res    As Long
   Dim buf    As String
   Dim length As Long
 
   dwLCID = GetSystemDefaultLCID()
   buf = String$(256, vbNullChar)
   length = Len(buf)
   res = GetLocaleInfo(dwLCID, LOCALE_SSHORTDATE, buf, length)
   GetShortDate = Mid$(buf, 1, res - 1)
End Function
 
Public Function GetLongDate() As String
 
   ' Quelle: www.dbwiki.net oder www.dbwiki.de
 
   Dim dwLCID As Long
   Dim res    As Long
   Dim buf    As String
   Dim length As Long
 
   dwLCID = GetSystemDefaultLCID()
   buf = String(256, vbNullChar)
   length = Len(buf)
   res = GetLocaleInfo(dwLCID, LOCALE_SLONGDATE, buf, length)
   GetLongDate = Mid$(buf, 1, res - 1)
End Function


Wiki hinweis.png Anmerkung: Die Einstellung für das Access-Format "Datum, mittel" erfolgt nicht in den Ländereinstellungen, sondern wird von Access aus den Ländereinstellungen abgeleitet


Aufruf

So kann man z.B. herausfinden, welches Datumsformat für "Datum, lang" eingestellt ist:

   Debug.Print GetLongDate()   ' Ausgabe: dddd, d. MMMM yyyy

Andere Einstellungen

Für andere Ländereinstellungen siehe die folgenden Konstanten:

#If 0 Then
//
//  Locale Types.
//
//  Diese Konstanten werden für die GetLocaleInfo NLS-API-Routine verwendet.
//  Einige dieser Konstanten werden auch für die SetLocaleInfo NLS-API-Routine verwendet.
//
 
//
//  Die folgenden LCTypen können in Kombination mit allen anderen LCTypen verwendet werden.
//
//    LOCALE_NOUSEROVERRIDE wird auch in GetTimeFormat und GetDateFormat verwendet.
//
//    LOCALE_USE_CP_ACP wird in vielen A (Ansi) Apis verwendet,
//    die Stringübersetzungen durchführen müssen.
//
//    LOCALE_RETURN_NUMBER gibt das Ergebnis von GetLocaleInfo als Zahl
//    statt als String zurück. Dieses Flag ist nur für die LCTypes gültig,
//    die mit LOCALE_I beginnen.
//
#End If
 
Public Const LOCALE_NOUSEROVERRIDE         As Long = &H80000000  ' // keine Benutzer-Overrides verwenden
Public Const LOCALE_USE_CP_ACP             As Long = &H40000000  ' // verwende das System ACP
 
' // #if(WINVER >= 0x0400)
Public Const LOCALE_RETURN_NUMBER          As Long = &H20000000  ' // gibt Nummer statt String zurück
' // #endif //(WINVER >= 0x0400)
 
' // #if (WINVER >= _WIN32_WINNT_WIN7)
Public Const LOCALE_RETURN_GENITIVE_NAMES  As Long = &H10000000  ' // Flag zur Rückgabe der Genitivformen von Monatsnamen
Public Const LOCALE_ALLOW_NEUTRAL_NAMES    As Long = &H8000000   ' // Flag, um die Rückgabe von neutralen Namen/Texten für die
                                                                 ' // Namenskonvertierung zu ermöglichen.
' // #endif //(WINVER >= _WIN32_WINNT_WIN7)
 
#If 0 Then
//
//  Die folgenden LCTypes schließen sich gegenseitig aus, da sie NICHT
//  in Kombination miteinander verwendet werden dürfen.
//
 
//
// Dies sind alle möglichen Formen von Gebietsschemata:
//
#End If
Public Const LOCALE_SLOCALIZEDDISPLAYNAME  As Long = &H2         ' // lokalisierter Name des Gebietsschemas,
                                                                 ' // z.B. "Deutsch (Deutschland)" in UI-Sprache
' // #if (WINVER >= _WIN32_WINNT_WIN7)
Public Const LOCALE_SENGLISHDISPLAYNAME    As Long = &H72        ' // Anzeigename (in der Regel Sprache + Land) in Englisch,
                                                                 ' // z.B. "German (Germany)"
Public Const LOCALE_SNATIVEDISPLAYNAME     As Long = &H73        ' // Anzeigename in der Landessprache,
                                                                 ' // z.B. "Deutsch (Deutschland)"
' // #endif //(WINVER >= _WIN32_WINNT_WIN7
 
' // #if (WINVER >= _WIN32_WINNT_VISTA)
Public Const LOCALE_SLOCALIZEDLANGUAGENAME As Long = &H6F        ' // Sprachanzeigen Name für eine Sprache,
                                                                 ' // z.B. "Deutsch" in UI-Sprache
' // #endif //(WINVER >= _WIN32_WINNT_VISTA)
Public Const LOCALE_SENGLISHLANGUAGENAME   As Long = &H1001      ' // Englischer Name der Sprache, z.B. "German"
Public Const LOCALE_SNATIVELANGUAGENAME    As Long = &H4         ' // Muttersprachliche Bezeichnung der Sprache, z.B. "Deutsch"
 
Public Const LOCALE_SLOCALIZEDCOUNTRYNAME  As Long = &H6         ' // der lokalisierte Name des Landes,
                                                                 ' // z.B. "Deutschland" in UI-Sprache
Public Const LOCALE_SENGLISHCOUNTRYNAME    As Long = &H1002      ' // Englischer Name des Landes, z.B. "Germany"
Public Const LOCALE_SNATIVECOUNTRYNAME     As Long = &H8         ' // Einheimische Landesbezeichnung, z.B. "Deutschland"
 
#If 0 Then
//
// Veraltete Bezeichnungen für die Werte der Gebietsschema-Namen
//
#End If
Public Const LOCALE_SLANGUAGE              As Long = &H2         ' // lokalisierter Name des Gebietsschemas,
                                                                 ' // z.B. "Deutsch (Deutschland)" in UI-Sprache
 
Public Const LOCALE_SLANGDISPLAYNAME       As Long = &H6F        ' // Bezeichnung für eine Sprache,
                                                                 ' // z.B. "Deutsch" in UI-Sprache
 
Public Const LOCALE_SENGLANGUAGE           As Long = &H1001      ' // Englischer Name der Sprache, z.B. "German"
Public Const LOCALE_SNATIVELANGNAME        As Long = &H4         ' // Muttersprachliche Bezeichnung der Sprache,
                                                                 ' // z.B. "Deutsch"
Public Const LOCALE_SCOUNTRY               As Long = &H6         ' // Lokalisierter Name des Landes,
                                                                 ' // z.B. "Deutschland" in UI-Sprache
Public Const LOCALE_SENGCOUNTRY            As Long = &H1002      ' // Englischer Name des Landes, z.B. "Germany"
Public Const LOCALE_SNATIVECTRYNAME        As Long = &H8         ' // Einheimische Landesbezeichnung, z.B. "Deutschland"
 
#If 0 Then
//
//  Die folgenden LCTypen schließen sich gegenseitig aus, da sie NICHT
//  in Kombination miteinander verwendet werden dürfen.
//
#End If
Public Const LOCALE_ILANGUAGE              As Long = &H1         ' // Sprach-ID, LOCALE_SNAME bevorzugt
 
Public Const LOCALE_SABBREVLANGNAME        As Long = &H3         ' // abgekürzter Sprachname, LOCALE_SISO639LANGNAME bevorzugt
 
Public Const LOCALE_ICOUNTRY               As Long = &H5         ' // Ländercode, z.B. 1, LOCALE_SISO3166CTRYNAME
                                                                 ' // kann nützlicher sein.
Public Const LOCALE_SABBREVCTRYNAME        As Long = &H7         ' // Beliebig abgekürzter Ländername, LOCALE_SISO3166CTRYNAME
                                                                 ' // bevorzugt
Public Const LOCALE_IGEOID                 As Long = &H5B        ' // Geographische Ortskennung, z.B. "244"
 
Public Const LOCALE_IDEFAULTLANGUAGE       As Long = &H9         ' // Standard-Sprachen-ID, veraltet
Public Const LOCALE_IDEFAULTCOUNTRY        As Long = &HA         ' // Standard-Ländercode, veraltet
Public Const LOCALE_IDEFAULTCODEPAGE       As Long = &HB         ' // Standard-OEM-Codepage (stattdessen wird die Verwendung
                                                                 ' // von Unicode empfohlen)
Public Const LOCALE_IDEFAULTANSICODEPAGE   As Long = &H1004      ' // Standard-Ansi-Codepage (stattdessen wird die Verwendung
                                                                 ' // von Unicode empfohlen)
Public Const LOCALE_IDEFAULTMACCODEPAGE    As Long = &H1011      ' // Standard-Mac-Codepage (stattdessen wird die Verwendung
                                                                 ' // von Unicode empfohlen)
 
Public Const LOCALE_SLIST                  As Long = &HC         ' // Listenpunkttrennzeichen, z.B. "," für "1,2,3,3,4"
Public Const LOCALE_IMEASURE               As Long = &HD         ' // 0 = metrisch, 1 = US-Messsystem
 
Public Const LOCALE_SDECIMAL               As Long = &HE         ' // Dezimaltrennzeichen, z.B. "." für 1,234.00
Public Const LOCALE_STHOUSAND              As Long = &HF         ' // Tausender-Trennzeichen, z.B. "," for 1,234.00
Public Const LOCALE_SGROUPING              As Long = &H10        ' // Zifferngruppierung, z.B. "3;0" für 1,000,000
Public Const LOCALE_IDIGITS                As Long = &H11        ' // Anzahl der Nachkommastellen, z.B. 2 für 1.00
Public Const LOCALE_ILZERO                 As Long = &H12        ' // führende Nullen für Dezimalstellen, 0 für .97, 1 für 0.97
Public Const LOCALE_INEGNUMBER             As Long = &H1010      ' // negative number mode, 0-4, see documentation
Public Const LOCALE_SNATIVEDIGITS          As Long = &H13        ' // einheimischer Ascii 0-9, z.B. "0123456789"
 
Public Const LOCALE_SCURRENCY              As Long = &H14        ' // Lokales Währungssymbol, z.B. "$"
Public Const LOCALE_SINTLSYMBOL            As Long = &H15        ' // intl monetäres Symbol, z.B. "USD"
Public Const LOCALE_SMONDECIMALSEP         As Long = &H16        ' // monetäres Dezimaltrennzeichen, z.B. "." für $1,234.00
Public Const LOCALE_SMONTHOUSANDSEP        As Long = &H17        ' // monetärer Tausender-Trennzeichen, z.B. "," für $1,234.00
Public Const LOCALE_SMONGROUPING           As Long = &H18        ' // monetäre Gruppierung, z.B. "3;0" für $1,000,000.00
Public Const LOCALE_ICURRDIGITS            As Long = &H19        ' // # lokale Währungsziffern, z.B. 2 für $1.00
Public Const LOCALE_IINTLCURRDIGITS        As Long = &H1A        ' // # intl Währungsziffern, z.B. 2 für $1.00
Public Const LOCALE_ICURRENCY              As Long = &H1B        ' // positiver Währungsmodus, 0-3
Public Const LOCALE_INEGCURR               As Long = &H1C        ' // negativer Währungsmodus, 0-15
 
Public Const LOCALE_SDATE                  As Long = &H1D        ' // Datumstrennzeichen (abgeleitet von LOCALE_SSHORTDATE,
                                                                 ' // verwende diese stattdessen)
Public Const LOCALE_STIME                  As Long = &H1E        ' // Zeittrennzeichen (abgeleitet von LOCALE_STIMEFORMAT,
                                                                 ' // verwende diese stattdessen)
Public Const LOCALE_SSHORTDATE             As Long = &H1F        ' // kurzes Datumsformat, z.B. "MM/dd/yyyy"
Public Const LOCALE_SLONGDATE              As Long = &H20        ' // langes Datumsformat, z.B. "dddd, MMMM dd, yyyy"
Public Const LOCALE_STIMEFORMAT            As Long = &H1003      ' // Zeitformat, z.B. "HH:mm:ss"
Public Const LOCALE_IDATE                  As Long = &H21        ' // kurzes Datumsformat (abgeleitet von LOCALE_SSHORTDATE,
                                                                 ' // verwende diese stattdessen)
Public Const LOCALE_ILDATE                 As Long = &H22        ' // langes Datumsformat (abgeleitet von LOCALE_SLONGDATE,
                                                                 ' // verwende diese stattdessen)
Public Const LOCALE_ITIME                  As Long = &H23        ' // Zeitformatangabe (abgeleitet von LOCALE_STIMEFORMAT,
                                                                 ' // verwende diese stattdessen)
Public Const LOCALE_ITIMEMARKPOSN          As Long = &H1005      ' // Zeitmarkenposition (abgeleitet von LOCALE_STIMEFORMAT,
                                                                 ' // verwende diese stattdessen)
Public Const LOCALE_ICENTURY               As Long = &H24        ' // Jahrhundertformatangabe (short date, LOCALE_SSHORTDATE
                                                                 ' // wird bevorzugt)
Public Const LOCALE_ITLZERO                As Long = &H25        ' // führende Nullen im Zeitfeld (abgeleitet von LOCALE_STIMEFORMAT,
                                                                 ' // verwende diese stattdessen)
Public Const LOCALE_IDAYLZERO              As Long = &H26        ' // führende Nullen im Tagesfeld (kurzes Datumsformat,
                                                                 ' // LOCALE_SSHORTDATE wird bevorzugt)
Public Const LOCALE_IMONLZERO              As Long = &H27        ' // führende Nullen im Monatsfeld (kurzes Datumsformat,
                                                                 ' // LOCALE_SSHORTDATE wird bevorzugt)
Public Const LOCALE_S1159                  As Long = &H28        ' // AM-Kennung, z.B. "AM"
Public Const LOCALE_S2359                  As Long = &H29        ' // PM-Kennung, z.B. "PM"
 
Public Const LOCALE_ICALENDARTYPE          As Long = &H1009      ' // Typ der Kalenderangabe, z.B. CAL_GREGORIAN
Public Const LOCALE_IOPTIONALCALENDAR      As Long = &H100B      ' // zusätzliche Kalenderspezifikation, z.B. CAL_GREGORIAN_US
Public Const LOCALE_IFIRSTDAYOFWEEK        As Long = &H100C      ' // erster Tag der Woche, 0-6, 0=Monday, 6=Sunday
Public Const LOCALE_IFIRSTWEEKOFYEAR       As Long = &H100D      ' // erste Woche des Jahres, 0-2
 
Public Const LOCALE_SDAYNAME1              As Long = &H2A        ' // langer Name für Montag
Public Const LOCALE_SDAYNAME2              As Long = &H2B        ' // langer Name für Dienstag
Public Const LOCALE_SDAYNAME3              As Long = &H2C        ' // langer Name für Mittwoch
Public Const LOCALE_SDAYNAME4              As Long = &H2D        ' // langer Name für Donnerstag
Public Const LOCALE_SDAYNAME5              As Long = &H2E        ' // langer Name für Freitag
Public Const LOCALE_SDAYNAME6              As Long = &H2F        ' // langer Name für Samstag
Public Const LOCALE_SDAYNAME7              As Long = &H30        ' // langer Name für Sonntag
Public Const LOCALE_SABBREVDAYNAME1        As Long = &H31        ' // kurzer Name für Montag
Public Const LOCALE_SABBREVDAYNAME2        As Long = &H32        ' // kurzer Name für Dienstag
Public Const LOCALE_SABBREVDAYNAME3        As Long = &H33        ' // kurzer Name für Mittwoch
Public Const LOCALE_SABBREVDAYNAME4        As Long = &H34        ' // kurzer Name für Donnerstag
Public Const LOCALE_SABBREVDAYNAME5        As Long = &H35        ' // kurzer Name für Freitag
Public Const LOCALE_SABBREVDAYNAME6        As Long = &H36        ' // kurzer Name für Samstag
Public Const LOCALE_SABBREVDAYNAME7        As Long = &H37        ' // kurzer Name für Sonntag
Public Const LOCALE_SMONTHNAME1            As Long = &H38        ' // langer Name für Januar
Public Const LOCALE_SMONTHNAME2            As Long = &H39        ' // langer Name für Februar
Public Const LOCALE_SMONTHNAME3            As Long = &H3A        ' // langer Name für März
Public Const LOCALE_SMONTHNAME4            As Long = &H3B        ' // langer Name für April
Public Const LOCALE_SMONTHNAME5            As Long = &H3C        ' // langer Name für Mai
Public Const LOCALE_SMONTHNAME6            As Long = &H3D        ' // langer Name für Juni
Public Const LOCALE_SMONTHNAME7            As Long = &H3E        ' // langer Name für Juli
Public Const LOCALE_SMONTHNAME8            As Long = &H3F        ' // langer Name für August
Public Const LOCALE_SMONTHNAME9            As Long = &H40        ' // langer Name für September
Public Const LOCALE_SMONTHNAME10           As Long = &H41        ' // langer Name für Oktober
Public Const LOCALE_SMONTHNAME11           As Long = &H42        ' // langer Name für November
Public Const LOCALE_SMONTHNAME12           As Long = &H43        ' // langer Name für Dezember
Public Const LOCALE_SMONTHNAME13           As Long = &H100E      ' // langer Name für 13. Montat (falls existiert)
Public Const LOCALE_SABBREVMONTHNAME1      As Long = &H44        ' // kurzer Name für Januar
Public Const LOCALE_SABBREVMONTHNAME2      As Long = &H45        ' // kurzer Name für Februar
Public Const LOCALE_SABBREVMONTHNAME3      As Long = &H46        ' // kurzer Name für März
Public Const LOCALE_SABBREVMONTHNAME4      As Long = &H47        ' // kurzer Name für April
Public Const LOCALE_SABBREVMONTHNAME5      As Long = &H48        ' // kurzer Name für Mai
Public Const LOCALE_SABBREVMONTHNAME6      As Long = &H49        ' // kurzer Name für Juni
Public Const LOCALE_SABBREVMONTHNAME7      As Long = &H4A        ' // kurzer Name für Juli
Public Const LOCALE_SABBREVMONTHNAME8      As Long = &H4B        ' // kurzer Name für August
Public Const LOCALE_SABBREVMONTHNAME9      As Long = &H4C        ' // kurzer Name für September
Public Const LOCALE_SABBREVMONTHNAME10     As Long = &H4D        ' // kurzer Name für Oktober
Public Const LOCALE_SABBREVMONTHNAME11     As Long = &H4E        ' // kurzer Name für November
Public Const LOCALE_SABBREVMONTHNAME12     As Long = &H4F        ' // kurzer Name für Dezember
Public Const LOCALE_SABBREVMONTHNAME13     As Long = &H100F      ' // kurzer Name für 13. Monat (fall existiert)
 
Public Const LOCALE_SPOSITIVESIGN          As Long = &H50        ' // positives Vorzeichen, z.B. ""
Public Const LOCALE_SNEGATIVESIGN          As Long = &H51        ' // negatives Vorzeichen, z.B. "-"
Public Const LOCALE_IPOSSIGNPOSN           As Long = &H52        ' // positive Vorzeichenstellung (abgeleitet von INEGCURR)
Public Const LOCALE_INEGSIGNPOSN           As Long = &H53        ' // negative Vorzeichenstellung (abgeleitet von INEGCURR)
Public Const LOCALE_IPOSSYMPRECEDES        As Long = &H54        ' // Währungssymbol vor positivem Betrag
                                                                 ' // (abgeleitet von ICURRENCY)
Public Const LOCALE_IPOSSEPBYSPACE         As Long = &H55        ' // Geldsymbol getrennt durch Leerzeichen von positivem Betrag
                                                                 ' // (abgeleitet von ICURRENCY)
Public Const LOCALE_INEGSYMPRECEDES        As Long = &H56        ' // Währungssymbol vor negativem Betrag
                                                                 ' // (abgeleitet von INEGCURR)
Public Const LOCALE_INEGSEPBYSPACE         As Long = &H57        ' // Geldsymbol getrennt durch Leerzeichen von negativem Betrag
                                                                 ' // (abgeleitet von INEGCURR)
 
' // #if(WINVER >= 0x0400)
Public Const LOCALE_FONTSIGNATURE          As Long = &H58        ' // Handschrift Zeichensatz
Public Const LOCALE_SISO639LANGNAME        As Long = &H59        ' // ISO abgekürzter Sprachname, z.B. "en"
Public Const LOCALE_SISO3166CTRYNAME       As Long = &H5A        ' // ISO abgekürzter Ländername, z.B. "US"
' // #endif //(WINVER >= 0x0400)
 
' // #if(WINVER >= 0x0500)
Public Const LOCALE_IDEFAULTEBCDICCODEPAGE As Long = &H1012      ' // Standard ebcdic Codepage (stattdessen wird die Verwendung
                                                                 ' // von Unicode empfohlen)
Public Const LOCALE_IPAPERSIZE             As Long = &H100A      ' // Papiergröße, 1=letter, 5=legal, 8=a3, 9=a4
Public Const LOCALE_SENGCURRNAME           As Long = &H1007      ' // englischer Name der Währung, z.B. "Euro"
Public Const LOCALE_SNATIVECURRNAME        As Long = &H1008      ' // muttersprachlicher Name der Währung, z.B. "euro"
Public Const LOCALE_SYEARMONTH             As Long = &H1006      ' // Jahr Monat Format String, z.B. "MM/yyyy"
Public Const LOCALE_SSORTNAME              As Long = &H1013      ' // Sortierung, üblicherweise "", z.B. "Dictionary" in UI-Sprache
Public Const LOCALE_IDIGITSUBSTITUTION     As Long = &H1014      ' // Zeichenersetzung; 0=context, 1=none, 2=national
' // #endif //(WINVER >= 0x0500)
 
' // #if (WINVER >= 0x0600)
Public Const LOCALE_SNAME                  As Long = &H5C        ' // Gebietsschema (z.B.: en-us)
Public Const LOCALE_SDURATION              As Long = &H5D        ' // Zeitdauerformat
Public Const LOCALE_SKEYBOARDSTOINSTALL    As Long = &H5E        ' // Wird intern verwendet, siehe GetKeyboardLayoutName()
Public Const LOCALE_SSHORTESTDAYNAME1      As Long = &H60        ' // Kürzester Tagesname für Montag
Public Const LOCALE_SSHORTESTDAYNAME2      As Long = &H61        ' // Kürzester Tagesname für Dienstag
Public Const LOCALE_SSHORTESTDAYNAME3      As Long = &H62        ' // Kürzester Tagesname für Mittwoch
Public Const LOCALE_SSHORTESTDAYNAME4      As Long = &H63        ' // Kürzester Tagesname für Donnerstag
Public Const LOCALE_SSHORTESTDAYNAME5      As Long = &H64        ' // Kürzester Tagesname für Freitag
Public Const LOCALE_SSHORTESTDAYNAME6      As Long = &H65        ' // Kürzester Tagesname für Samstag
Public Const LOCALE_SSHORTESTDAYNAME7      As Long = &H66        ' // Kürzester Tagesname für Sonntag
Public Const LOCALE_SISO639LANGNAME2       As Long = &H67        ' // 3 stelliger ISO abgekürzter Sprachname, z.B. "eng"
Public Const LOCALE_SISO3166CTRYNAME2      As Long = &H68        ' // 3-stelliger ISO-Ländername, z.B. "USA"
Public Const LOCALE_SNAN                   As Long = &H69        ' // keine Zahl, eg "NaN"
Public Const LOCALE_SPOSINFINITY           As Long = &H6A        ' // + unendlich, eg "infinity"
Public Const LOCALE_SNEGINFINITY           As Long = &H6B        ' // - unendlich, eg "-infinity"
Public Const LOCALE_SSCRIPTS               As Long = &H6C        ' // Typische Skripte im Gebietsschema: ;-abgegrenzte Skriptcodes,
                                                                 ' // z.B. "Latn;"
Public Const LOCALE_SPARENT                As Long = &H6D        ' // Ersatzname für Ressourcen, z.B. "en" for "en-US"
Public Const LOCALE_SCONSOLEFALLBACKNAME   As Long = &H6E        ' // Ersatzname innerhalb der Konsole bei Unicode ausschließlichen
                                                                 ' // Gebietsschemata, z.B. "en" für bn-IN
' // #endif //(WINVER >= 0x0600)
 
' // #if (WINVER >= _WIN32_WINNT_WIN7)
Public Const LOCALE_IREADINGLAYOUT         As Long = &H70        ' // Gibt einen der folgenden 4 Layoutwerte zurück:
                                                                 ' // 0 - von links nach rechts (z.B. en-US)
                                                                 ' // 1 - von rechts nach links (z.B. arabische Gebietsschemata)
                                                                 ' // 2 - vertikal von oben nach unten mit Spalten nach links und
                                                                 ' //     auch von links nach rechts (ja-JP Gebietsschemata)
                                                                 ' // 3 - vertikal von oben nach unten mit nach rechts verlaufenden
                                                                 ' //     Spalten
Public Const LOCALE_INEUTRAL               As Long = &H71        ' // Gibt 0 für eine spezifische Kultur, 1 für eine neutrale Kultur
                                                                 ' // zurück.
Public Const LOCALE_INEGATIVEPERCENT       As Long = &H74        ' // Gibt 0-11 für das negative Prozentformat zurück
Public Const LOCALE_IPOSITIVEPERCENT       As Long = &H75        ' // Gibt 0-3 für das positive Prozentformat zurück
Public Const LOCALE_SPERCENT               As Long = &H76        ' // das Prozentzeichen
Public Const LOCALE_SPERMILLE              As Long = &H77        ' // das Promillezeichen (U+2030)
Public Const LOCALE_SMONTHDAY              As Long = &H78        ' // das bevorzugte Monat/Tag-Format
Public Const LOCALE_SSHORTTIME             As Long = &H79        ' // Liefert das bevorzugte Kurzzeitformat
                                                                 ' // (z.B. keine Sekunden, nur h:mm)
Public Const LOCALE_SOPENTYPELANGUAGETAG   As Long = &H7A        ' // Open type Sprachkennzeichen, z.B: "latn" or "dflt"
Public Const LOCALE_SSORTLOCALE            As Long = &H7B        ' // Name des Gebietsschemas, das für das Sortier-,
                                                                 ' // Bündelungs- und Fallverhalten verwendet werden soll.
' // #endif //(WINVER >= _WIN32_WINNT_WIN7)