Dim theDate As String
    Dim dblMonate As Double
    Dim dblWochen As Double
    Dim dblTage As Double
    Dim tmpTage As Double
    Dim tmpDate as Date
 
    theDate = "17.11.02"
    tmpTage = DateDiff("d", theDate, Date)
    tmpDate = DateAdd( "d", -1 *  tmpTage, theDate )
    ...
    ...
    usw.

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