Private Sub IblDown_Click()
Dim strd As String
Dim iMonth, iYear, iStartofMonthDay As Integer
Dim startOfMonth, trackingDate As Date
Dim cDay As control
strd = Mois.Caption
Mois.Caption = Format(DateAdd(« m », -1, CDate(strd)), « mmmm yyyy »)
iYear = Year(DateAdd(« m », -1, CDate(strd)))
iMonth = Month(DateAdd(« m », -1, CDate(strd)))
startOfMonth = DateSerial(iYear, iMonth, 1)
iStartofMonthDay = Weekday(startOfMonth, vbMonday)
trackingDate = DateAdd(« d », -iStartofMonthDay + 1, startOfMonth)
For i = 1 To 30
’ Skip weekends
While Weekday(trackingDate) = 7 Or Weekday(trackingDate) = 1 ’ If it’s Saturday or Sunday
trackingDate = DateAdd(« d », 1, trackingDate) ’ Skip to next day
Wend
Set cDay = MiniCalendrier.Controls("Jour" & i)
cDay.Caption = Day(trackingDate)
cDay.Tag = trackingDate
' Check if the month of the trackingDate is different from the current month
If Month(trackingDate) <> iMonth Then
cDay.ForeColor = 8421504 ' Change the color to gray
Else
cDay.ForeColor = 0 ' Change the color to black
End If
trackingDate = DateAdd("d", 1, trackingDate)
Next
End Sub
Private Sub IblUp_Click()
Dim strd As String
Dim iMonth, iYear, iStartofMonthDay As Integer
Dim startOfMonth, trackingDate As Date
Dim cDay As control
strd = Mois.Caption
Mois.Caption = Format(DateAdd(« m », 1, CDate(strd)), « mmmm yyyy »)
iYear = Year(DateAdd(« m », 1, CDate(strd)))
iMonth = Month(DateAdd(« m », 1, CDate(strd)))
startOfMonth = DateSerial(iYear, iMonth, 1)
iStartofMonthDay = Weekday(startOfMonth, vbMonday)
trackingDate = DateAdd(« d », -iStartofMonthDay + 1, startOfMonth)
For i = 1 To 30
’ Skip weekends
While Weekday(trackingDate) = 7 Or Weekday(trackingDate) = 1 ’ If it’s Saturday or Sunday
trackingDate = DateAdd(« d », 1, trackingDate) ’ Skip to next day
Wend
Set cDay = MiniCalendrier.Controls("Jour" & i)
cDay.Caption = Day(trackingDate)
cDay.Tag = trackingDate
' Check if the month of the trackingDate is different from the current month
If Month(trackingDate) <> iMonth Then
cDay.ForeColor = 8421504 ' Change the color to gray
Else
cDay.ForeColor = 0 ' Change the color to black
End If
trackingDate = DateAdd("d", 1, trackingDate)
Next
End Sub