Option Explicit
Sub Test()
MsgBox BasicCalendar(Date)
'MsgBox AdvancedCalendar(Date)
'MsgBox AdvancedCalendar2(Date)
lbl_Exit:
Exit Sub
End Sub
Function BasicCalendar(StartDate As Date) As String
Dim oFrm As New CalendarForm
BasicCalendar = oFrm.GetDate( _
SelectedDate:=StartDate, _
TodayFontColor:=RGB(255, 0, 0))
lbl_Exit:
Set oFrm = Nothing
Exit Function
End Function
Function AdvancedCalendar(StartDate As Date) As String
Dim oFrm As New CalendarForm
AdvancedCalendar = oFrm.GetDate( _
SelectedDate:=StartDate, _
FirstDayOfWeek:=Monday, _
DateFontSize:=12, _
TodayButton:=True, _
OkayButton:=True, _
ShowWeekNumbers:=True, _
BackgroundColor:=RGB(243, 249, 251), _
HeaderColor:=RGB(147, 205, 2221), _
HeaderFontColor:=RGB(255, 255, 255), _
SubHeaderColor:=RGB(223, 240, 245), _
SubHeaderFontColor:=RGB(31, 78, 120), _
DateColor:=RGB(243, 249, 251), _
DateFontColor:=RGB(31, 78, 120), _
TrailingMonthFontColor:=RGB(155, 194, 230), _
DateHoverColor:=RGB(223, 240, 245), _
DateSelectedColor:=RGB(202, 223, 242), _
SaturdayFontColor:=RGB(0, 176, 240), _
SundayFontColor:=RGB(0, 176, 240), _
TodayFontColor:=RGB(0, 176, 80))
lbl_Exit:
Set oFrm = Nothing
Exit Function
End Function
Function AdvancedCalendar2(StartDate As Date) As String
Dim oFrm As New CalendarForm
AdvancedCalendar2 = oFrm.GetDate( _
SelectedDate:=StartDate, _
DateFontSize:=11, _
TodayButton:=True, _
BackgroundColor:=RGB(191, 225, 192), _
HeaderColor:=RGB(87, 98, 52), _
HeaderFontColor:=RGB(255, 255, 255), _
SubHeaderColor:=RGB(191, 225, 192), _
SubHeaderFontColor:=RGB(55, 86, 35), _
DateColor:=RGB(242, 248, 238), _
DateFontColor:=RGB(87, 98, 52), _
SaturdayFontColor:=RGB(55, 86, 35), _
SundayFontColor:=RGB(55, 86, 35), _
TrailingMonthFontColor:=RGB(106, 163, 67), _
DateHoverColor:=RGB(198, 224, 180), _
DateSelectedColor:=RGB(191, 225, 192), _
TodayFontColor:=RGB(255, 0, 0), _
DateSpecialEffect:=fmSpecialEffectRaised)
lbl_Exit:
Set oFrm = Nothing
Exit Function
End Function