14 minutes
ago: Please note that the webserver will soon get its weekly reboot at 4:00 am Eastern Time. You may continue to use the site as normal, but you will be logged off at that time. You should be able to log right back on immediately, however. If you are in the process of placing an order, please make sure to complete it as quickly as possible, or come back after the reboot. Thank you. Sorry for any inconvenience.
Dismiss
In this tutorial I will explain how to highlight the current day of the current month.
The original code for changing none current month days is in the Form_DatePickerF so this would be a good place to start.
We need to compare the Current Day, Month and Year against the Day, Month and Year of the Date on the Form.
You are welcome to change the colour for vbRed too
Form_DatePickerF
Public Sub OpenCalendar()
...
'Dim today As Date
'today = Date
Dim todayDay As Integer
todayDay = Day(Date)
Dim todayMonth As Integer
todayMonth = Month(Date)
Dim todayYear As Integer
todayYear = Year(Date)
...
For X = 1 To 42
...
If (X = todayDay And _
Month(Forms!MonthlyCalendarF(S1)) = todayMonth And _
Year(Forms!MonthlyCalendarF(S1)) = todayYear) Then
Forms!MonthlyCalendarF(S2).BackColor = vbRed
Else
Forms!MonthlyCalendarF(S2).BackColor = &HFFFFFF
End If
...
Next X
End Sub
By: 
