FAQ
Problèmes de Date
Syntaxe : fPremierJourSemaine(14, 2005)
Function fPremierJourSemaine(Semaine As Integer, annee As Integer) As Date
Dim Datetemp As Date
Datetemp = DateSerial(annee, 1, 1) + (Semaine - 1) * 7
fPremierJourSemaine = Datetemp - (Weekday(Datetemp) - vbMonday)
End Function