=== ישן
Private Sub isHoliday_OnDays(a_HebDate As HebDateType, a_iDayFrom As Int, a_iDayTo As Int) As Boolean
Return a_iDayFrom <= a_HebDate.m_iDay And a_HebDate.m_iDay <= a_iDayTo + 1
End Sub
Public Sub isHoliday_Simchat_Torah(a_HebDate As HebDateType) As Boolean
'https://en.wikipedia.org/wiki/Simchat_Torah
Return isHoliday_OnMonthDays(a_HebDate, MONTH_Tishrei, 22, 22, 23)
End Sub
=========== חדש
Private Sub isHoliday_OnDays(a_HebDate As HebDateType, a_iDayFrom As Int, a_iDayTo As Int) As Boolean
Return a_iDayFrom <= a_HebDate.m_iDay And a_HebDate.m_iDay <= a_iDayTo
End Sub
Public Sub isHoliday_Simchat_Torah(a_HebDate As HebDateType) As Boolean
'https://en.wikipedia.org/wiki/Simchat_Torah
'22nd (outside of Israel 23rd) day of Tishrei
Return isHoliday_OnMonthDays(a_HebDate, MONTH_Tishrei, 22, 22, 23, 23)
End Sub