Datumformate

16/11/2007 - 13:07 von Peter Maler | Report spam
Hallo,


ich hab da eine kleine Frage zur Datumformatierung:

Ich hab da ein Inputbox in der der Anwender ein Datum in diesem Format
eintragen soll:
ddmmyyyy
um das Datum dann spàter in eine DB wegzuschreiben formatiere ich mir das
Datum
format$(eingabe,"dd.mm.yyyy")
dummerweise macht der mir jetzt zum Beispiel aus der Eingabe 02122007 nach
dem format Befehl dieses Datum 08.11.7709.

Kann die format Funktion das nicht oder kann man das noch anders machen?

Werde die Punkte jetzt erstmal "hàndisch" einfügen.


Gruß
Peter
 

Lesen sie die antworten

#1 Peter Fleischer
16/11/2007 - 13:51 | Warnen spam
"Peter Maler" schrieb im Newsbeitrag
news:

ich hab da eine kleine Frage zur Datumformatierung:

Ich hab da ein Inputbox in der der Anwender ein Datum in diesem Format
eintragen soll:
ddmmyyyy



Hi Peter,
ich würde hier auch die Möglichkeit ddmmyy vorsehen (will unsere Sekretàrin
so:-).

um das Datum dann spàter in eine DB wegzuschreiben formatiere ich mir das
Datum
format$(eingabe,"dd.mm.yyyy")



Genau das würde cih nicht machen, da eine implizite Konvertierung
entsprechend den lokalen Einstellungen vorgenommen wird.

dummerweise macht der mir jetzt zum Beispiel aus der Eingabe 02122007 nach
dem format Befehl dieses Datum 08.11.7709.



Und was gefàllt dir nich :-)?

Kann die format Funktion das nicht oder kann man das noch anders machen?



Die Format-Funktion macht das schon richtig, da der implizit konvertierte
Wert "2122007" genau dieses Datum ergibt.

Werde die Punkte jetzt erstmal "hàndisch" einfügen.



Probier es mal so:

Dim eingabe As String
eingabe = "02122007"

dim myDate As Date
myDate = CDate(left$(eingabe, 2) & "." & Mid$(eingabe, 3,2) & "." &
Mid$(eingabe, 5, 4))

debug.Print Format(myDate, "dd.mm.yyyy")

Viele Gruesse

Peter

Ähnliche fragen