Runde Geburtstage berechnen

Function GebDiesesJahr(wert, Optional Tag)
' Ist wert Lerr oder kein Datum , keine Umwandlung
If Not IsDate(wert) Or IsNull(wert) Then
GebDiesesJahr = Null
Else
If IsMissing(Tag) Then
'Rückgabe des Geburtsdages in diesem Jahr als Wochentag
GebDiesesJahr = CDate(Format(DateSerial(Year(Now()), Month(wert), Day(wert)), "dd/ _
mm/yy"))
Else
'Rückgabe des Geburtsdages in diesem Jahr als Tag
GebDiesesJahr = CStr(Format(DateSerial(Year(Now()), Month(wert), Day(wert)), "dddd") _
)
End If
End If
End Function

Function GebRund(gebDate As Range) As Variant
If Not IsDate(gebDate.Value) Or IsNull(gebDate.Value) Then
GebRund = Null
Exit Function
End If
Select Case Year(Now) - Year(gebDate.Value)
Case Is  90
GebRund = "X"                                  'Gibt ein "X" aus
'GebRund = Year(Now) - Year(gebDate.Value)      'Gibt das Alter aus
'GebRund = Year(gebDate.Value)                  'Gibt das Geburts-Jahr aus
End Select
End Function