Recherche
Recherche
Les mémos
Je débute...
Visites

 999662 visiteurs

 1 visiteur en ligne

FAQ
Déplier Fermer  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

Dernière modification :02/02/2007 : 03:39 Hyperlien