par Stephane Maillard » 08 Sep 2003 à 14:53
Bonjour,Un début de piste :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 NotesDateTimeSet dateRef = New NotesDateTime("11/07/2001")Les différentes variables prendront les valeurs suivantes :dateLundi$ = 09/07/2001dateDimanche$ = 15/07/2001LundiSuivantFiltre$ = 16/07/2001DimancheSuivantFiltre$ = 22/07/2001For 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 IfNext[%sig%]
Cordialement
Stéphane Maillard