title image


Smiley Wie lese ich das Gebietsschema aus?


Public Const LOCALE_ICOUNTRY = &H5

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 GetSystemDefaultLCID Lib "kernel32" _

() As Long



Public Function GetLocale(LCType As Long)

Dim dwLCID As Long, Res As Long, Tmp As String, L As Long

dwLCID = GetSystemDefaultLCID()

Tmp = String(255, 0)

L = Len(Tmp)

Res = GetLocaleInfo(dwLCID, LCType, Tmp, L)

If Res 0 Then GetLocale = Mid(Tmp, 1, Res - 1)

End Function



'

' Aufruf:

GS = GetLocale (LOCALE_ICOUNTRY)





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: