D
Den's
Guest
Bonjour à toutes et tous,
Voilà d'apres ce qui suit, j'aimerai savoir comment je dois faire pour pouvoir l'utiliser avec ma date de départ. Ce programme sert à donner le numéro de semaine.
Function NOSEM(D As Date) As Long
D = Int(D)
NOSEM = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1)
NOSEM = ((D - NOSEM - 3 + (Weekday(NOSEM) + 1) Mod 7)) \ 7 + 1
nsem = NOSEM
End Function
Merci de votre aide.
PS: merci de me dire également comment l'utiliser dans l'autre sens. c à dire du N° de semaine de l'année en cours pour avoir le début de semaine.
Informatiquement
Denis
Voilà d'apres ce qui suit, j'aimerai savoir comment je dois faire pour pouvoir l'utiliser avec ma date de départ. Ce programme sert à donner le numéro de semaine.
Function NOSEM(D As Date) As Long
D = Int(D)
NOSEM = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1)
NOSEM = ((D - NOSEM - 3 + (Weekday(NOSEM) + 1) Mod 7)) \ 7 + 1
nsem = NOSEM
End Function
Merci de votre aide.
PS: merci de me dire également comment l'utiliser dans l'autre sens. c à dire du N° de semaine de l'année en cours pour avoir le début de semaine.
Informatiquement
Denis