Versuchs mal damit
Hallo Wilhelm,
ich möchte mich ja nicht in eueren kleinen Disput einmischen,
aber versuchs mal damit:
Dim Txt As String
Dim date1 As Date
If Len(Form1.Text1.Text) > 8 Then
date1 = Left(Form1.Text1.Text, 2) + „-“ + & _ Mid(Form1.Text1.Text, 4, 2) + „-“ + & _ Right(Form1.Text1.Text, 4)
Else
date1 = Left(Form1.Text1.Text, 2) + „-“ + & _ Mid(Form1.Text1.Text, 4, 2) + „-“ + & _ Right(Form1.Text1.Text, 2)
End If
Form1.Text2.Text = Format(date1, „dddd dd. mmm yyyy“)
Vieleicht wäres auch besser den Tag/Monat/Jahr in jeweils einer getrennten Textbox einzutragen, da bei der Eingabe weniger Fehler passieren können.
Das Jahr würde ich 4stellig eingeben um Formatierungsfehler zu vermeiden. Ich habe leider keine Möglichkeit gefunden, die letzte 12 zu unterscheiden (Will sagen 2012 oder 1912).
Ich hoffe ich konnte dir helfen.
Gruss
Kenchi