Dim theDate As String
    Dim dblMonate As Double
    Dim dblWochen As Double
    Dim dblTage As Double
    Dim tmpTage As Double
 
    theDate = "17.11.02"
    tmpTage = DateDiff("d", theDate, Date)
    dblMonate = tmpTage Mod 365
    dblWochen = dblMonate Mod 31
    dblTage = dblWochen Mod 7
 
    MsgBox "seit " & tmpTage & " Tagen." & vbCrLf & vbCrLf & _
           " Jahre" & vbCrLf & _
           Int(dblMonate / 31) & " Monate" & vbCrLf & _
           Int(dblWochen / 7) & " Wochen" & vbCrLf & _
           dblTage & " Tage"