Récupère les dates de la semaine

[Stephane Maillard]

Cette procédure vous permet de récupérer la date du lundi, dimanche, lundi suivant et dimanche suivant par rapport à une date données.

Exemple :
Dim dateRef as NotesDateTime
Set dateRef = New NotesDateTime("11/07/2001")

Les différentes variables prendront les valeurs suivantes :
dateLundi$ = 09/07/2001
dateDimanche$ = 15/07/2001
LundiSuivantFiltre$ = 16/07/2001
DimancheSuivantFiltre$ = 22/07/2001[syntax="ls"]For a% = 0 To 6
If Weekday(dateRef.DateOnly) = 2 Then
dateLundi$ = dateRef.DateOnly
Call dateRef.AdjustDay(6)
dateDimanche$ = dateRef.DateOnly
Call dateRef.AdjustDay(1)
LundiSuivantFiltre$ = dateRef.DateOnly
Call dateRef.AdjustDay(6)
DimancheSuivantFiltre$ = dateRef.DateOnly
Else
Call dateRef.AdjustDay(-1)
End If
Next[/syntax]