From 591b7eb653189c946f248d4696a12554ff00744e Mon Sep 17 00:00:00 2001 From: Behrend Cornelius Date: Fri, 15 Feb 2002 13:09:52 +0000 Subject: #97566# Holiday for 1st January in Taiwan inserted --- wizards/source/schedule/LocalHolidays.xba | 5 +++-- 1 file changed, 3 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 21768d0eeeb8..973944033d55 100644 --- a/wizards/source/schedule/LocalHolidays.xba +++ b/wizards/source/schedule/LocalHolidays.xba @@ -369,6 +369,7 @@ End Sub Sub FindWholeYearHolidays_TW(YearInt as Integer) CalculateChineseNewYear(YearInt) + CalInsertBankholiday(DateSerial(YearInt, 1, 1), "元旦", cHolidayType_Full) CalInsertBankholiday(DateSerial(YearInt, 2, 28), "和平紀念日", cHolidayType_Full) CalInsertBankholiday(DateSerial(YearInt, 3, 8), "婦女節", cHolidayType_Half) CalInsertBankholiday(DateSerial(YearInt, 3, 29), "革命先烈紀念日（青年節）", cHolidayType_Half) @@ -404,7 +405,7 @@ End Function Sub FindWholeYearHolidays_CN(YearInt as Integer) CalculateChineseNewYear(YearInt) CalInsertBankholiday(DateSerial(YearInt, 1, 1), "元旦", cHolidayType_Full) ' New Year - CalInsertBankholiday(DateSerial(YearInt, 3, 8), "妇女节", cHolidayType_Half) ' Women's Day + CalInsertBankholiday(DateSerial(YearInt, 3, 8), "妇女节", cHolidayType_Half) ' Women's Day CalInsertBankholiday(DateSerial(YearInt, 4, 5), "清明节", cHolidayType_Half) ' Day of the deads CalInsertBankholiday(DateSerial(YearInt, 5, 1), "劳动节", cHolidayType_Full) ' International Labour Day CalInsertBankholiday(DateSerial(YearInt, 6, 1), "儿童节", cHolidayType_Half) ' Children's Day @@ -499,4 +500,4 @@ Function CalculateJapaneseAutumnDay(iSelYear as Integer) If (iSelYear > 1979) And (iSelYear < 2100) Then CalculateJapaneseAutumnDay() = Int(23.8431 + 0.242194)* (iSelYear-1980) - (Int((iSelYear-1980)/4)) End If -End Function +End Function \ No newline at end of file -- cgit