theDate = "28.11.2002"
 
    tmpTage = DateDiff("m", theDate, Date)
 
    If (tmpTage >= 12) Then
      theDate = DateAdd("yyyy", Int(tmpTage / 12), theDate)
    End If
 
    tmpTage = DateDiff("m", theDate, Date)
 
    If (Month(theDate) > Month(Date)) Then
      tmpTage = tmpTage - 1
    End If
    theDate = DateAdd("m", tmpTage, theDate)
 
    tmpTage = DateDiff("d", theDate, Date)
 
    theDate = DateAdd("d", tmpTage, theDate)

MfG Liechte
-------------------------------------------------------------------
Wir h?ren nicht auf zu spielen weil wir alt werden,
wir werden alt wenn wir aufh?ren zu spielen
-------------------------------------------------------------------