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


Date de création :01/11/2005 22:49 Dernière modification :02/02/2007 03:39