VBA: Altersangabe in Jahren und Tagen
28.04.2016 17:23:52
Dieter(Drummer)
wie muss das Makro lauten, damit in der MsgBox das Jahresalter (funktioniert schon) UND eine Zeile darunter das Alter in Tagen angegeben wird?
Wäre toll, wenn mir jemand das Makro erweitern könnte.
'Makro von Bernd Held
Sub AlterAktuell() 'Alter zeigen
Dim DatEingabe As String
DatEingabe = InputBox("Geben Sie ein Geburtsdatum ein!", _
"Altersüberprüfung")
If DatEingabe "" And IsDate(DatEingabe) Then
MsgBox "Sie sind genau " & _
Format(Date - CDate(DatEingabe), "YY") & " Jahre alt!"
End If
End Sub
Gruß, Dieter(Drummer)