office-gobmx/wizards/source/schedule/LocalHolidays.xba

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="LocalHolidays" script:language="StarBasic">Option Explicit

Sub Main
	Call CalAutopilotTable()
End Sub


Sub FindWholeYearHolidays_FRANCE(ByVal YearInt as Integer)
Dim lEasterDate&amp;
Dim lDate&amp;
	CalInsertBankholiday(DateSerial(YearInt, 1, 1), &quot;Jour de l&apos;an&quot;, cHolidayType_Full)
	lEasterDate = CalEasterTable(YearInt)
	CalInsertBankholiday(lEasterDate, &quot;Pâques&quot;, cHolidayType_Full)
	CalInsertBankholiday(lEasterDate + 10, &quot;Pentecôte&quot;, cHolidayType_Full)
	CalInsertBankholiday(lEasterDate + 39, &quot;Ascension&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 5, 1), &quot;Fête du travail&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 5, 8), &quot;Victoire 1945&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 7, 14), &quot;Fête Nationale&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 8, 15), &quot;Assomption&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 11, 1), &quot;Toussaint&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 11, 11), &quot;Armistice ou Victoire 1918&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 12, 25), &quot;Noël&quot;, cHolidayType_Full)
End Sub


Sub FindWholeYearHolidays_SWED(ByVal YearInt as Integer)
Dim lDate&amp;
	CalInsertBankholiday(DateSerial(YearInt, 1, 1), &quot;Nyårsdagen&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 1, 6), &quot;Trettondagen&quot;, cHolidayType_Full)
	lDate = CalEasterTable(YearInt)
	CalInsertBankholiday(lDate - 2, &quot;Långfredagen&quot;, cHolidayType_Full)
	CalInsertBankholiday(lDate, &quot;Påskdagen&quot;, cHolidayType_Full)
	CalInsertBankholiday(lDate + 1, &quot;Annandag påsk&quot;, cHolidayType_Full)
	CalInsertBankholiday(lDate + 39, &quot;Kristi himmelfärds dag&quot;, cHolidayType_Full)
	CalInsertBankholiday(lDate + 49, &quot;Pingstdagen&quot;, cHolidayType_Full)
	CalInsertBankholiday(lDate + 50, &quot;Annandag pingst&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 5, 1), &quot;1:a maj&quot;, cHolidayType_Full)
	lDate = DateSerial(YearInt, 6, 20)
	While (Weekday(lDate) &lt;&gt; 7)	&apos; Saturday
		lDate = lDate + 1
	Wend
	CalInsertBankholiday(lDate, &quot;Midsommardagen&quot;, cHolidayType_Full)
	lDate = DateSerial(YearInt, 10, 31)
	While (Weekday(lDate) &lt;&gt; 7)	&apos; Saturday
		lDate = lDate + 1
	Wend
	CalInsertBankholiday(lDate, &quot;Alla helgons dag&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 12, 25), &quot;Juldagen&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 12, 26), &quot;Annandag jul&quot;, cHolidayType_Full)
End Sub


Sub FindWholeYearHolidays_DK (ByVal YearInt as Integer)
Dim lDate&amp;, VierterAdvent&amp;

	&apos;New Year
	CalInsertBankholiday(DateSerial(YearInt, 1, 1), &quot;Nytårsdag&quot;, cHolidayType_Full)
	lDate = CalEasterTable (YearInt)
	&apos;&quot;Fasching&quot;
	CalInsertBankholiday(lDate-49, &quot;Fastelavn&quot;, cHolidayType_Half)
	&apos;&quot;Gründonnerstag&quot;
	CalInsertBankholiday(lDate-3, &quot;Skærtorsdag&quot;, cHolidayType_Full)
	&apos;&quot;Karfreitag&quot;
	CalInsertBankholiday(lDate-2, &quot;Langfredag&quot;, cHolidayType_Full)
	&apos; Easter Sunday
	CalInsertBankholiday(lDate, &quot;Påskesøndag&quot;, cHolidayType_Full)
	&apos; Easter Monday
	CalInsertBankholiday(lDate+1, &quot;2. påskedag&quot;, cHolidayType_Full)
	&apos; 4th Friday after Easter
	CalInsertBankholiday(lDate+26, &quot;Store bededag&quot;, cHolidayType_Full)
	&apos; &quot;Christi Himmelfahrt
	CalInsertBankholiday(lDate+39, &quot;Kristi himmelfahrt&quot;, cHolidayType_Full)
	&apos; &quot;Pfingstsonntag&quot;
	CalInsertBankholiday(lDate+49, &quot;Pinsesøndag&quot;, cHolidayType_Full)
	&apos; &quot;Pfingstmontag&quot;
	CalInsertBankholiday(lDate+50, &quot;2. pinsedag&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 6, 5), &quot;Grundlovsdag&quot;, cHolidayType_Full)
	&apos;Christmas Days
	CalInsertBankholiday(DateSerial(YearInt, 12, 25), &quot;1. juledag&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 12, 26), &quot;2. juledag&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 1, 6), &quot;Hellig 3 konger&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 3, 28), &quot;Dr. Ingrid&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 4, 16), &quot;Dr. Margrete&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 4, 16), &quot;Palmesøndag&quot;, cHolidayType_Half)
	&apos; &quot;Befreiungstag&quot;
	CalInsertBankholiday(DateSerial(YearInt, 5, 5), &quot;Befrielsesdag&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 5, 26), &quot;Krpr. Frederik&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 6, 7), &quot;Pr. Joachim&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 6, 11), &quot;Pr. Henrik&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 6, 15), &quot;Valdemarsdag&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 6, 24), &quot;Skt. Hans&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 6, 30), &quot;Prinsesse Alexandra&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 8, 28), &quot;Pr. Nikolai&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 10, 24), &quot;FN-dag&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 11, 11), &quot;Morten Bisp&quot;, cHolidayType_Half)
	&apos; all half (Memorial Days)
	&apos;&quot;Adventsfeiertage
	VierterAdvent = DateSerial(YearInt, 12, 24)
	While (Weekday(VierterAdvent) &lt;&gt; 1)
		vierterAdvent = vierterAdvent - 1
	Wend
	CalInsertBankholiday(vierterAdvent-21, &quot;1. søndag i advent&quot;, cHolidayType_Half)
	CalInsertBankholiday(vierterAdvent-14, &quot;2. søndag i advent&quot;, cHolidayType_Half)
	CalInsertBankholiday(vierterAdvent-7, &quot;3. søndag i advent&quot;, cHolidayType_Half)
	CalInsertBankholiday(vierterAdvent, &quot;4. søndag i advent&quot;, cHolidayType_Half)
	&apos;Christmas eve
	CalInsertBankholiday(DateSerial(YearInt, 12, 24), &quot;Juleaften&quot;, cHolidayType_Half)
	&apos;&quot;Sylvester&quot;
	CalInsertBankholiday(DateSerial(YearInt, 12, 31), &quot;Nytårsaften&quot;, cHolidayType_Half)
