Datum formatieren
Herausforderung:
Das aktuelle Datum muss im Format YYYYMMDD in ein Textfeld geschrieben werden.
Die Funktionen:
strDatum = Year(now) & Month(now) & Day(now)
oder
strDatum2 = Datepart("yyyy",Now) & Datepart ("m", Now) & Datepart ("d",Now)
liefern keine führende Nullen. D.h. "10.03.2010" wird dann als"2010310" ausgegeben.
Hier hilft nur das Zerlegen das Datums über
Dim DateYear, DateMonth, DateDay
DateDay = Right("00" & CInt(Day(Now)), 2)
DateMonth = Right("00" & CInt(Month(Now)), 2)
DateYear = Right("0000" & CInt(Year(Now)), 4)
strDatum3 = Dateyear & DateMonth & DateDay
Oder als Einzeiler:
MsgBox Right("0000" & CInt(Year(Now)), 4) & Right("00" & CInt(Month(Now)), 2) & Right("00" & CInt(Day(Now)), 2)Alternativ wäre auch möglich:
strDatum = Datepart("yyyy",Now) & right(0 & Datepart("m", Now),2) & right(0 & Datepart ("d",Now),2)