Datoberegning

Hejsa

Jeg har et fint lille script hvor jeg opretter nogle dokumenter, med ugenummer og ugedag. Ydermere ville jeg gerne have den faktiske dato på:

    Dim session As New NotesSession
    Dim i As Variant
    Dim j As Variant
    Set db = session.CurrentDatabase
   
    For i=1 To 53   
        For j=1 To 7
            Set doc = New NotesDocument(db)
            doc.Form = "Ugeplan"
            doc.WeekNumber = i
            Doc.HiddenWeekDay = j
            Select Case j
            Case 1      : Doc.WeekDay = "Mandag"
                Doc.Date = XXXXXXX
            Case 2      : Doc.WeekDay = "Tirsdag"
            Case 3      : Doc.WeekDay = "Onsdag"
            Case 4      : Doc.WeekDay = "Torsdag"
            Case 5      : Doc.WeekDay = "Fredag"
            Case 6      : Doc.WeekDay = "Lørdag"
            Case 7      : Doc.WeekDay = "Søndag"
            End Select
            Call doc.Save(True, False)
        Next
    Next


Er der nogle der kan præstere et sådant tillæg til dette script? Jeg er selv lidt lost....