Textbox in Datumformat
22.05.2017 12:42:47
Naki
ich habe in einer UF mehrere Textboxen die in Datumsformat erscheinen sollen.
Der User soll nur die Zahlen, ohne Komma, eingeben können und die Ausgabe soll im Datumsformat erfolgen.
z. B. Eingabe 22052017-->Ausgabe 22.05.2017(TT.MM.JJJJ) und im Idealfall soll ich später mit den Werten rechnen können. (z. B. Alter)
Mit dem u.a. Code konnte habe ich leider kein Erfolg gehabt:
Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "dd.mm.yyyy")
End Sub
Muss ich den Textbox initilasieren, wenn ja, wie?
Welches Ereignis muss ich anwenden? (Change, AfterUpdate....?)
PS:DTP will ich nicht benutzen, da die Eingabe im Textbox schneller erfolgt.
Gruß, Naki
Anzeige