[ Répondre | Suivant | Précédent | En haut ]

Calculer le N° de semaine d'une date

Auteur: John LAM
Societe:
Date: 23/06/97
Time: 10:30:54

Comments

Cette fonction permet de déterminer le N° de semaine d'une date donnée.

Son principe est simple.

*************************************

Public Function DetermSemaine(x as Date)

Dim date0, date1, jour1

date0 = CDate("01/jan/" & Year(x)) jour1 = WeekDay(date0, 2) date1 = date0 - jour1 + 1 DetermSemaine = Int(((x - date1) / 7) + 1)

End Function


Dernière modification : 27 mars 1998