Format des Systemdatums ermitteln Welches Datumsformat ist in den Systemeinstellungen eingestellt? Dieser Tipp verrät es - und zwar ganz ohne den Aufruf diverser API-Funktionen!
Autor:   Dieter Otter	Bewertung:	Views:  12.436
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Welches Datumsformat ist in den Systemeinstellungen eingestellt?
Unser heutiger Tipp zeigt, wie sich das kurze Datumsformat schnell und einfach ermitteln lässt - und zwar ohne den Aufruf diverser API-Funktionen!

' Datum-Trennzeichen ermitteln
Public Function GetSysDateSep() As String
  Dim sFmt As String
  Dim sSep As String
 
  ' Datum 01.06.2000 im eingestellten kurzen Datumsformat ausgeben
  sFmt = Format$(CDate(DateSerial(2000, 6, 1)), "Short Date")
 
  ' Trennzeichen ermitteln
  sSep = sFmt
  While IsNumeric(Left$(sSep, 1))
    sSep = Mid$(sSep, 2)
  Wend
  sSep = Left$(sSep, 1)
 
  GetSysDateSep = sSep
End Function

' kurzes Datumsformat ermitteln
Public Function GetSysShortDate() As String
  Dim sFmt As String
 
  ' Datum 01.06.2000 im eingestellten kurzen Datumsformat ausgeben
  sFmt = Format$(CDate(DateSerial(2000, 6, 1)), "Short Date")
 
  ' Datumsformat ermitteln
  sFmt = Replace(sFmt, "2000", "yyyy")
  sFmt = Replace(sFmt, "06", "mm")
  sFmt = Replace(sFmt, "01", "dd")
 
  ' Falls Jahr nur zweistellig angezeigt wird
  sFmt = Replace(sFmt, "00", "yy")
 
  ' Falls Monat nur einstellig angezeigt wird
  sFmt = Replace(sFmt, "6", "m")
 
  ' Falls Tag nur einstellig angezeigt wird
  sFmt = Replace(sFmt, "1", "d")
 
  GetSysShortDate = sFmt
End Function

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.