Discussion :

[momoG]

Bonjour les amis,

Je reçoit une date, et je dois trouver la date de prochain lundi. Je m'explique:

Imaginon que j'ai reçu la date "30 août 2007". C'est un jeudi. Alors la procédure doit me retourner 3 septembre 2007 le prochain lundi.

Qqun sait comment le faire ??

Merci à l'avance les amis.

[philben]

bonjour,

le prochain lundi, à vérifier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
(MaDate + 8 - Weekday(MaDate, vbMonday))

cordialement,

philippe

[random]

après vérif c'est bon mais c'est plus souple ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Function jourprochain(x As Date, Optional typejour As Byte = vbMonday) As Date
jourprochain = x + 8 - Weekday(x, typejour)
End Function

[momoG]

Merci les amis. Ca marche.


A+