This function returns the name of the holiday celebrated on the specified date.
object.GetCountryHolidays()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
Display the name of the holiday celebrated on the specified date.
Dim aCountryHolidays
Dim aDate
Dim aMessage
Set aCountryHolidays = Profile.GetCountryHolidays
aDate = "01/01/2019"
if aCountryHolidays.IsHoliday(aDate) then
aMessage = "On " & aDate & " there is " & aCountryHolidays.GetHolidayName(aDate)
else
aMessage = "On " & aDate & " there are no holidays "
end if
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface the calendar with Country Holidays can be found in
.