[ Répondre | Suivant | Précédent | En haut ]
Auteur: John LAM
Societe:
Date: 23/06/97
Time: 10:30:54
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