' Heiko Jendreck - personal helpdesk & webdesign
' http://www.phw-jendreck.de
' 2008.03.02
' Version für AG-VIP_SQL - Grutzeck Software GmbH

' Bei diesem Makro soll das Alter anhand des Geburtstages errechnet werden
Option Explicit
Dim Alter, Monat, Tag, MonatHeute, TagHeute
If ActiveAddress.Fields("Geburtstag").Value <> "" Then

    ActiveAddress.Fields("Alter").Value = Int(Alter)
    Alter = DateDiff("m",ActiveAddress.Fields("Geburtstag").Value,date)
    Alter = Alter \ 12

    Tag = Left(ActiveAddress.Fields("Geburtstag").Value,2)
    Monat = Left(ActiveAddress.Fields("Geburtstag").Value,5)
    Monat = Right(Monat,2)

    TagHeute = Left(date(),2)
    MonatHeute = Left(date(), 5)
    MonatHeute = Right(MonatHeute, 2)

        If (Monat = MonatHeute) Then
            If (TagHeute < Tag) Then

                If Alter <> 0 Then
                Alter = Alter - 1
                End If

            End If
        End If

End If
ActiveAddress.Fields("Alter").Value = Int(Alter)