Datumumwandeln
12.04.2006 19:06:21
Fips
Ich möchte ein in einer Textbox eingegebenes Datum in ein spezielles Datumsformat umwandeln.
Beispiel:
Ich gebe in die Textbox ein 1.1.95,
dann wird das Datum mit untenstehenden Makro
in 01.01.1995 umgewandelt und in die Textbox zurückgeschrieben.
Funktioniert auch alles.
Aber : ab 1.1.30 und abwärts wird die Jahreszahl in 2030,2029,2028 usw. umgeschrieben.
Eigentlich dürfte das erst bei 06 also dann 2006 passieren.
Weiß jemand wie ich das verhindern kann?
Makro:
DatumB = UserForm1.TextBox3.Value
DatumB2 = CDate(DatumB)
UserForm1.TextBox3.Value = DatumB2
Vielen Dank im voraus
Fips