End Sub


Sub FindWholeYearHolidays_ITA(ByVal YearInt as Integer)
Dim lDate&amp;
	CalInsertBankholiday(DateSerial(YearInt, 1, 1), &quot;Capodanno&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 1, 6), &quot;Epifania&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 4, 25), &quot;Festa della liberazione&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 8, 15), &quot;Ferragusto&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 11, 1), &quot;Tutti i Santi&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 12, 8), &quot;Immacolata concezione&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 12, 25), &quot;Natale&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 12, 26), &quot;Santo Stefano&quot;, cHolidayType_Full)
	lDate = CalEasterTable(YearInt)
	CalInsertBankholiday(lDate, &quot;Pasqua&quot;, cHolidayType_Full)
	CalInsertBankholiday(lDate+1, &quot;Lunedì dell&apos;Angelo&quot;, cHolidayType_Full)
End Sub


Sub FindWholeYearHolidays_SPAIN(ByVal YearInt as Integer)
Dim lDate&amp;
	CalInsertBankholiday(DateSerial(YearInt, 1, 1), &quot;Año Nuevo&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 1, 6), &quot;Reyes&quot;, cHolidayType_Full)
	lDate = CalEasterTable(YearInt)
	CalInsertBankholiday(lDate-2, &quot;Viernes Santo&quot;, cHolidayType_Full)
	CalInsertBankholiday(lDate+1, &quot;Lunes de Pascua Florida&quot;, cHolidayType_Full)
	CalInsertBankholiday(lDate+39, &quot;Día de la Ascensión&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 5, 1), &quot;Fiesta del Trabajo&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 8, 15), &quot;Día de la Asunción&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 10, 12), &quot;Fiesta de la Hispanidad&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 11, 1), &quot;Todos los Santos&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 12, 6), &quot;Día de la Constitución&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 12, 8), &quot;La Inmaculada&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 12, 25), &quot;Navidad&quot;, cHolidayType_Full)
End Sub


Sub FindWholeYearHolidays_PORT(ByVal YearInt as Integer)
Dim lDate&amp;
	CalInsertBankholiday(DateSerial(YearInt, 1, 1), &quot;Ano Novo&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 1, 6), &quot;Reis Magos&quot;, cHolidayType_Half)	
	lDate = CalEasterTable(YearInt)
	CalInsertBankholiday(lDate-47, &quot;Carnaval&quot;, cHolidayType_Full)
	CalInsertBankholiday(lDate-7, &quot;Domingo de Ramos&quot;, cHolidayType_Half)
	CalInsertBankholiday(lDate-2, &quot;Sexta-feira Santa&quot;, cHolidayType_Full)
	CalInsertBankholiday(lDate, &quot;Páscoa&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 4, 25), &quot;25 de Abril&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 5, 1), &quot;Dia do Trabalhador&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 5, 29), &quot;Corpo de Deus&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 6, 10), &quot;Dia de Camões e das Comunidades Portuguesas&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 6, 24), &quot;S. João&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 6, 29), &quot;S. Pedro&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 8, 15), &quot;Assunção de Nossa Senhora&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 10, 5), &quot;Implantação da República&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 11, 1), &quot;Dia de Todos os Santos&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 12, 8), &quot;Imaculada Conceição&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 12, 25), &quot;Natal&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 12, 1), &quot;Restauração da Independência&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 12, 31), &quot;Passagem de Ano&quot;, cHolidayType_Half)
End Sub


