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

 999662 visiteurs

 1 visiteur en ligne

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

Dernière modification :17/03/2013 : 21:06 Hyperlien