Herbers Excel-Forum - das Archiv

Datum-Format in Systemsteuerung ändern

Bild

Betrifft: Datum-Format in Systemsteuerung ändern
von: Remo

Geschrieben am: 11.03.2005 11:20:41
Hallo zusammen
Ich möchte mittels eines VBA-Makro auf die Systemsteuerung zugreifen.
Das kurze Datumsformat soll auf die Form "TT.MM.JJJJ" gebracht werden.
Habt ihr irgendwelche Ansätze? Danke für eure Hilfe
Gruss Remo
Bild

Betrifft: AW: Datum-Format in Systemsteuerung ändern
von: Matthias G

Geschrieben am: 11.03.2005 12:06:25
Hallo Remo,
damit kann man das Format auslesen:
Option Explicit
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
Function GetShortDateFormat() As String
Dim LCID&, Result&, Buffer$, Length&, ID&
ID& = &H1F
LCID = GetSystemDefaultLCID()
Length = GetLocaleInfo(LCID, ID, Buffer, 0) - 1
Buffer = Space(Length + 1)
Result = GetLocaleInfo(LCID, ID, Buffer, Length)
GetShortDateFormat = Left(Buffer, Length)
End Function

(hier gefunden:
http://www.activevb.de/tipps/vb6tipps/tipp0277.html
und aufs Datum beschränkt)
Vielleicht kannst du die Information nutzen, um deinen Code daraufhin anzupassen!
Gruß Matthias
Bild

Betrifft: AW: Datum-Format in Systemsteuerung ändern
von: Remo
Geschrieben am: 11.03.2005 12:43:25
Danke - ist sicher einmal ein guter Ansatz!
 Bild
Excel-Beispiele zum Thema "Datum-Format in Systemsteuerung ändern"
Währung in der Systemsteuerung/Ländereinstellungen umstellen