Sub FindWholeYearHolidays_NL(ByVal YearInt as Integer)
Dim lDate&amp;
	CalInsertBankholiday(DateSerial(YearInt, 1, 1), &quot;Nieuwjaarsdag&quot;, cHolidayType_Full)
	lDate = CalEasterTable(YearInt)
	CalInsertBankholiday(lDate, &quot;1e Paasdag&quot;, cHolidayType_Full)
	CalInsertBankholiday(lDate + 1, &quot;2e Paasdag&quot;, cHolidayType_Full)
	CalInsertBankholiday(lDate + 39, &quot;Hemelvaartsdag&quot;, cHolidayType_Full)
	CalInsertBankholiday(lDate + 49, &quot;1e Pinksterdag&quot;, cHolidayType_Full)
	CalInsertBankholiday(lDate + 50, &quot;2e Pinksterdag&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 4, 30), &quot;Koninginnedag&quot;, cHolidayType_Full)
	&apos; Bevrijdingsdag is celebrated every 5th year
	If YearInt Mod 5 = 0 then
		CalInsertBankholiday(DateSerial(YearInt, 5, 5), &quot;Bevrijdingsdag&quot;, cHolidayType_Full)
	End if
	CalInsertBankholiday(DateSerial(YearInt, 12, 6), &quot;Sinterklaas&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 12, 25), &quot;1e Kerstdag&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 12, 26), &quot;2e Kerstdag&quot;, cHolidayType_Full)
End Sub


Sub FindWholeYearHolidays_PL (ByVal YearInt as Integer)
	Dim lDate&amp;, OsternDate&amp;
	&apos; New Year
	CalInsertBankholiday(DateSerial(YearInt, 1, 1), &quot;Nowy Rok&quot;, cHolidayType_Full)
	&apos; &quot;Hl. 3 Könige&quot;
	CalInsertBankholiday(DateSerial(YearInt, 1, 6), &quot;Trzech Króli&quot;, cHolidayType_Half)
	&apos; &quot;Frauentag&quot;
	CalInsertBankholiday(DateSerial(YearInt, 3, 8), &quot;Dzieñ Kobiet&quot;, cHolidayType_Half)
	OsternDate = CalEasterTable(YearInt)
	CalInsertBankholiday(OsternDate-2, &quot;Wielki Pi¹tek&quot;, cHolidayType_Full)
	CalInsertBankholiday(OsternDate, &quot;Wielka Niedziela&quot;, cHolidayType_Full)
	CalInsertBankholiday(OsternDate+1, &quot;Lany Poniedzia³ek&quot;, cHolidayType_Full)
	&apos; Christi Himmelfahrt
	CalInsertBankholiday(OsternDate+39, &quot;Wniebowst¹pienie&quot;, cHolidayType_Full)
	&apos; Pfingsten
	CalInsertBankholiday(OsternDate+49, &quot;Zielone Œwi¹tki&quot;, cHolidayType_Full)
	&apos; Fronleichnam	
	CalInsertBankholiday(OsternDate+60, &quot;Bo¿e Cia³o&quot;, cHolidayType_Full)
	&apos; First of May
	CalInsertBankholiday(DateSerial(YearInt, 5, 1), &quot;Œwiêto pracy&quot;, cHolidayType_Full)
	&apos; Memorial day of constitution
	CalInsertBankholiday(DateSerial(YearInt, 5, 3), &quot;Dzieñ konstytucji 3-go maja&quot;, cHolidayType_Full)
	&apos; &quot;Kindertag&quot;
	CalInsertBankholiday(DateSerial(YearInt, 6, 1), &quot;Dzieñ Dziecka&quot;, cHolidayType_Half)
	&apos; &quot;Maria Himmelfahrt&quot;
	CalInsertBankholiday(DateSerial(YearInt, 8, 15), &quot;Matki Boskiej Zielnej&quot;, cHolidayType_Half)
	&apos; &quot;Allerheiligen&quot;
	CalInsertBankholiday(DateSerial(YearInt, 11, 1), &quot;Wszystkich Œwiêtych&quot;, cHolidayType_Full)
	&apos; National day&quot;
	CalInsertBankholiday(DateSerial(YearInt, 11, 11), &quot;Dzieñ niepod³eg³oœci&quot;, cHolidayType_Full)
	&apos; Christmas Eve
	CalInsertBankholiday(DateSerial(YearInt, 12, 24), &quot;Wigilia&quot;, cHolidayType_Half)
	&apos; Christmas
	CalInsertBankholiday(DateSerial(YearInt, 12, 25), &quot;Bo¿e Narodzenie&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 12, 26), &quot;Bo¿e Narodzenie&quot;, cHolidayType_Full)
	&apos; &quot;Sylvester&quot;
	CalInsertBankholiday(DateSerial(YearInt, 12, 31), &quot;Sylwester&quot;, cHolidayType_Half)
End Sub


