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

Beiträge aus den Excel-Beispielen zum Thema "Datum-Format in Systemsteuerung ändern"