diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2002-10-14 15:16:58 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2002-10-14 15:16:58 +0000 |
| commit | 619b8518ecc560633e0eba6f624e12bedb372fc0 (patch) | |
| tree | 817134cda3fc1d369c0e7219dc802e5cfdbf5b74 /wizards/source/schedule/LocalHolidays.xba | |
| parent | #104063# check if schema is used if not usde as catalog (diff) | |
| download | core-619b8518ecc560633e0eba6f624e12bedb372fc0.tar.gz core-619b8518ecc560633e0eba6f624e12bedb372fc0.zip | |
#96771# several changes
Diffstat (limited to 'wizards/source/schedule/LocalHolidays.xba')
| -rw-r--r-- | wizards/source/schedule/LocalHolidays.xba | 8 |
1 files changed, 6 insertions, 2 deletions
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) |