Sub FindWholeYearHolidays_RU (ByVal YearInt as Integer)
Dim lDate&amp;
	&apos; New Year
	CalInsertBankholiday(DateSerial(YearInt, 1, 1), &quot;Íîâûé ãîä&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 1, 2), &quot;Íîâûé ãîä&quot;, cHolidayType_Full)
	&apos; Russian Christmas&quot;
	CalInsertBankholiday(DateSerial(YearInt, 1, 7), &quot;Ðîæäåñòâî&quot;, cHolidayType_Full)
	&apos; Woman Day
	CalInsertBankholiday(DateSerial(YearInt, 3, 8), &quot;Ìåæäóíàðîäíûé æåíñêèé äåíü Ïðàçäíèê âåñíû è òðóäà &quot;, cHolidayType_Full)
	&apos;	Easter, get it with look-up table
	lDate = CalEasterTable(YearInt) + 7
	CalInsertBankholiday(lDate, &quot;Ïàñõà&quot;, cHolidayType_Full)
	&apos; First of May
	CalInsertBankholiday(DateSerial(YearInt, 5, 1), &quot;Ïðàçäíèê âåñíû è òðóäà &quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 5, 2), &quot;Ïðàçäíèê âåñíû è òðóäà&quot;, cHolidayType_Full)
	&apos; Victory of the second World War
	CalInsertBankholiday(DateSerial(YearInt, 5, 9), &quot;Äåíü Ïîáåäû&quot;, cHolidayType_Full)
	&apos; End of Soviet Union
	CalInsertBankholiday(DateSerial(YearInt, 6, 12), &quot;Äåíü íåçàâèñèìîñòè&quot;, cHolidayType_Full)
	&apos; Peace Day
	CalInsertBankholiday(DateSerial(YearInt, 11, 7), &quot;Äåíü ñîãëàñèÿ è ïðèìèðåíèÿÄåíü ñîãëàñèÿ è ïðèìèðåíèÿ&quot;, cHolidayType_Full)
	&apos; Constitution Day
	CalInsertBankholiday(DateSerial(YearInt, 12, 12), &quot;Äåíü êîíñòèòóöèè&quot;, cHolidayType_Full)
End Sub


Sub FindWholeYearHolidays_US(ByVal YearInt as Integer)
Dim lDate&amp;

&apos;   &quot;Administrative Professionals&apos; Day&quot;     &quot;False&quot; 8       &quot;4,4&quot;   
&apos;   &quot;Grandparents&apos; Day&quot;     				&quot;False&quot; 1       &quot;9,2,6&quot; 

	CalInsertBankholiday(DateSerial(YearInt, 1, 1), &quot;New Year&apos;s Day&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 1, 17), &quot;Martin Luther King&quot;, cHolidayType_Full)
&apos;   &quot;Birthday of Martin Luther King&quot;        &quot;True&quot;  4       &quot;1,2,14&quot;       Todo: Was ist richtig?

	CalInsertBankholiday(DateSerial(YearInt, 2, 2), &quot;Groundhog Day&quot;, cHolidayType_Half)

	CalInsertBankholiday(DateSerial(YearInt, 2, 12), &quot;Lincoln&apos;s Birthday&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 2, 14), &quot;Valentine&apos;s Day&quot;, cHolidayType_Half)

	CalInsertBankholiday(DateSerial(YearInt, 2, 21), &quot;President&apos;s Day&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 2, 22), &quot;Washington&apos;s Birthday&quot;, cHolidayType_Half)
&apos;   &quot;Washington&apos;s Birthday&quot; 				&quot;True&quot;  4       &quot;2,2,14&quot;        Todo: Was ist richtig?
	
	CalInsertBankholiday(DateSerial(YearInt, 3, 17), &quot;St Patrick&apos;s Day&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 4, 1), &quot;April Fools&apos; Day&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 4, 22), &quot;Earth Day&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 5, 6), &quot;Nurses Day&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 6, 19), &quot;Juneteenth(Liberation of Slaves)&quot;, cHolidayType_Half)
&apos;	CalInsertBankholiday(DateSerial(YearInt, , ), &quot;Sweetest Day&quot;, cHolidayType_Half)	&apos;Todo???
&apos;   &quot;Sweetest Day&quot;  						&quot;False&quot; 1       &quot;10,7,14&quot;       

	&apos;	Last Monday in May: Menorial Day, Full
	lDate = DateSerial(YearInt, 6, 1) - 1
	While WeekDay(lDate) &lt;&gt; 2
		lDate = lDate - 1
	Wend
	CalInsertBankholiday(lDate, &quot;Memorial Day&quot;, cHolidayType_Full)
	
	&apos;	Mothers Day : 2nd Sunday in May, Full
	CalInsertBankholiday(GetMonthDate(5,1,2), &quot;Mother&apos;s Day&quot;, cHolidayType_Full)

	&apos;	Fathers Day : 3rd Sunday in June
	CalInsertBankholiday(GetMonthDate(6,1,3), &quot;Father&apos;s Day&quot;, cHolidayType_Half)
	
	&apos;	Easter, get it with look-up table
	lDate = CalEasterTable(YearInt)
	CalInsertBankholiday(lDate, &quot;Easter Sunday&quot;, cHolidayType_Full)
	
	CalInsertBankholiday(DateSerial(YearInt, 7, 4), &quot;Independence Day&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 9, 17), &quot;Citizenship Day or Constitution Day&quot;, cHolidayType_Half)	
	CalInsertBankholiday(DateSerial(YearInt, 10, 9), &quot;Columbus Day&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 10, 16), &quot;Bosses&apos; Day&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 10, 26 ), &quot;Mother-in-Law&apos;s Day&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 10, 31), &quot;Halloween&quot;, cHolidayType_Half)
	
	&apos;	1st Monday in Sep : Labor Day, Full
	CalInsertBankholiday(GetMonthDate(9,2,1), &quot;Labor Day&quot;, cHolidayType_Full)

	&apos; First Thursday in November 
	CalInsertBankholiday(GetMonthDate(11, 3, 1), &quot;Election Day&quot;, cHolidayType_Full)

	&apos;	3rd Thu	in Nov : Thanksgiving, Full
	CalInsertBankholiday(GetMonthDate(11, 5, 21), &quot;Thanksgiving&quot;, cHolidayType_Full)
	CalInsertBankholiday(GetMonthDate(10, 2 1), &quot;Columbus Day&quot;, cHolidayType_Full)
	CalInsertBankholiday(GetMonthDate(5, 5, 1), &quot;National Day of Prayer&quot;, cHolidayType_Half)
	CalInsertBankholiday(GetMonthDate(7, 1, 21), &quot;Parents&apos; Day&quot;, cHolidayType_Half)
	CalInsertBankholiday(GetMonthDate(8, 1, 1), &quot;Friendship Day&quot;, cHolidayType_Half)
	CalInsertBankholiday(GetMonthDate(10, 1, 1), &quot;National Children&apos;s Day&quot;, cHolidayType_Half)
	CalInsertBankholiday(GetMonthDate(7, 5, 21), &quot;Armed Forces Day&quot;, cHolidayType_Half)

	CalInsertBankholiday(DateSerial(YearInt, 11, 11), &quot;Veteran&apos;s Day&quot;, cHolidayType_Half) &apos; Todo: Oder ganzer Feiertag??
	CalInsertBankholiday(DateSerial(YearInt, 12, 7), &quot;Pearl Harbor Remembrance Day&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 12, 24), &quot;Christmas Eve&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 12, 25), &quot;Christmas Day&quot;, cHolidayType_Full)
	CalInsertBankholiday(DateSerial(YearInt, 12, 26), &quot;Kwanzaa&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 12, 27), &quot;Kwanzaa&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 12, 28), &quot;Kwanzaa&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 12, 29), &quot;Kwanzaa&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 12, 30), &quot;Kwanzaa&quot;, cHolidayType_Half)
	CalInsertBankholiday(DateSerial(YearInt, 12, 31), &quot;Kwanzaa&quot;, cHolidayType_Half)	
	CalInsertBankholiday(DateSerial(YearInt, 12, 31), &quot;New Year&apos;s Eve&quot;, cHolidayType_Half)
