Supportnet / Forum / Anwendungen(Java,C++...)
VB6 Datumsformat
Frage
hallo,
ich möchte in meinem Tool gerne das Datum in der amerikanischen Formatierung anzeigen lassen
z.B. 2006-12-24
und nicht in der europäischen
z.B. 24.12.2006
ich habe bis jetzt zum Test eingegeben:
Private Sub Label1_Click()
Label1.Caption = Date
End Sub
wenn man auf das label klickt erscheint das Datum.
Wie kann ich da das Ami Datumsformat bekommen?
Antwort 1 von freddy_san
dein beispiel ist nicht amerikanisch sondern eher japanisch. amerikanisch ist eher 12/24/2006.
wie dem auch sei. schreibe date in eine stringvariable pflücke diese mit left(), mid() und right() auseinander und setzte sie wie gewünscht wieder zusammen.
z.b:
datum=date
msgbox mid(datum,4,2)&"/"&left(datum,2)&"/"&right(datum,2)
wie dem auch sei. schreibe date in eine stringvariable pflücke diese mit left(), mid() und right() auseinander und setzte sie wie gewünscht wieder zusammen.
z.b:
datum=date
msgbox mid(datum,4,2)&"/"&left(datum,2)&"/"&right(datum,2)
Antwort 2 von xmatrix
Hallo credo,
VB6 bietet komfortable Möglichkeiten zur Formatierung.
strDatum = Format(Now, "yyyy-mm-dd")
strDatum = Format(Now, "yyyymmdd")
strDatumZeit = Format(Now, "yyyy-mm-dd hh:nn:ss")
Now ist eine VB6 Standardfunktion. Du kann aber jeden Variantwert nutzen.
dim varDatum as variant, strDatum as string
varDatum = cvdate("24.12.2000")
strDatum = Format(varDatum, "yyyy-mm-dd")
Gruß
xmatrix
VB6 bietet komfortable Möglichkeiten zur Formatierung.
strDatum = Format(Now, "yyyy-mm-dd")
strDatum = Format(Now, "yyyymmdd")
strDatumZeit = Format(Now, "yyyy-mm-dd hh:nn:ss")
Now ist eine VB6 Standardfunktion. Du kann aber jeden Variantwert nutzen.
dim varDatum as variant, strDatum as string
varDatum = cvdate("24.12.2000")
strDatum = Format(varDatum, "yyyy-mm-dd")
Gruß
xmatrix