From 619b8518ecc560633e0eba6f624e12bedb372fc0 Mon Sep 17 00:00:00 2001 From: Behrend Cornelius Date: Mon, 14 Oct 2002 15:16:58 +0000 Subject: #96771# several changes --- wizards/source/schedule/LocalHolidays.xba | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'wizards/source/schedule/LocalHolidays.xba') diff --git a/wizards/source/schedule/LocalHolidays.xba b/wizards/source/schedule/LocalHolidays.xba index 62d91b135fc2..d5bb35ceacdd 100644 --- a/wizards/source/schedule/LocalHolidays.xba +++ b/wizards/source/schedule/LocalHolidays.xba @@ -45,6 +45,7 @@ Dim lDate& End Sub + Sub FindWholeYearHolidays_FI(ByVal YearInt as Integer) Dim OsternDate& ' New Year @@ -148,6 +149,7 @@ Dim lDate& End Sub + Sub FindWholeYearHolidays_TRK(ByVal YearInt as Integer) Dim lDate as Long ' New Years' Day @@ -168,6 +170,7 @@ Dim lDate as Long CalInsertBankholiday(DateSerial(YearInt, 10, 29), "Cumhuriyet Bayramı", cHolidayType_Full) ' Commemoration Of Ataturk-Anniversary of Ataturk's Death CalInsertBankholiday(DateSerial(YearInt, 11, 10), "Atatürk'ün Ölüm Günü", cHolidayType_Full) + CalculateturkishReligousHolidays(YearInt) End Sub @@ -181,7 +184,7 @@ Dim lRamazanBayRamStartDate as Long lRamazanBayRamStartDate = DateSerial(iSelYear, 12, 4) Case 2003 lKurbanBayRamStartDate = DateSerial(iSelYear, 2, 10) - lRamazanBayRamStartDate = DateSerial(iSelYear, 11, 14) + lRamazanBayRamStartDate = DateSerial(iSelYear, 11, 24) Case 2004 lKurbanBayRamStartDate = DateSerial(iSelYear, 1, 31) lRamazanBayRamStartDate = DateSerial(iSelYear, 11, 13) @@ -199,7 +202,7 @@ Dim lRamazanBayRamStartDate as Long lKurbanBayRamStartDate = DateSerial(iSelYear, 1, 1) ' Note: The first day has already been in 2006!!! AddFollowUpHolidays(lKurbanBayRamStartDate-1, 3, "Kurban Bayram", cHolidayType_Full) - lKurbanBayRamStartDate = DateSerial(iSelYear, 12, 20) + lKurbanBayRamStartDate = DateSerial(iSelYear, 12, 19) lRamazanBayRamStartDate = DateSerial(iSelYear, 10, 11) Case 2008 @@ -273,6 +276,7 @@ Dim lDate as Long End Sub + Sub FindWholeYearHolidays_SPAIN(ByVal YearInt as Integer) Dim lDate& CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Año Nuevo", cHolidayType_Full) -- cgit