home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / kancelar / openoffice / f_0032 / LocalHolidays.xba < prev    next >
Encoding:
Extensible Markup Language  |  2002-11-01  |  36.4 KB  |  636 lines
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
  3. <script:module xmlns:script="http://openoffice.org/2000/script" script:name="LocalHolidays" script:language="StarBasic">Option Explicit
  4.  
  5. Sub Main
  6.     Call CalAutopilotTable()
  7. End Sub
  8.  
  9.  
  10. Sub FindWholeYearHolidays_FRANCE(ByVal YearInt as Integer)
  11. Dim lEasterDate&
  12. Dim lDate&
  13.     CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Jour de l'an", cHolidayType_Full)
  14.     lEasterDate = CalEasterTable(YearInt)
  15.     CalInsertBankholiday(lEasterDate, "P├óques", cHolidayType_Full)
  16.     CalInsertBankholiday(lEasterDate + 10, "Pentec├┤te", cHolidayType_Full)
  17.     CalInsertBankholiday(lEasterDate + 39, "Ascension", cHolidayType_Full)
  18.     CalInsertBankholiday(DateSerial(YearInt, 5, 1), "F├¬te du travail", cHolidayType_Full)
  19.     CalInsertBankholiday(DateSerial(YearInt, 5, 8), "Victoire 1945", cHolidayType_Full)
  20.     CalInsertBankholiday(DateSerial(YearInt, 7, 14), "F├¬te Nationale", cHolidayType_Full)
  21.     CalInsertBankholiday(DateSerial(YearInt, 8, 15), "Assomption", cHolidayType_Full)
  22.     CalInsertBankholiday(DateSerial(YearInt, 11, 1), "Toussaint", cHolidayType_Full)
  23.     CalInsertBankholiday(DateSerial(YearInt, 11, 11), "Armistice ou Victoire 1918", cHolidayType_Full)
  24.     CalInsertBankholiday(DateSerial(YearInt, 12, 25), "No├½l", cHolidayType_Full)
  25. End Sub
  26.  
  27.  
  28. Sub FindWholeYearHolidays_SWED(ByVal YearInt as Integer)
  29. Dim lDate&
  30.     CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Ny├Ñrsdagen", cHolidayType_Full)
  31.     CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Trettondagen", cHolidayType_Full)
  32.     lDate = CalEasterTable(YearInt)
  33.     CalInsertBankholiday(lDate - 2, "L├Ñngfredagen", cHolidayType_Full)
  34.     CalInsertBankholiday(lDate, "P├Ñskdagen", cHolidayType_Full)
  35.     CalInsertBankholiday(lDate + 1, "Annandag p├Ñsk", cHolidayType_Full)
  36.     CalInsertBankholiday(lDate + 39, "Kristi himmelf├ñrds dag", cHolidayType_Full)
  37.     CalInsertBankholiday(lDate + 49, "Pingstdagen", cHolidayType_Full)
  38.     CalInsertBankholiday(lDate + 50, "Annandag pingst", cHolidayType_Full)
  39.     CalInsertBankholiday(DateSerial(YearInt, 5, 1), "1:a maj", cHolidayType_Full)
  40.     ' MidSummerfeast (next Sunday after 20th June)
  41.     CalInsertBankholiday(GetNextWeekday(YearInt, 6, 20, 7), "Midsommardagen", cHolidayType_Full)
  42.     CalInsertBankholiday(GetNextWeekDay(YearInt, 10, 31, 7), "Alla helgons dag", cHolidayType_Full)
  43.     CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Juldagen", cHolidayType_Full)
  44.     CalInsertBankholiday(DateSerial(YearInt, 12, 26), "Annandag jul", cHolidayType_Full)
  45. End Sub
  46.  
  47.  
  48. Sub FindWholeYearHolidays_FI(ByVal YearInt as Integer)
  49.     Dim OsternDate&
  50.     ' New Year
  51.     CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Uudenvuodenp├ñiv├ñ", cHolidayType_Full)
  52.     ' "the three Magi"
  53.     CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Loppiainen", cHolidayType_Half)
  54.     OsternDate = CalEasterTable(YearInt)
  55.     CalInsertBankholiday(OsternDate-2, "Pitk├ñperjantai", cHolidayType_Full)
  56.     CalInsertBankholiday(OsternDate, "P├ñ├ñsi├ñisp├ñiv├ñ", cHolidayType_Full)
  57.     CalInsertBankholiday(OsternDate+1, "2. p├ñ├ñsi├ñisp├ñiv├ñ", cHolidayType_Full)
  58.     ' Ascension Day 
  59.     CalInsertBankholiday(OsternDate+39, "Helatorstai", cHolidayType_Full)
  60.     ' First of May
  61.     CalInsertBankholiday(DateSerial(YearInt, 5, 1), "Vappu, suomalaisen ty├╢n p├ñiv├ñ", cHolidayType_Full)
  62.     ' Mothers Day : 2nd Sunday in May, Full
  63.     CalInsertBankholiday(GetMonthDate(YearInt, 5,1,7), "├äitienp├ñiv├ñ", cHolidayType_Full)
  64.     ' MidSummerfeast (next Sunday after 20th June)
  65.     CalInsertBankholiday(GetNextWeekday(YearInt, 6, 20, 7), "Juhannus, Suomen lipun p├ñiv├ñ", cHolidayType_Full)    
  66.     ' Independance day
  67.     CalInsertBankholiday(DateSerial(YearInt, 12, 6), "Itsen├ñisyysp├ñiv├ñ", cHolidayType_Full)
  68.     ' Christmas
  69.     CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Joulup├ñiv├ñ", cHolidayType_Full)
  70.     CalInsertBankholiday(DateSerial(YearInt, 12, 26), "Tapaninp├ñiv├ñ", cHolidayType_Full)
  71. End Sub
  72.  
  73.  
  74.  
  75. Sub FindWholeYearHolidays_DK (ByVal YearInt as Integer)
  76. Dim lDate&, VierterAdvent&
  77.  
  78.     'New Year
  79.     CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Nyt├Ñrsdag", cHolidayType_Full)
  80.     lDate = CalEasterTable (YearInt)
  81.     '"Fasching"
  82.     CalInsertBankholiday(lDate-49, "Fastelavn", cHolidayType_Half)
  83.     '"Gr├╝ndonnerstag"
  84.     CalInsertBankholiday(lDate-3, "Sk├ªrtorsdag", cHolidayType_Full)
  85.     '"Good Friday  "
  86.     CalInsertBankholiday(lDate-2, "Langfredag", cHolidayType_Full)
  87.     ' Easter Sunday
  88.     CalInsertBankholiday(lDate, "P├Ñskes├╕ndag", cHolidayType_Full)
  89.     ' Easter Monday
  90.     CalInsertBankholiday(lDate+1, "2. p├Ñskedag", cHolidayType_Full)
  91.     ' 4th Friday after Easter
  92.     CalInsertBankholiday(lDate+26, "Store bededag", cHolidayType_Full)
  93.     ' "Ascension Day 
  94.     CalInsertBankholiday(lDate+39, "Kristi himmelfahrt", cHolidayType_Full)
  95.     ' "Whitsunday"
  96.     CalInsertBankholiday(lDate+49, "Pinses├╕ndag", cHolidayType_Full)
  97.     ' "Whitmonday"
  98.     CalInsertBankholiday(lDate+50, "2. pinsedag", cHolidayType_Full)
  99.     CalInsertBankholiday(DateSerial(YearInt, 6, 5), "Grundlovsdag", cHolidayType_Full)
  100.     'Christmas Days
  101.     CalInsertBankholiday(DateSerial(YearInt, 12, 25), "1. juledag", cHolidayType_Full)
  102.     CalInsertBankholiday(DateSerial(YearInt, 12, 26), "2. juledag", cHolidayType_Full)
  103.     CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Hellig 3 konger", cHolidayType_Half)
  104.     CalInsertBankholiday(DateSerial(YearInt, 3, 28), "Dr. Ingrid", cHolidayType_Half)
  105.     CalInsertBankholiday(DateSerial(YearInt, 4, 16), "Dr. Margrete", cHolidayType_Half)
  106.     CalInsertBankholiday(DateSerial(YearInt, 4, 16), "Palmes├╕ndag", cHolidayType_Half)
  107.     ' "Liberation day"
  108.     CalInsertBankholiday(DateSerial(YearInt, 5, 5), "Befrielsesdag", cHolidayType_Half)
  109.     CalInsertBankholiday(DateSerial(YearInt, 5, 26), "Krpr. Frederik", cHolidayType_Half)
  110.     CalInsertBankholiday(DateSerial(YearInt, 6, 7), "Pr. Joachim", cHolidayType_Half)
  111.     CalInsertBankholiday(DateSerial(YearInt, 6, 11), "Pr. Henrik", cHolidayType_Half)
  112.     CalInsertBankholiday(DateSerial(YearInt, 6, 15), "Valdemarsdag", cHolidayType_Half)
  113.     CalInsertBankholiday(DateSerial(YearInt, 6, 24), "Skt. Hans", cHolidayType_Half)
  114.     CalInsertBankholiday(DateSerial(YearInt, 6, 30), "Prinsesse Alexandra", cHolidayType_Half)
  115.     CalInsertBankholiday(DateSerial(YearInt, 8, 28), "Pr. Nikolai", cHolidayType_Half)
  116.     CalInsertBankholiday(DateSerial(YearInt, 10, 24), "FN-dag", cHolidayType_Half)
  117.     CalInsertBankholiday(DateSerial(YearInt, 11, 11), "Morten Bisp", cHolidayType_Half)
  118.     ' all half (Memorial Days)
  119.     '"adventdays
  120.     VierterAdvent = DateSerial(YearInt, 12, 24)
  121.     While (Weekday(VierterAdvent) <> 1)
  122.         vierterAdvent = vierterAdvent - 1
  123.     Wend
  124.     CalInsertBankholiday(vierterAdvent-21, "1. s├╕ndag i advent", cHolidayType_Half)
  125.     CalInsertBankholiday(vierterAdvent-14, "2. s├╕ndag i advent", cHolidayType_Half)
  126.     CalInsertBankholiday(vierterAdvent-7, "3. s├╕ndag i advent", cHolidayType_Half)
  127.     CalInsertBankholiday(vierterAdvent, "4. s├╕ndag i advent", cHolidayType_Half)
  128.     'Christmas eve
  129.     CalInsertBankholiday(DateSerial(YearInt, 12, 24), "Juleaften", cHolidayType_Half)
  130.     '"New Year's eve"
  131.     CalInsertBankholiday(DateSerial(YearInt, 12, 31), "Nyt├Ñrsaften", cHolidayType_Half)
  132. End Sub
  133.  
  134.  
  135. Sub FindWholeYearHolidays_ITA(ByVal YearInt as Integer)
  136. Dim lDate&
  137.     CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Capodanno", cHolidayType_Full)
  138.     CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Epifania", cHolidayType_Full)
  139.     CalInsertBankholiday(DateSerial(YearInt, 4, 25), "Festa della liberazione", cHolidayType_Full)
  140.     CalInsertBankholiday(DateSerial(YearInt, 8, 15), "Ferragusto", cHolidayType_Full)
  141.     CalInsertBankholiday(DateSerial(YearInt, 11, 1), "Tutti i Santi", cHolidayType_Full)
  142.     CalInsertBankholiday(DateSerial(YearInt, 12, 8), "Immacolata concezione", cHolidayType_Full)
  143.     CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Natale", cHolidayType_Full)
  144.     CalInsertBankholiday(DateSerial(YearInt, 12, 26), "Santo Stefano", cHolidayType_Full)
  145.     lDate = CalEasterTable(YearInt)
  146.     CalInsertBankholiday(lDate, "Pasqua", cHolidayType_Full)
  147.     CalInsertBankholiday(lDate+1, "Luned├¼ dell'Angelo", cHolidayType_Full)
  148. End Sub
  149.  
  150.  
  151. Sub FindWholeYearHolidays_TRK(ByVal YearInt as Integer)
  152. Dim lDate as Long
  153.     ' New Years' Day
  154.     CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Y─▒lba┼ƒ─▒", cHolidayType_Full)
  155.     ' National Sovereignty and Children's Day
  156.     CalInsertBankholiday(DateSerial(YearInt, 4, 23), "Ulusal Egemenlik ve ├çocuk Bayram─▒", cHolidayType_Full)
  157.     ' Ataturk Commemoration and Youth & Sports Day
  158.     CalInsertBankholiday(DateSerial(YearInt, 5, 19), "Atat├╝rk'├╝ Anma, Gen├ºlik ve Spor Bayram─▒", cHolidayType_Full)
  159.     ' Mothers Day : 2nd Sunday in May, Full
  160.     CalInsertBankholiday(GetMonthDate(YearInt, 5,1,7), "Anneler g├╝n├╝", cHolidayType_Full)
  161.     ' Fathers Day: 3rd Sunday in May, Full
  162.     CalInsertBankholiday(GetMonthDate(YearInt, 6,1,14), "Babalar G├╝n├╝", cHolidayType_Full)
  163.     ' Victory Day
  164.     CalInsertBankholiday(DateSerial(YearInt, 8, 30), "Zafer Bayram─▒", cHolidayType_Full)
  165.     ' Republic Day
  166.     CalInsertBankholiday(DateSerial(YearInt, 10, 28), "Cumhuriyet Bayram─▒", cHolidayType_Full)
  167.     ' Republic Day
  168.     CalInsertBankholiday(DateSerial(YearInt, 10, 29), "Cumhuriyet Bayram─▒", cHolidayType_Full)
  169.     ' Commemoration Of Ataturk-Anniversary of Ataturk's Death
  170.     CalInsertBankholiday(DateSerial(YearInt, 11, 10), "Atat├╝rk'├╝n ├ûl├╝m G├╝n├╝", cHolidayType_Full)
  171.     CalculateturkishReligousHolidays(YearInt)
  172. End Sub
  173.  
  174.  
  175. Sub CalculateturkishReligousHolidays(iSelYear as Integer)
  176. Dim lKurbanBayRamStartDate as Long
  177. Dim lRamazanBayRamStartDate as Long
  178.  
  179.     Select Case iSelYear
  180.         Case 2002
  181.             lKurbanBayRamStartDate = DateSerial(iSelYear, 2, 21)
  182.             lRamazanBayRamStartDate = DateSerial(iSelYear, 12, 4)
  183.         Case 2003
  184.             lKurbanBayRamStartDate = DateSerial(iSelYear, 2, 10)
  185.             lRamazanBayRamStartDate = DateSerial(iSelYear, 11, 24)
  186.         Case 2004
  187.             lKurbanBayRamStartDate = DateSerial(iSelYear, 1, 31)
  188.             lRamazanBayRamStartDate = DateSerial(iSelYear, 11, 13)
  189.         Case 2005
  190.             lKurbanBayRamStartDate = DateSerial(iSelYear, 1, 19)
  191.             lRamazanBayRamStartDate = DateSerial(iSelYear, 11, 2)
  192.         Case 2006
  193.             lKurbanBayRamStartDate = DateSerial(iSelYear, 12, 30)
  194.             CalInsertBankholiday(lKurbanBayRamStartDate, "Kurban Bayram─▒ Arefesi", cHolidayType_Half)
  195.             CalInsertBankholiday(DateSerial(iSelYear, 12, 31), "Kurban Bayram", cHolidayType_Full)
  196.  
  197.             lKurbanBayRamStartDate = DateSerial(iSelYear, 1, 9)
  198.             lRamazanBayRamStartDate = DateSerial(iSelYear, 10, 22)
  199.         Case 2007
  200.             lKurbanBayRamStartDate = DateSerial(iSelYear, 1, 1)
  201.             ' Note: The first day has already been in 2006!!!
  202.             AddFollowUpHolidays(lKurbanBayRamStartDate-1, 3, "Kurban Bayram", cHolidayType_Full)
  203.             lKurbanBayRamStartDate = DateSerial(iSelYear, 12, 19)
  204.  
  205.             lRamazanBayRamStartDate = DateSerial(iSelYear, 10, 11)
  206.         Case 2008
  207.             lKurbanBayRamStartDate = DateSerial(iSelYear, 12, 7)
  208.             lRamazanBayRamStartDate = DateSerial(iSelYear, 9, 29)
  209.     End Select
  210.     'Feast Of the Sacrifice Eve
  211.     CalInsertBankholiday(lKurbanBayRamStartDate, "Kurban Bayram─▒ Arefesi", cHolidayType_Half)    
  212.     'Feast Of the Sacrifice
  213.     AddFollowUpHolidays(lKurbanBayRamStartDate, 4, "Kurban Bayram", cHolidayType_Full)
  214.     ' End of Ramadan Eve
  215.     CalInsertBankholiday(lRamazanBayRamStartDate, "Ramazan (┼₧eker) Bayram─▒ Arefesi", cHolidayType_Half)
  216.     ' End of Ramadan
  217.     AddFollowUpHolidays(lRamazanBayRamStartDate, 3, "Ramazan (┼₧eker) Bayram─▒", cHolidayType_Full)
  218. End Sub
  219.     
  220.  
  221. Sub FindWholeYearHolidays_GREEK(ByVal YearInt as Integer)
  222. Dim lDate as Long
  223.     ' New Year
  224.     CalInsertBankholiday(DateSerial(YearInt, 1, 1), "╬á╧ü╧ë╧ä╬┐╧ç╧ü╬┐╬╜╬╣╬¼", cHolidayType_Full)
  225.     'Schol Holiday
  226.     CalInsertBankholiday(DateSerial(YearInt, 12, 30), "╬ñ╧ü╬╣╧Ä╬╜ ╬Ö╬╡╧ü╬▒╧ü╧ç╧Ä╬╜", cHolidayType_Full)
  227.     ' This is both a National Holiday and a religious holiday
  228.     CalInsertBankholiday(DateSerial(YearInt, 3, 25), "╬ò╬╕╬╜╬╣╬║╬« ╬ò╬┐╧ü╧ä╬« ╬ò╧à╬▒╬│╬│╬╡╬╗╬╣╧â╬╝╧î╧é ╬ÿ╬╡╬┐╧ä╧î╬║╬┐╧à", cHolidayType_Full)
  229.     ' Labor Day
  230.     CalInsertBankholiday(DateSerial(YearInt, 5, 1), "╬á╧ü╧ë╧ä╬┐╬╝╬▒╬│╬╣╬¼", cHolidayType_Full)
  231.     ' Assumption Day
  232.     CalInsertBankholiday(DateSerial(YearInt, 8, 15), "╬Ü╬┐╬»╬╝╬╖╧â╬╖ ╧ä╬╖╧é ╬ÿ╬╡╬┐╧ä╧î╬║╬┐╧à", cHolidayType_Full)
  233.     ' National Resistance Day
  234.     CalInsertBankholiday(DateSerial(YearInt, 10, 28), "╬ò╬╕╬╜╬╣╬║╬« ╬ò╬┐╧ü╧ä╬«", cHolidayType_Full)
  235.     ' School Holiday
  236.     CalInsertBankholiday(DateSerial(YearInt, 11, 17), "╬ò╧Ç╬¡╧ä╬╡╬╣╬┐╧é ╧ä╬┐╧à ╬á╬┐╬╗╧à╧ä╬╡╧ç╬╜╬╡╬»╬┐╧à", cHolidayType_Full)
  237.     ' Christmas Eve
  238.     CalInsertBankholiday(DateSerial(YearInt, 12, 24), "╬á╬▒╧ü╬▒╬╝╬┐╬╜╬« ╬º╧ü╬╣╧â╧ä╬┐╧à╬│╬¡╬╜╬╜╧ë╬╜", cHolidayType_Full)
  239.     ' Christmas Day
  240.     CalInsertBankholiday(DateSerial(YearInt, 12, 25), "╬º╧ü╬╣╧â╧ä╬┐╧ì╬│╬╡╬╜╬╜╬▒", cHolidayType_Full)
  241.     ' Boxing Day
  242.     CalInsertBankholiday(DateSerial(YearInt, 12, 26), "╬ö╬╡╧ì╧ä╬╡╧ü╬╖ ╬╝╬¡╧ü╬▒ ╬º╧ü╬╣╧â╧ä╬┐╧à╬│╬¡╬╜╬╜╧ë╬╜", cHolidayType_Full)
  243.     lDate = CalOrthodoxEasterTable(YearInt)
  244.     ' Triodon
  245.     CalInsertBankholiday(lDate-70, "╬æ╧ü╧ç╬« ╬ñ╧ü╬╣╧ë╬┤╬»╬┐╧à", cHolidayType_Full)
  246.      ' Meat Fare        
  247.     CalInsertBankholiday(lDate-56, "╬ñ╧â╬╣╬║╬╜╬┐╧Ç╬¡╬╝╧Ç╧ä╬╖", cHolidayType_Full)
  248.     ' First Day of Lent
  249.     CalInsertBankholiday(lDate-48, "╬Ü╬▒╬╕╬▒╧ü╬« ╬ö╬╡╧à╧ä╬¡╧ü╬▒", cHolidayType_Full)
  250.     ' Saturday of Lazarus
  251.     CalInsertBankholiday(lDate-8, "╬ú╬¼╬▓╬▓╬▒╧ä╬┐ ╧ä╬┐╧à ╬¢╬▒╬╢╬¼╧ü╬┐╧à", cHolidayType_Full)
  252.     ' Palm Sunday
  253.     CalInsertBankholiday(lDate-7, "╬Ü╧à╧ü╬╣╬▒╬║╬« ╧ä╧ë╬╜ ╬Æ╬▒╬É╧ë╬╜", cHolidayType_Full)
  254.     ' Monday before Easter
  255.     CalInsertBankholiday(lDate-6, "╬£╬╡╬│╬¼╬╗╬╖ ╬ö╬╡╧à╧ä╬¡╧ü╬▒", cHolidayType_Full)
  256.     ' Tuesday before Easter
  257.     CalInsertBankholiday(lDate-5, "╬£╬╡╬│╬¼╬╗╬╖ ╬ñ╧ü╬»╧ä╬╖", cHolidayType_Full)
  258.     ' Wednesday before Easter
  259.     CalInsertBankholiday(lDate-4, "╬£╬╡╬│╬¼╬╗╬╖ ╬ñ╬╡╧ä╬¼╧ü╧ä╬╖", cHolidayType_Full)
  260.     ' Thursday before Easter
  261.     CalInsertBankholiday(lDate-3, "╬£╬╡╬│╬¼╬╗╬╖ ╬á╬¡╬╝╧Ç╧ä╬╖", cHolidayType_Full)
  262.     ' Good Friday
  263.     CalInsertBankholiday(lDate-2, "╬£╬╡╬│╬¼╬╗╬╖ ╬á╬▒╧ü╬▒╧â╬║╬╡╧à╬«", cHolidayType_Full)
  264.     ' Saturday before Easter
  265.     CalInsertBankholiday(lDate-1, "╬£╬╡╬│╬¼╬╗╬┐ ╬ú╬¼╬▓╬▓╬▒╧ä╬┐", cHolidayType_Full)
  266.     ' Easter Monday
  267.     CalInsertBankholiday(lDate+1, "╬ö╬╡╧à╧ä╬¡╧ü╬▒ ╧ä╬┐╧à ╬á╬¼╧â╧ç╬▒", cHolidayType_Full)
  268.     ' Pentecost    
  269.     CalInsertBankholiday(lDate+49, "╬Ü╧à╧ü╬╣╬▒╬║╬« ╧ä╬╖╧é ╬á╬╡╬╜╧ä╬╖╬║╬┐╧â╧ä╬«╧é", cHolidayType_Full)
  270.     ' Ascension Day
  271.     CalInsertBankholiday(lDate+39, "╬ñ╬┐╧à ╬æ╬│╬»╬┐╧à ╬á╬╜╬╡╧ì╬╝╬▒╧ä╬┐╧é", cHolidayType_Full)
  272.     ' All Saints Day
  273.     CalInsertBankholiday(lDate+56, "╬ñ╧ë╬╜ ╬æ╬│╬»╧ë╬╜ ╬á╬¼╬╜╧ä╧ë╬╜", cHolidayType_Full)
  274. End Sub
  275.  
  276.  
  277. Sub FindWholeYearHolidays_SPAIN(ByVal YearInt as Integer)
  278. Dim lDate&
  279.     CalInsertBankholiday(DateSerial(YearInt, 1, 1), "A├▒o Nuevo", cHolidayType_Full)
  280.     CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Reyes", cHolidayType_Full)
  281.     lDate = CalEasterTable(YearInt)
  282.     CalInsertBankholiday(lDate-2, "Viernes Santo", cHolidayType_Full)
  283.     CalInsertBankholiday(lDate+1, "Lunes de Pascua Florida", cHolidayType_Full)
  284.     CalInsertBankholiday(lDate+39, "D├¡a de la Ascensi├│n", cHolidayType_Full)
  285.     CalInsertBankholiday(DateSerial(YearInt, 5, 1), "Fiesta del Trabajo", cHolidayType_Full)
  286.     CalInsertBankholiday(DateSerial(YearInt, 8, 15), "D├¡a de la Asunci├│n", cHolidayType_Full)
  287.     CalInsertBankholiday(DateSerial(YearInt, 10, 12), "Fiesta de la Hispanidad", cHolidayType_Full)
  288.     CalInsertBankholiday(DateSerial(YearInt, 11, 1), "Todos los Santos", cHolidayType_Full)
  289.     CalInsertBankholiday(DateSerial(YearInt, 12, 6), "D├¡a de la Constituci├│n", cHolidayType_Full)
  290.     CalInsertBankholiday(DateSerial(YearInt, 12, 8), "La Inmaculada", cHolidayType_Full)
  291.     CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Navidad", cHolidayType_Full)
  292. End Sub
  293.  
  294.  
  295. Sub FindWholeYearHolidays_PORT(ByVal YearInt as Integer)
  296. Dim lDate&
  297.     CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Ano Novo", cHolidayType_Full)
  298.     CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Reis Magos", cHolidayType_Half)
  299.     lDate = CalEasterTable(YearInt)
  300.     CalInsertBankholiday(lDate-47, "Carnaval", cHolidayType_Full)
  301.     CalInsertBankholiday(lDate-7, "Domingo de Ramos", cHolidayType_Half)
  302.     CalInsertBankholiday(lDate-2, "Sexta-feira Santa", cHolidayType_Full)
  303.     CalInsertBankholiday(lDate, "P├íscoa", cHolidayType_Full)
  304.     CalInsertBankholiday(DateSerial(YearInt, 4, 25), "25 de Abril", cHolidayType_Full)
  305.     CalInsertBankholiday(DateSerial(YearInt, 5, 1), "Dia do Trabalhador", cHolidayType_Full)
  306.     CalInsertBankholiday(DateSerial(YearInt, 5, 29), "Corpo de Deus", cHolidayType_Full)
  307.     CalInsertBankholiday(DateSerial(YearInt, 6, 10), "Dia de Cam├╡es e das Comunidades Portuguesas", cHolidayType_Full)
  308.     CalInsertBankholiday(DateSerial(YearInt, 6, 24), "S. Jo├úo", cHolidayType_Full)
  309.     CalInsertBankholiday(DateSerial(YearInt, 6, 29), "S. Pedro", cHolidayType_Full)
  310.     CalInsertBankholiday(DateSerial(YearInt, 8, 15), "Assun├º├úo de Nossa Senhora", cHolidayType_Full)
  311.     CalInsertBankholiday(DateSerial(YearInt, 10, 5), "Implanta├º├úo da Rep├║blica", cHolidayType_Full)
  312.     CalInsertBankholiday(DateSerial(YearInt, 11, 1), "Dia de Todos os Santos", cHolidayType_Full)
  313.     CalInsertBankholiday(DateSerial(YearInt, 12, 8), "Imaculada Concei├º├úo", cHolidayType_Full)
  314.     CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Natal", cHolidayType_Full)
  315.     CalInsertBankholiday(DateSerial(YearInt, 12, 1), "Restaura├º├úo da Independ├¬ncia", cHolidayType_Full)
  316.     CalInsertBankholiday(DateSerial(YearInt, 12, 31), "Passagem de Ano", cHolidayType_Half)
  317. End Sub
  318.  
  319.  
  320. Sub FindWholeYearHolidays_NL(ByVal YearInt as Integer)
  321. Dim lDate&
  322.     CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Nieuwjaarsdag", cHolidayType_Full)
  323.     lDate = CalEasterTable(YearInt)
  324.     CalInsertBankholiday(lDate, "1e Paasdag", cHolidayType_Full)
  325.     CalInsertBankholiday(lDate + 1, "2e Paasdag", cHolidayType_Full)
  326.     CalInsertBankholiday(lDate + 39, "Hemelvaartsdag", cHolidayType_Full)
  327.     CalInsertBankholiday(lDate + 49, "1e Pinksterdag", cHolidayType_Full)
  328.     CalInsertBankholiday(lDate + 50, "2e Pinksterdag", cHolidayType_Full)
  329.     CalInsertBankholiday(DateSerial(YearInt, 4, 30), "Koninginnedag", cHolidayType_Full)
  330.     ' Bevrijdingsdag is celebrated every 5th year
  331.     If YearInt Mod 5 = 0 then
  332.         CalInsertBankholiday(DateSerial(YearInt, 5, 5), "Bevrijdingsdag", cHolidayType_Full)
  333.     End if
  334.     CalInsertBankholiday(DateSerial(YearInt, 12, 6), "Sinterklaas", cHolidayType_Half)
  335.     CalInsertBankholiday(DateSerial(YearInt, 12, 25), "1e Kerstdag", cHolidayType_Full)
  336.     CalInsertBankholiday(DateSerial(YearInt, 12, 26), "2e Kerstdag", cHolidayType_Full)
  337. End Sub
  338.  
  339.  
  340. Sub FindWholeYearHolidays_PL (ByVal YearInt as Integer)
  341.     Dim lDate&, OsternDate&
  342.     ' New Year
  343.     CalInsertBankholiday(DateSerial(YearInt, 1, 1), "Nowy Rok", cHolidayType_Full)
  344.     ' "the three Magi"
  345.     CalInsertBankholiday(DateSerial(YearInt, 1, 6), "Trzech Kr├│li", cHolidayType_Half)
  346.     ' "Womens' Day"
  347.     CalInsertBankholiday(DateSerial(YearInt, 3, 8), "Dzie┼ä Kobiet", cHolidayType_Half)
  348.     OsternDate = CalEasterTable(YearInt)
  349.     CalInsertBankholiday(OsternDate-2, "Wielki Pi─àtek", cHolidayType_Full)
  350.     CalInsertBankholiday(OsternDate, "Wielka Niedziela", cHolidayType_Full)
  351.     CalInsertBankholiday(OsternDate+1, "Lany Poniedzia┼éek", cHolidayType_Full)
  352.     ' Ascension Day 
  353.     CalInsertBankholiday(OsternDate+39, "Wniebowst─àpienie", cHolidayType_Full)
  354.     ' Pentecost
  355.     CalInsertBankholiday(OsternDate+49, "Zielone ┼Üwi─àtki", cHolidayType_Full)
  356.     ' Feast of Corpus Christi
  357.     CalInsertBankholiday(OsternDate+60, "Bo┼╝e Cia┼éo", cHolidayType_Full)
  358.     ' First of May
  359.     CalInsertBankholiday(DateSerial(YearInt, 5, 1), "┼Üwi─Öto pracy", cHolidayType_Full)
  360.     ' Memorial day of constitution
  361.     CalInsertBankholiday(DateSerial(YearInt, 5, 3), "Dzie┼ä konstytucji 3-go maja", cHolidayType_Full)
  362.     ' "Childrens' day"
  363.     CalInsertBankholiday(DateSerial(YearInt, 6, 1), "Dzie┼ä Dziecka", cHolidayType_Half)
  364.     ' "Ascension Day"
  365.     CalInsertBankholiday(DateSerial(YearInt, 8, 15), "Matki Boskiej Zielnej", cHolidayType_Half)
  366.     ' "All Saints' Day "
  367.     CalInsertBankholiday(DateSerial(YearInt, 11, 1), "Wszystkich ┼Üwi─Ötych", cHolidayType_Full)
  368.     ' National day"
  369.     CalInsertBankholiday(DateSerial(YearInt, 11, 11), "Dzie┼ä Niepodleg┼éo┼¢ci", cHolidayType_Full)
  370.     ' Christmas Eve
  371.     CalInsertBankholiday(DateSerial(YearInt, 12, 24), "Wigilia", cHolidayType_Half)
  372.     ' Christmas
  373.     CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Bo┼╝e Narodzenie", cHolidayType_Full)
  374.     CalInsertBankholiday(DateSerial(YearInt, 12, 26), "Bo┼╝e Narodzenie", cHolidayType_Full)
  375.     ' "New Year's eve"
  376.     CalInsertBankholiday(DateSerial(YearInt, 12, 31), "Sylwester", cHolidayType_Half)
  377. End Sub
  378.  
  379.  
  380. Sub FindWholeYearHolidays_RU (ByVal YearInt as Integer)
  381. Dim lDate&
  382.     ' New Year
  383.     CalInsertBankholiday(DateSerial(YearInt, 1, 1), "╨¥╨╛╨▓╤ï╨╣ ╨ô╨╛╨┤", cHolidayType_Full)
  384.     CalInsertBankholiday(DateSerial(YearInt, 1, 2), "╨¥╨╛╨▓╤ï╨╣ ╨ô╨╛╨┤", cHolidayType_Full)
  385.     ' Russian Christmas"
  386.     CalInsertBankholiday(DateSerial(YearInt, 1, 7), "╨á╨╛╨╢╨┤╨╡╤ü╤é╨▓╨╛", cHolidayType_Full)
  387.     'Day of Defender of Motherland
  388.     CalInsertBankholiday(DateSerial(YearInt, 2, 23), "╨ö╨╡╨╜╤î ╨ù╨░╤ë╨╕╤é╨╜╨╕╨║╨░ ╨₧╤é╨╡╤ç╨╡╤ü╤é╨▓╨░", cHolidayType_Full)
  389.     ' Woman Day
  390.     CalInsertBankholiday(DateSerial(YearInt, 3, 8), "╨£╨╡╨╢╨┤╤â╨╜╨░╤Ç╨╛╨┤╨╜╤ï╨╣ ╨û╨╡╨╜╤ü╨║╨╕╨╣ ╨ö╨╡╨╜╤î", cHolidayType_Full)
  391.     ' Spring and labor holiday
  392.     CalInsertBankholiday(DateSerial(YearInt, 5, 1), "╨ƒ╤Ç╨░╨╖╨┤╨╜╨╕╨║ ╨Æ╨╡╤ü╨╜╤ï ╨╕ ╨ó╤Ç╤â╨┤╨░", cHolidayType_Full)
  393.     CalInsertBankholiday(DateSerial(YearInt, 5, 2), "╨ƒ╤Ç╨░╨╖╨┤╨╜╨╕╨║ ╨Æ╨╡╤ü╨╜╤ï ╨╕ ╨ó╤Ç╤â╨┤╨░", cHolidayType_Full)
  394.     ' Victory of the second World War
  395.     CalInsertBankholiday(DateSerial(YearInt, 5, 9), "╨ö╨╡╨╜╤î ╨ƒ╨╛╨▒╨╡╨┤╤ï", cHolidayType_Full)
  396.     ' Independence Day
  397.     CalInsertBankholiday(DateSerial(YearInt, 6, 12), "╨ö╨╡╨╜╤î ╨¥╨╡╨╖╨░╨▓╨╕╤ü╨╕╨╝╨╛╤ü╤é╨╕", cHolidayType_Full)
  398.     ' Day of Accord and Conciliation
  399.     CalInsertBankholiday(DateSerial(YearInt, 11, 7), "╨ö╨╡╨╜╤î ╨í╨╛╨│╨╗╨░╤ü╨╕╤Å ╨╕ ╨ƒ╤Ç╨╕╨╝╨╕╤Ç╨╡╨╜╨╕╤Å", cHolidayType_Full)
  400.     ' Constitution Day
  401.     CalInsertBankholiday(DateSerial(YearInt, 12, 12), "╨ö╨╡╨╜╤î ╨Ü╨╛╨╜╤ü╤é╨╕╤é╤â╤å╨╕╨╕", cHolidayType_Full)
  402. End Sub
  403.  
  404.  
  405. Sub FindWholeYearHolidays_US(ByVal YearInt as Integer)
  406. Dim lDate as Long
  407. Dim lFirstNov as Long
  408. Dim lElectDate as Long
  409.     CalInsertBankholiday(DateSerial(YearInt, 1, 1), "New Year's Day", cHolidayType_Full)
  410.     CalInsertBankholiday(DateSerial(YearInt, 2, 2), "Groundhog Day", cHolidayType_Half)
  411.     CalInsertBankholiday(DateSerial(YearInt, 2, 14), "Valentine's Day", cHolidayType_Half)
  412.     CalInsertBankholiday(DateSerial(YearInt, 3, 17), "St Patrick's Day", cHolidayType_Half)
  413.     CalInsertBankholiday(DateSerial(YearInt, 4, 1), "April Fools' Day", cHolidayType_Half)
  414.     CalInsertBankholiday(DateSerial(YearInt, 4, 22), "Earth Day", cHolidayType_Half)
  415.     CalInsertBankholiday(DateSerial(YearInt, 5, 6), "Nurses' Day", cHolidayType_Half)
  416.     CalInsertBankholiday(DateSerial(YearInt, 6, 14), "Flag Day", cHolidayType_Half)
  417.     CalInsertBankholiday(DateSerial(YearInt, 6, 14), "Army Day", cHolidayType_Half)
  418.     CalInsertBankholiday(DateSerial(YearInt, 6, 19), "Juneteenth(Liberation of Slaves)", cHolidayType_Half)
  419.  
  420.     CalInsertBankholiday(DateSerial(YearInt, 7, 4), "Independence Day", cHolidayType_Full)
  421.     CalInsertBankholiday(DateSerial(YearInt, 8, 1), "Air Force Day", cHolidayType_Half)
  422.     CalInsertBankholiday(DateSerial(YearInt, 8, 4), "Coast Guard Day", cHolidayType_Half)
  423.     CalInsertBankholiday(DateSerial(YearInt, 9, 17), "Citizenship Day or Constitution Day", cHolidayType_Half)
  424.     CalInsertBankholiday(DateSerial(YearInt, 10, 16), "Bosses' Day", cHolidayType_Half)
  425.     CalInsertBankholiday(DateSerial(YearInt, 10, 26 ), "Mother-in-Law's Day", cHolidayType_Half)
  426.     CalInsertBankholiday(DateSerial(YearInt, 10, 27), "Navy Day", cHolidayType_Half)
  427.     CalInsertBankholiday(DateSerial(YearInt, 10, 31), "Halloween", cHolidayType_Half)
  428.     CalInsertBankholiday(DateSerial(YearInt, 11, 10), "Marine Corps Day", cHolidayType_Half)
  429.     CalInsertBankholiday(DateSerial(YearInt, 11, 11), "Veteran's Day", cHolidayType_Full)
  430.     CalInsertBankholiday(DateSerial(YearInt, 12, 7), "Pearl Harbor Remembrance Day", cHolidayType_Half)
  431.     CalInsertBankholiday(DateSerial(YearInt, 12, 24), "Christmas Eve", cHolidayType_Half)
  432.     CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Christmas Day", cHolidayType_Full)
  433.     CalInsertBankholiday(DateSerial(YearInt, 12, 31), "New Year's Eve", cHolidayType_Half)
  434.  
  435.     CalInsertBankholiday(CalEasterTable(YearInt), "Easter Sunday", cHolidayType_Half)
  436.  
  437.     ' Inauguration Day occurs every 4 years (1997, 2001) in the year following the presidential election
  438.     ' always on the 20th of January unless this is a Sunday in which case on Monday 21st January
  439.     If YearInt Mod 4 = 1 Then
  440.         lDate = DateSerial(YearInt, 1, 20)
  441.         If WeekDay(lDate) = 1 Then
  442.             CalInsertBankholiday(lDate + 1, "Inauguration Day", cHolidayType_Half)
  443.         Else
  444.             CalInsertBankholiday(lDate, "Inauguration Day", cHolidayType_Half)
  445.         End If
  446.     End If
  447.     ' First Tuesday in November, but only after the 1st of November and only on evenly numbered years
  448.     If YearInt Mod 2 = 0 Then
  449.         lFirstNov = DateSerial(YearInt, 11, 1)
  450.         lElectDate = GetMonthDate(YearInt, 11, 3, 0)
  451.         If lElectDate > lFirstNov Then
  452.             CalInsertBankholiday(lElectDate, "Election Day", cHolidayType_Half)
  453.         Else
  454.             CalInsertBankholiday(lElectDate + 7, "Election Day", cHolidayType_Half)
  455.         End If
  456.     End If
  457.     CalInsertBankholiday(GetMonthDate(YearInt, 1, 2, 14), "Martin Luther King Jr Day", cHolidayType_Full)
  458.     CalInsertBankholiday(GetMonthDate(YearInt, 2, 2, 14), "President's Day", cHolidayType_Full)
  459.     '    Mothers Day : 2nd Sunday in May, Full
  460.     CalInsertBankholiday(GetMonthDate(YearInt, 5,1,7), "Mother's Day", cHolidayType_Full)
  461.  
  462.     ' Wednesday of the last full week of April Administrative Professionals' Day (formerly Secretaries' Day)
  463.     CalInsertBankholiday(GetMonthDate(YearInt, 5, 7, -7)-3, "Administrative Professionals' Day", cHolidayType_Half)
  464.  
  465.     CalInsertBankholiday(GetMonthDate(YearInt, 5, 5, 0), "National Day of Prayer", cHolidayType_Half)
  466.     CalInsertBankholiday(GetMonthDate(YearInt, 5, 7, 14), "Armed Forces Day", cHolidayType_Half)
  467.     '    Fathers Day : 3rd Sunday in June
  468.     CalInsertBankholiday(GetMonthDate(YearInt, 6,1,14), "Father's Day", cHolidayType_Half)
  469.  
  470.     '    Last Monday in May: Menorial Day, Full
  471.     CalInsertBankholiday(GetMonthDate(YearInt, 6, 2, 0)-7, "Memorial Day", cHolidayType_Full)
  472.     CalInsertBankholiday(GetMonthDate(YearInt, 7, 1, 21), "Parents' Day", cHolidayType_Half)
  473.     CalInsertBankholiday(GetMonthDate(YearInt, 8, 1, 0), "Friendship Day", cHolidayType_Half)
  474.  
  475.     '    1st Monday in Sep : Labor Day, Full
  476.     CalInsertBankholiday(GetMonthDate(YearInt, 9, 2, 0), "Labor Day", cHolidayType_Full)
  477.     ' Sunday after Labor Day Grandparents' Day
  478.     CalInsertBankholiday(GetMonthDate(YearInt, 9, 2, 0)+6, "Grandparents' Day", cHolidayType_Half)
  479.  
  480.     CalInsertBankholiday(GetMonthDate(YearInt, 10, 1, 0), "National Children's Day", cHolidayType_Half)
  481.     CalInsertBankholiday(GetMonthDate(YearInt, 10, 2, 7), "Columbus Day", cHolidayType_Full)
  482.     ' Sweetest Day: Third Saturday in October
  483.     CalInsertBankholiday(GetMonthDate(YearInt, 10, 7, 14), "Sweetest Day", cHolidayType_Half)
  484.     '    4th Thu    in Nov : Thanksgiving, Full
  485.     CalInsertBankholiday(GetMonthDate(YearInt, 11, 5, 21), "Thanksgiving", cHolidayType_Full)
  486. End Sub
  487.  
  488.  
  489. Sub FindWholeYearHolidays_JP(ByVal YearInt as Integer)
  490. Dim lDate&
  491.     CalInsertBankholiday(DateSerial(YearInt, 1, 1), "σàâµùÑ", cHolidayType_Full)
  492.     ' 2nd Monday in January
  493.     CalInsertBankholiday(GetMonthDate(YearInt, 1, 2, 7), "µêÉΣ║║πü«µùÑ", cHolidayType_Full)
  494.     CalInsertBankholiday(DateSerial(YearInt, 2, 11), "σ╗║σ¢╜Φ¿ÿσ┐╡πü«µùÑ", cHolidayType_Full)
  495.     CalInsertBankholiday(DateSerial(YearInt, 3, 20), "µÿÑσêåπü«µùÑ", cHolidayType_Full)
  496.     CalInsertBankholiday(DateSerial(YearInt, 4, 29), "πü┐πü⌐πéèπü«µùÑ", cHolidayType_Full)
  497.     CalInsertBankholiday(DateSerial(YearInt, 5, 3), "µå▓µ│òΦ¿ÿσ┐╡µùÑ", cHolidayType_Full)
  498.     CalInsertBankholiday(DateSerial(YearInt, 5, 4), "σ¢╜µ░æπü«Σ╝æµùÑ", cHolidayType_Full)
  499.     CalInsertBankholiday(DateSerial(YearInt, 5, 5), "πüôπü⌐πééπü«µùÑ", cHolidayType_Full)
  500.     CalInsertBankholiday(DateSerial(YearInt, 9, 23), "τºïσêåπü«µùÑ", cHolidayType_Full)
  501.     CalInsertBankholiday(GetMonthDate(YearInt, 10, 2, 7), "Σ╜ôΦé▓πü«µùÑ", cHolidayType_Full)
  502.     CalInsertBankholiday(DateSerial(YearInt, 11, 3), "µûçσîûπü«µùÑ", cHolidayType_Full)
  503.     CalInsertBankholiday(DateSerial(YearInt, 11, 23), "σïñσè┤µäƒΦ¼¥πü«µùÑ", cHolidayType_Full)
  504.     CalInsertBankholiday(DateSerial(YearInt, 12, 23), "σñ⌐τÜçΦ¬òτöƒµùÑ", cHolidayType_Full)
  505.     If YearInt > 2002 Then
  506.         CalInsertBankholiday(GetMonthDate(YearInt, 7, 2, 14), "µ╡╖πü«µùÑ", cHolidayType_Full)
  507.         CalInsertBankholiday(GetMonthDate(YearInt, 9, 2, 14), "µò¼ΦÇüπü«µùÑ", cHolidayType_Full)
  508.     Else
  509.         CalInsertBankholiday(DateSerial(YearInt, 7, 20), "µ╡╖πü«µùÑ", cHolidayType_Full)
  510.         CalInsertBankholiday(DateSerial(YearInt, 9, 15), "µò¼ΦÇüπü«µùÑ", cHolidayType_Full)
  511.     End If
  512. End Sub
  513.  
  514.  
  515. Sub FindWholeYearHolidays_TW(YearInt as Integer)
  516.     CalculateChineseNewYear(YearInt)
  517.     CalInsertBankholiday(DateSerial(YearInt, 1, 1), "σàâµùª", cHolidayType_Full)
  518.     CalInsertBankholiday(DateSerial(YearInt, 2, 28), "σÆîσ╣│τ┤Çσ┐╡µùÑ", cHolidayType_Full)
  519.     CalInsertBankholiday(DateSerial(YearInt, 3, 8), "σ⌐ªσÑ│τ»Ç", cHolidayType_Half)
  520.     CalInsertBankholiday(DateSerial(YearInt, 3, 29), "Θ¥⌐σæ╜σàêτâêτ┤Çσ┐╡µùÑ∩╝êΘ¥Æσ╣┤τ»Ç∩╝ë", cHolidayType_Half)
  521.     CalInsertBankholiday(DateSerial(YearInt, 4, 4), "σàÆτ½Ñτ»Ç", cHolidayType_Half)
  522.     CalInsertBankholiday(DateSerial(YearInt, 4, 5), "µ░æµùŵÄâσóôτ»Ç", cHolidayType_Full)
  523.     CalInsertBankholiday(DateSerial(YearInt, 5, 1), "σï₧σïòτ»Ç", cHolidayType_Full)
  524.     CalInsertBankholiday(GetNextWeekDay(YearInt, 5, 19, 2), "Σ╜¢ΘÖÇΦ¬òΦ╛░τ┤Çσ┐╡µùÑ", cHolidayType_Full) ' Just like Columbus Day
  525.     CalInsertBankholiday(DateSerial(YearInt, 6, 15), "τ½»σìêτ»Ç", cHolidayType_Full)
  526.     CalInsertBankholiday(DateSerial(YearInt, 9, 3), "Φ╗ìΣ║║τ»Ç", cHolidayType_Half)
  527.     CalInsertBankholiday(DateSerial(YearInt, 9, 21), "Σ╕¡τºïτ»Ç", cHolidayType_Full)
  528.     CalInsertBankholiday(GetNextWeekDay(YearInt, 9, 28, 2), "σ¡öσ¡ÉΦ¬òΦ╛░τ┤Çσ┐╡µùÑ∩╝êµòÖσ╕½τ»Ç∩╝ë", cHolidayType_Full) ' Just like Columnbusday
  529.     CalInsertBankholiday(DateSerial(YearInt, 10, 10), "σ£ïµà╢µùÑ", cHolidayType_Full)
  530.     CalInsertBankholiday(DateSerial(YearInt, 10, 25), "Φç║τüúσàëσ╛⌐τ»Ç", cHolidayType_Half)
  531.     CalInsertBankholiday(DateSerial(YearInt, 10, 31), "σàêτ╕╜τ╡▒  Φöúσà¼Φ¬òΦ╛░τ┤Çσ┐╡µùÑ", cHolidayType_Half)
  532.     CalInsertBankholiday(DateSerial(YearInt, 12, 11), "σ£ïτê╢Φ¬òΦ╛░τ┤Çσ┐╡µùÑ∩╝êΣ╕¡ΦÅ»µûçσîûσ╛⌐Φêêτ»Ç∩╝ë", cHolidayType_Half)
  533.     CalInsertBankholiday(DateSerial(YearInt, 12, 25), "Φíîµå▓τ┤Çσ┐╡µùÑ", cHolidayType_Half)
  534. End Sub
  535.  
  536.  
  537. Sub FindWholeYearHolidays_CN(YearInt as Integer)
  538.     CalculateChineseNewYear(YearInt)
  539.     CalInsertBankholiday(DateSerial(YearInt, 1, 1), "σàâµùª", cHolidayType_Full)            ' New Year
  540.     CalInsertBankholiday(DateSerial(YearInt, 3, 8), "σªçσÑ│Φèé", cHolidayType_Half)                       ' Women's Day
  541.     CalInsertBankholiday(DateSerial(YearInt, 4, 5), "µ╕àµÿÄΦèé", cHolidayType_Half)            ' Day of the deads
  542.     CalInsertBankholiday(DateSerial(YearInt, 5, 1), "σè│σè¿Φèé", cHolidayType_Full)            ' International Labour Day
  543.     CalInsertBankholiday(DateSerial(YearInt, 6, 1), "σä┐τ½ÑΦèé", cHolidayType_Half)            ' Children's Day
  544.     CalInsertBankholiday(DateSerial(YearInt, 8, 1), "σ╗║σå¢Φèé", cHolidayType_Half)            ' Foundation of military
  545.     CalInsertBankholiday(DateSerial(YearInt, 10, 1), "σ¢╜σ║åΦèé", cHolidayType_Full)            ' National festival day
  546. End Sub
  547.  
  548.  
  549. ' Unfortunately I could not find a Routine to convert a 'Moon Date' into a gregorian date
  550. Sub CalculateChineseNewYear(iSelYear as Integer)
  551. Dim lDate as Long
  552.     Select Case iSelYear
  553.         Case 1995
  554.             lDate = DateSerial(iSelYear, 1, 31)
  555.         Case 1996
  556.             lDate = DateSerial(iSelYear, 2, 19)
  557.         Case 1997
  558.             lDate = DateSerial(iSelYear, 2, 7)
  559.         Case 1998
  560.             lDate = DateSerial(iSelYear, 1, 28)
  561.         Case 1999
  562.             lDate = DateSerial(iSelYear,2, 16)
  563.         Case 2000
  564.             lDate = DateSerial(iSelYear,2, 5)
  565.         Case 2001
  566.             lDate = DateSerial(iSelYear, 1, 24)
  567.         Case 2002
  568.             lDate = DateSerial(iSelYear,2, 12)
  569.         Case 2003
  570.             lDate = DateSerial(iSelYear,2, 1)
  571.         Case 2004
  572.             lDate = DateSerial(iSelYear, 1, 22)
  573.         Case 2005
  574.             lDate = DateSerial(iSelYear,2, 9)
  575.         Case 2006
  576.             lDate = DateSerial(iSelYear, 1, 29)
  577.         Case 2007
  578.             lDate = DateSerial(iSelYear,2, 18)
  579.         Case 2008
  580.             lDate = DateSerial(iSelYear,2, 7)
  581.         Case 2009
  582.             lDate = DateSerial(iSelYear, 1, 26)
  583.         Case 2010
  584.             lDate = DateSerial(iSelYear,2, 10)
  585.         Case 2011
  586.             lDate = DateSerial(iSelYear,2, 3)
  587.         Case 2012
  588.             lDate = DateSerial(iSelYear, 1, 23)
  589.         Case 2013
  590.             lDate = DateSerial(iSelYear,2, 10)
  591.         Case 2014
  592.             lDate = DateSerial(iSelYear, 1, 31)
  593.         Case 2015
  594.             lDate = DateSerial(iSelYear,2, 19)
  595.         Case 2016
  596.             lDate = DateSerial(iSelYear,2, 9)
  597.         Case 2017
  598.             lDate = DateSerial(iSelYear, 1, 28)
  599.         Case 2018
  600.             lDate = DateSerial(iSelYear,2, 16)
  601.         Case 2019
  602.             lDate = DateSerial(iSelYear,2, 5)
  603.         Case 2020
  604.             lDate = DateSerial(iSelYear, 1, 25)
  605.         Case Else
  606.             Exit Sub
  607.     End Select
  608.     Select Case  sCurCountryLocale
  609.         Case "CN"
  610.             CalInsertBankholiday(lDate-1, "σå£σÄåΘÖñσñò", cHolidayType_Full)
  611.             CalInsertBankholiday(lDate, "µÿÑΦèéσê¥Σ╕Ç", cHolidayType_Full)
  612.             CalInsertBankholiday(lDate+1, "µÿÑΦèéσê¥Σ║î", cHolidayType_Full)
  613.             CalInsertBankholiday(lDate+2, "µÿÑΦèéσê¥Σ╕ë", cHolidayType_Full)
  614.  
  615.         Case Else
  616.             CalInsertBankholiday(lDate-1, "Φ╛▓µ¢åΘÖñσñò", cHolidayType_Full)
  617.             CalInsertBankholiday(lDate, "µÿÑτ»Çσê¥Σ╕Ç", cHolidayType_Full)
  618.             CalInsertBankholiday(lDate+1, "µÿÑτ»Çσê¥Σ║î", cHolidayType_Full)
  619.             CalInsertBankholiday(lDate+2, "µÿÑτ»Çσê¥Σ╕ë", cHolidayType_Full)
  620.     End Select
  621. End Sub
  622.  
  623.  
  624. Function CalculateJapaneseSpringDay(iSelYear as Integer)
  625.     If (iSelYear > 1979) And (iSelYear < 2100) Then
  626.         CalculateJapaneseSpringDay() = Int(20.8431 + 0.242194)* (iSelYear-1980) - (Int((iSelYear-1980)/4))
  627.     End If
  628. End Function
  629.  
  630.  
  631.  
  632. Function CalculateJapaneseAutumnDay(iSelYear as Integer)
  633.     If (iSelYear > 1979) And (iSelYear < 2100) Then
  634.         CalculateJapaneseAutumnDay() = Int(23.8431 + 0.242194)* (iSelYear-1980) - (Int((iSelYear-1980)/4))
  635.     End If
  636. End Function</script:module>