Datum formatieren

~ 0 min
09.06.2010 16:54

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)

Durchschnittliche Bewertung 0 (0 Abstimmungen)

Kommentieren nicht möglich