VBA - Alter berechnen mit AfterUpdate()
25.06.2016 16:28:59
Magda
Ich habe eine Textbox (11) für die Eingabe des Geburtstages und eine Textbox (12) in der das _ Alter ausgegeben werden soll. Hierfür habe ich in einer Userform folgenden Code verwendet, der erst mal auch funktioniert:
Private Sub TextBox11_AfterUpdate()
TextBox11 = Format(TextBox11, "dd.mm.yyyy")
TextBox12.Value = DateDiff("yyyy", CDate(Me.TextBox11), Date)
End Sub
Meine Fragen:
1.) Gibt es eine Möglichkeit, das Alter exakt zu berechnen? Denn wenn jemand am 26.07.1963 geboren ist, berechnet der Code das Alter mit 53, obwohl die Person erst 52 ist.
2.) Wenn man aus der Textbox das Geburtsdatum oder das Alter löschen und dann abspeichern möchte, kommt ein Laufzeitfehler 13 - Typen unverträglich und folgende Zeile ist gelb markiert:
TextBox12.Value = DateDiff("yyyy", CDate(Me.TextBox11), Date)
Gibt es eine Möglichkeit das Ganze mit einem anderen Code zu machen oder den bestehenden Code zu verbessern/ändern?
Da ich sehr geringes Wissen in VBA habe, bitte ich mitzuteilen, an welche Stelle ein anderer Code gesetzt werden muss, falls es sich um eine andere Stelle handeln sollte.
Um Fragen vorzubeugen, wieso jemand überhaupt das Geburtsdatum und/oder das Alter herauslöschen sollte: Es werden später mehrere Azubis vor der Eingabemaske sitzen, da unterlaufen halt mal Fehler und wenn die wegen der Fehlermeldung auf das VBA -Projekt kommen, wissen die nicht weiter.
Wäre für Hilfe sehr dankbar.