En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1219552 visiteurs

 6 visiteurs en ligne

Nous contacter

Contact

FAQ

Déplier Fermer  Problèmes de Date
Pour trouver la date du jour dont on fourni le numéro du jour et le mois, on peut utiliser la fonction ci-dessous.

On fournira le numéro du mois (1 à 12) et le numéro du jour (1 = lundi, 2 = mardi, etc.)

Public Function FirstInMonth(iMonth As Integer, iDayNumber As Integer) As Date
'/ Retourne la date du premier jour selon le numéro du mois
'/ et le numéro du jour fourni de l'année courante
'/
'/ X = FirstInMonth( 11, 2)
'/ renvoie le 5/11/2013

Dim DayOfWeek As Date, iD As Integer
Dim DayNo As Integer, MonthNo As Integer, YearNo As Integer

DayNo = 1
MonthNo = iMonth
YearNo = Year(Date)

For iD = 1 To 8
   DayOfWeek = DateSerial(YearNo, MonthNo, iD)
   If WeekDay(DayOfWeek, vbMonday) = iDayNumber Then
      FirstInMonth = DayOfWeek
      Exit For
   End If
Next iD
End Function

Hyperlien 

Vous êtes ici :   Accueil » FAQ