Hallo,
ich schon wieder :-)
In meiner UF habe ich TextBox6, in der ich ein Geburtsdatum eintrage. Nun möchte ich in TextBox7 automatisch das Alter ausgewiesen bekommen.
Folgenden Code habe ich bei der Recherche gefunden, weiß aber nicht, wo ich ihn einfügen soll.
If IsDate(Text6.Text) Then
Text7.Text = Year((Now - CDate(Text6.Text) + 1) \ 1) - 1900
End If
End Sub
Natürlich bin ich für jede Hilfe dankbar.
Gruß
Heike