End Sub
</script:module>
#94767# macro restructured due to new asian holidays 2001-11-14 11:29:33 -06:00			`<?xml version="1.0" encoding="UTF-8"?>`
			`<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">`
			`<script:module xmlns:script="http://openoffice.org/2000/script" script:name="LocalHolidays" script:language="StarBasic">Option Explicit`

			`Sub Main`
			`Call CalAutopilotTable()`
			`End Sub`


			`Sub FindWholeYearHolidays_FRANCE(ByVal YearInt as Integer)`
			`Dim lEasterDate&`
			`Dim lDate&`
			`CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Jour de l'an", cHolidayType_Full)`
			`lEasterDate = CalEasterTable(YearInt)`
			`CalInsertBankholiday(lEasterDate, "Pâques", cHolidayType_Full)`
			`CalInsertBankholiday(lEasterDate + 10, "Pentecôte", cHolidayType_Full)`
			`CalInsertBankholiday(lEasterDate + 39, "Ascension", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 5, 1), "Fête du travail", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 5, 8), "Victoire 1945", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 7, 14), "Fête Nationale", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 8, 15), "Assomption", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 11, 1), "Toussaint", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 11, 11), "Armistice ou Victoire 1918", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Noël", cHolidayType_Full)`
			`End Sub`


			`Sub FindWholeYearHolidays_SWED(ByVal YearInt as Integer)`
			`Dim lDate&`
			`CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Nyårsdagen", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Trettondagen", cHolidayType_Full)`
			`lDate = CalEasterTable(YearInt)`
			`CalInsertBankholiday(lDate - 2, "Långfredagen", cHolidayType_Full)`
			`CalInsertBankholiday(lDate, "Påskdagen", cHolidayType_Full)`
			`CalInsertBankholiday(lDate + 1, "Annandag påsk", cHolidayType_Full)`
			`CalInsertBankholiday(lDate + 39, "Kristi himmelfärds dag", cHolidayType_Full)`
			`CalInsertBankholiday(lDate + 49, "Pingstdagen", cHolidayType_Full)`
			`CalInsertBankholiday(lDate + 50, "Annandag pingst", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 5, 1), "1:a maj", cHolidayType_Full)`
			`lDate = DateSerial(YearInt, 6, 20)`
			`While (Weekday(lDate) <> 7) ' Saturday`
			`lDate = lDate + 1`
			`Wend`
			`CalInsertBankholiday(lDate, "Midsommardagen", cHolidayType_Full)`
			`lDate = DateSerial(YearInt, 10, 31)`
			`While (Weekday(lDate) <> 7) ' Saturday`
			`lDate = lDate + 1`
			`Wend`
			`CalInsertBankholiday(lDate, "Alla helgons dag", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Juldagen", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 26), "Annandag jul", cHolidayType_Full)`
			`End Sub`


			`Sub FindWholeYearHolidays_DK (ByVal YearInt as Integer)`
			`Dim lDate&, VierterAdvent&`

			`'New Year`
			`CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Nytårsdag", cHolidayType_Full)`
			`lDate = CalEasterTable (YearInt)`
			`'"Fasching"`
			`CalInsertBankholiday(lDate-49, "Fastelavn", cHolidayType_Half)`
			`'"Gründonnerstag"`
			`CalInsertBankholiday(lDate-3, "Skærtorsdag", cHolidayType_Full)`
			`'"Karfreitag"`
			`CalInsertBankholiday(lDate-2, "Langfredag", cHolidayType_Full)`
			`' Easter Sunday`
			`CalInsertBankholiday(lDate, "Påskesøndag", cHolidayType_Full)`
			`' Easter Monday`
			`CalInsertBankholiday(lDate+1, "2. påskedag", cHolidayType_Full)`
			`' 4th Friday after Easter`
			`CalInsertBankholiday(lDate+26, "Store bededag", cHolidayType_Full)`
			`' "Christi Himmelfahrt`
			`CalInsertBankholiday(lDate+39, "Kristi himmelfahrt", cHolidayType_Full)`
			`' "Pfingstsonntag"`
			`CalInsertBankholiday(lDate+49, "Pinsesøndag", cHolidayType_Full)`
			`' "Pfingstmontag"`
			`CalInsertBankholiday(lDate+50, "2. pinsedag", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 6, 5), "Grundlovsdag", cHolidayType_Full)`
			`'Christmas Days`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 25), "1. juledag", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 26), "2. juledag", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Hellig 3 konger", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 3, 28), "Dr. Ingrid", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 4, 16), "Dr. Margrete", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 4, 16), "Palmesøndag", cHolidayType_Half)`
			`' "Befreiungstag"`
			`CalInsertBankholiday(DateSerial(YearInt, 5, 5), "Befrielsesdag", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 5, 26), "Krpr. Frederik", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 6, 7), "Pr. Joachim", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 6, 11), "Pr. Henrik", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 6, 15), "Valdemarsdag", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 6, 24), "Skt. Hans", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 6, 30), "Prinsesse Alexandra", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 8, 28), "Pr. Nikolai", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 10, 24), "FN-dag", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 11, 11), "Morten Bisp", cHolidayType_Half)`
			`' all half (Memorial Days)`
			`'"Adventsfeiertage`
			`VierterAdvent = DateSerial(YearInt, 12, 24)`
			`While (Weekday(VierterAdvent) <> 1)`
			`vierterAdvent = vierterAdvent - 1`
			`Wend`
			`CalInsertBankholiday(vierterAdvent-21, "1. søndag i advent", cHolidayType_Half)`
			`CalInsertBankholiday(vierterAdvent-14, "2. søndag i advent", cHolidayType_Half)`
			`CalInsertBankholiday(vierterAdvent-7, "3. søndag i advent", cHolidayType_Half)`
			`CalInsertBankholiday(vierterAdvent, "4. søndag i advent", cHolidayType_Half)`
			`'Christmas eve`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 24), "Juleaften", cHolidayType_Half)`
			`'"Sylvester"`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 31), "Nytårsaften", cHolidayType_Half)`
			`End Sub`


			`Sub FindWholeYearHolidays_ITA(ByVal YearInt as Integer)`
			`Dim lDate&`
			`CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Capodanno", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Epifania", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 4, 25), "Festa della liberazione", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 8, 15), "Ferragusto", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 11, 1), "Tutti i Santi", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 8), "Immacolata concezione", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Natale", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 26), "Santo Stefano", cHolidayType_Full)`
			`lDate = CalEasterTable(YearInt)`
			`CalInsertBankholiday(lDate, "Pasqua", cHolidayType_Full)`
			`CalInsertBankholiday(lDate+1, "Lunedì dell'Angelo", cHolidayType_Full)`
			`End Sub`


			`Sub FindWholeYearHolidays_SPAIN(ByVal YearInt as Integer)`
			`Dim lDate&`
			`CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Año Nuevo", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Reyes", cHolidayType_Full)`
			`lDate = CalEasterTable(YearInt)`
			`CalInsertBankholiday(lDate-2, "Viernes Santo", cHolidayType_Full)`
			`CalInsertBankholiday(lDate+1, "Lunes de Pascua Florida", cHolidayType_Full)`
			`CalInsertBankholiday(lDate+39, "Día de la Ascensión", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 5, 1), "Fiesta del Trabajo", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 8, 15), "Día de la Asunción", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 10, 12), "Fiesta de la Hispanidad", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 11, 1), "Todos los Santos", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 6), "Día de la Constitución", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 8), "La Inmaculada", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Navidad", cHolidayType_Full)`
			`End Sub`


			`Sub FindWholeYearHolidays_PORT(ByVal YearInt as Integer)`
			`Dim lDate&`
			`CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Ano Novo", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Reis Magos", cHolidayType_Half)`
			`lDate = CalEasterTable(YearInt)`
			`CalInsertBankholiday(lDate-47, "Carnaval", cHolidayType_Full)`
			`CalInsertBankholiday(lDate-7, "Domingo de Ramos", cHolidayType_Half)`
			`CalInsertBankholiday(lDate-2, "Sexta-feira Santa", cHolidayType_Full)`
			`CalInsertBankholiday(lDate, "Páscoa", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 4, 25), "25 de Abril", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 5, 1), "Dia do Trabalhador", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 5, 29), "Corpo de Deus", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 6, 10), "Dia de Camões e das Comunidades Portuguesas", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 6, 24), "S. João", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 6, 29), "S. Pedro", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 8, 15), "Assunção de Nossa Senhora", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 10, 5), "Implantação da República", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 11, 1), "Dia de Todos os Santos", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 8), "Imaculada Conceição", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Natal", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 1), "Restauração da Independência", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 31), "Passagem de Ano", cHolidayType_Half)`
			`End Sub`


			`Sub FindWholeYearHolidays_NL(ByVal YearInt as Integer)`
			`Dim lDate&`
			`CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Nieuwjaarsdag", cHolidayType_Full)`
			`lDate = CalEasterTable(YearInt)`
			`CalInsertBankholiday(lDate, "1e Paasdag", cHolidayType_Full)`
			`CalInsertBankholiday(lDate + 1, "2e Paasdag", cHolidayType_Full)`
			`CalInsertBankholiday(lDate + 39, "Hemelvaartsdag", cHolidayType_Full)`
			`CalInsertBankholiday(lDate + 49, "1e Pinksterdag", cHolidayType_Full)`
			`CalInsertBankholiday(lDate + 50, "2e Pinksterdag", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 4, 30), "Koninginnedag", cHolidayType_Full)`
			`' Bevrijdingsdag is celebrated every 5th year`
			`If YearInt Mod 5 = 0 then`
			`CalInsertBankholiday(DateSerial(YearInt, 5, 5), "Bevrijdingsdag", cHolidayType_Full)`
			`End if`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 6), "Sinterklaas", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 25), "1e Kerstdag", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 26), "2e Kerstdag", cHolidayType_Full)`
			`End Sub`


			`Sub FindWholeYearHolidays_PL (ByVal YearInt as Integer)`
			`Dim lDate&, OsternDate&`
			`' New Year`
			`CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Nowy Rok", cHolidayType_Full)`
			`' "Hl. 3 Könige"`
			`CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Trzech Króli", cHolidayType_Half)`
			`' "Frauentag"`
			`CalInsertBankholiday(DateSerial(YearInt, 3, 8), "Dzieñ Kobiet", cHolidayType_Half)`
			`OsternDate = CalEasterTable(YearInt)`
			`CalInsertBankholiday(OsternDate-2, "Wielki Pi¹tek", cHolidayType_Full)`
			`CalInsertBankholiday(OsternDate, "Wielka Niedziela", cHolidayType_Full)`
			`CalInsertBankholiday(OsternDate+1, "Lany Poniedzia³ek", cHolidayType_Full)`
			`' Christi Himmelfahrt`
			`CalInsertBankholiday(OsternDate+39, "Wniebowst¹pienie", cHolidayType_Full)`
			`' Pfingsten`
			`CalInsertBankholiday(OsternDate+49, "Zielone Œwi¹tki", cHolidayType_Full)`
			`' Fronleichnam`
			`CalInsertBankholiday(OsternDate+60, "Bo¿e Cia³o", cHolidayType_Full)`
			`' First of May`
			`CalInsertBankholiday(DateSerial(YearInt, 5, 1), "Œwiêto pracy", cHolidayType_Full)`
			`' Memorial day of constitution`
			`CalInsertBankholiday(DateSerial(YearInt, 5, 3), "Dzieñ konstytucji 3-go maja", cHolidayType_Full)`
			`' "Kindertag"`
			`CalInsertBankholiday(DateSerial(YearInt, 6, 1), "Dzieñ Dziecka", cHolidayType_Half)`
			`' "Maria Himmelfahrt"`
			`CalInsertBankholiday(DateSerial(YearInt, 8, 15), "Matki Boskiej Zielnej", cHolidayType_Half)`
			`' "Allerheiligen"`
			`CalInsertBankholiday(DateSerial(YearInt, 11, 1), "Wszystkich Œwiêtych", cHolidayType_Full)`
			`' National day"`
			`CalInsertBankholiday(DateSerial(YearInt, 11, 11), "Dzieñ niepod³eg³oœci", cHolidayType_Full)`
			`' Christmas Eve`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 24), "Wigilia", cHolidayType_Half)`
			`' Christmas`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Bo¿e Narodzenie", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 26), "Bo¿e Narodzenie", cHolidayType_Full)`
			`' "Sylvester"`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 31), "Sylwester", cHolidayType_Half)`
			`End Sub`


			`Sub FindWholeYearHolidays_RU (ByVal YearInt as Integer)`
			`Dim lDate&`
			`' New Year`
			`CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Íîâûé ãîä", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 1, 2), "Íîâûé ãîä", cHolidayType_Full)`
			`' Russian Christmas"`
			`CalInsertBankholiday(DateSerial(YearInt, 1, 7), "Ðîæäåñòâî", cHolidayType_Full)`
			`' Woman Day`
			`CalInsertBankholiday(DateSerial(YearInt, 3, 8), "Ìåæäóíàðîäíûé æåíñêèé äåíü Ïðàçäíèê âåñíû è òðóäà ", cHolidayType_Full)`
			`' Easter, get it with look-up table`
			`lDate = CalEasterTable(YearInt) + 7`
			`CalInsertBankholiday(lDate, "Ïàñõà", cHolidayType_Full)`
			`' First of May`
			`CalInsertBankholiday(DateSerial(YearInt, 5, 1), "Ïðàçäíèê âåñíû è òðóäà ", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 5, 2), "Ïðàçäíèê âåñíû è òðóäà", cHolidayType_Full)`
			`' Victory of the second World War`
			`CalInsertBankholiday(DateSerial(YearInt, 5, 9), "Äåíü Ïîáåäû", cHolidayType_Full)`
			`' End of Soviet Union`
			`CalInsertBankholiday(DateSerial(YearInt, 6, 12), "Äåíü íåçàâèñèìîñòè", cHolidayType_Full)`
			`' Peace Day`
			`CalInsertBankholiday(DateSerial(YearInt, 11, 7), "Äåíü ñîãëàñèÿ è ïðèìèðåíèÿÄåíü ñîãëàñèÿ è ïðèìèðåíèÿ", cHolidayType_Full)`
			`' Constitution Day`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 12), "Äåíü êîíñòèòóöèè", cHolidayType_Full)`
			`End Sub`


			`Sub FindWholeYearHolidays_US(ByVal YearInt as Integer)`
			`Dim lDate&`

			`' "Administrative Professionals' Day" "False" 8 "4,4"`
			`' "Grandparents' Day" "False" 1 "9,2,6"`

			`CalInsertBankholiday(DateSerial(YearInt, 1, 1), "New Year's Day", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 1, 17), "Martin Luther King", cHolidayType_Full)`
			`' "Birthday of Martin Luther King" "True" 4 "1,2,14" Todo: Was ist richtig?`

			`CalInsertBankholiday(DateSerial(YearInt, 2, 2), "Groundhog Day", cHolidayType_Half)`

			`CalInsertBankholiday(DateSerial(YearInt, 2, 12), "Lincoln's Birthday", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 2, 14), "Valentine's Day", cHolidayType_Half)`

			`CalInsertBankholiday(DateSerial(YearInt, 2, 21), "President's Day", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 2, 22), "Washington's Birthday", cHolidayType_Half)`
			`' "Washington's Birthday" "True" 4 "2,2,14" Todo: Was ist richtig?`

			`CalInsertBankholiday(DateSerial(YearInt, 3, 17), "St Patrick's Day", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 4, 1), "April Fools' Day", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 4, 22), "Earth Day", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 5, 6), "Nurses Day", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 6, 19), "Juneteenth(Liberation of Slaves)", cHolidayType_Half)`
			`' CalInsertBankholiday(DateSerial(YearInt, , ), "Sweetest Day", cHolidayType_Half) 'Todo???`
			`' "Sweetest Day" "False" 1 "10,7,14"`

			`' Last Monday in May: Menorial Day, Full`
			`lDate = DateSerial(YearInt, 6, 1) - 1`
			`While WeekDay(lDate) <> 2`
			`lDate = lDate - 1`
			`Wend`
			`CalInsertBankholiday(lDate, "Memorial Day", cHolidayType_Full)`

			`' Mothers Day : 2nd Sunday in May, Full`
			`CalInsertBankholiday(GetMonthDate(5,1,2), "Mother's Day", cHolidayType_Full)`

			`' Fathers Day : 3rd Sunday in June`
			`CalInsertBankholiday(GetMonthDate(6,1,3), "Father's Day", cHolidayType_Half)`

			`' Easter, get it with look-up table`
			`lDate = CalEasterTable(YearInt)`
			`CalInsertBankholiday(lDate, "Easter Sunday", cHolidayType_Full)`

			`CalInsertBankholiday(DateSerial(YearInt, 7, 4), "Independence Day", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 9, 17), "Citizenship Day or Constitution Day", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 10, 9), "Columbus Day", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 10, 16), "Bosses' Day", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 10, 26 ), "Mother-in-Law's Day", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 10, 31), "Halloween", cHolidayType_Half)`

			`' 1st Monday in Sep : Labor Day, Full`
			`CalInsertBankholiday(GetMonthDate(9,2,1), "Labor Day", cHolidayType_Full)`

			`' First Thursday in November`
			`CalInsertBankholiday(GetMonthDate(11, 3, 1), "Election Day", cHolidayType_Full)`

			`' 3rd Thu in Nov : Thanksgiving, Full`
			`CalInsertBankholiday(GetMonthDate(11, 5, 21), "Thanksgiving", cHolidayType_Full)`
			`CalInsertBankholiday(GetMonthDate(10, 2 1), "Columbus Day", cHolidayType_Full)`
			`CalInsertBankholiday(GetMonthDate(5, 5, 1), "National Day of Prayer", cHolidayType_Half)`
			`CalInsertBankholiday(GetMonthDate(7, 1, 21), "Parents' Day", cHolidayType_Half)`
			`CalInsertBankholiday(GetMonthDate(8, 1, 1), "Friendship Day", cHolidayType_Half)`
			`CalInsertBankholiday(GetMonthDate(10, 1, 1), "National Children's Day", cHolidayType_Half)`
			`CalInsertBankholiday(GetMonthDate(7, 5, 21), "Armed Forces Day", cHolidayType_Half)`

			`CalInsertBankholiday(DateSerial(YearInt, 11, 11), "Veteran's Day", cHolidayType_Half) ' Todo: Oder ganzer Feiertag??`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 7), "Pearl Harbor Remembrance Day", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 24), "Christmas Eve", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Christmas Day", cHolidayType_Full)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 26), "Kwanzaa", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 27), "Kwanzaa", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 28), "Kwanzaa", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 29), "Kwanzaa", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 30), "Kwanzaa", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 31), "Kwanzaa", cHolidayType_Half)`
			`CalInsertBankholiday(DateSerial(YearInt, 12, 31), "New Year's Eve", cHolidayType_Half)`
			`End Sub`
			`</script:module>`