home *** CD-ROM | disk | FTP | other *** search
/ Kompuutteri Kaikille K-CD 2002 #3 / K-CD_2002-03.iso / OpenOffice / f_0031 / HolidayDanmark.xba < prev    next >
Extensible Markup Language  |  2001-07-20  |  4KB  |  82 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="HolidayDanmark" script:language="StarBasic">REM  *****  BASIC  *****
  4. Option Explicit
  5.  
  6. Sub Main
  7.     Call CalAutopilotTable()
  8. End Sub
  9.  
  10.  
  11.  
  12. Sub FindWholeYearHolidays_DK (ByVal YearInt%)
  13. Dim lDate&, VierterAdvent&
  14.  
  15.     'New Year
  16.     CalInsertBankholiday(DateSerial(YearInt%, 1, 1), "Nyt├Ñrsdag", cHolidayType_Full)
  17.     '    Easter, get it with look-up table
  18.     lDate& = CalEasterTable& (YearInt%)
  19.  
  20.     '"Fasching"
  21.     CalInsertBankholiday(lDate&-49, "Fastelavn", cHolidayType_Half)
  22.  
  23.     '"Gr├╝ndonnerstag"
  24.     CalInsertBankholiday(lDate&-3, "Sk├ªrtorsdag", cHolidayType_Full)
  25.     '"Karfreitag"
  26.     CalInsertBankholiday(lDate&-2, "Langfredag", cHolidayType_Full)
  27.     ' Easter Sunday
  28.     CalInsertBankholiday(lDate&, "P├Ñskes├╕ndag", cHolidayType_Full)
  29.     ' Easter Monday
  30.     CalInsertBankholiday(lDate&+1, "2. p├Ñskedag", cHolidayType_Full)
  31.     ' 4th Friday after Easter
  32.     CalInsertBankholiday(lDate&+26, "Store bededag", cHolidayType_Full)
  33.  
  34.     ' "Christi Himmelfahrt
  35.     CalInsertBankholiday(lDate&+39, "Kristi himmelfahrt", cHolidayType_Full)
  36.     ' "Pfingstsonntag"
  37.     CalInsertBankholiday(lDate&+49, "Pinses├╕ndag", cHolidayType_Full)
  38.     ' "Pfingstmontag"
  39.     CalInsertBankholiday(lDate&+50, "2. pinsedag", cHolidayType_Full)
  40.  
  41.     CalInsertBankholiday(DateSerial(YearInt%, 6, 5), "Grundlovsdag", cHolidayType_Full)
  42.  
  43.     'Christmas Days
  44.     CalInsertBankholiday(DateSerial(YearInt%, 12, 25), "1. juledag", cHolidayType_Full)
  45.     CalInsertBankholiday(DateSerial(YearInt%, 12, 26), "2. juledag", cHolidayType_Full)
  46.     
  47.     CalInsertBankholiday(DateSerial(YearInt%, 1, 6), "Hellig 3 konger", cHolidayType_Half)
  48.  
  49.     CalInsertBankholiday(DateSerial(YearInt%, 3, 28), "Dr. Ingrid", cHolidayType_Half)
  50.     CalInsertBankholiday(DateSerial(YearInt%, 4, 16), "Dr. Margrete", cHolidayType_Half)
  51.     CalInsertBankholiday(DateSerial(YearInt%, 4, 16), "Palmes├╕ndag", cHolidayType_Half)
  52.     ' "Befreiungstag"
  53.     CalInsertBankholiday(DateSerial(YearInt%, 5, 5), "Befrielsesdag", cHolidayType_Half)
  54.     CalInsertBankholiday(DateSerial(YearInt%, 5, 26), "Krpr. Frederik", cHolidayType_Half)
  55.     CalInsertBankholiday(DateSerial(YearInt%, 6, 7), "Pr. Joachim", cHolidayType_Half)
  56.     CalInsertBankholiday(DateSerial(YearInt%, 6, 11), "Pr. Henrik", cHolidayType_Half)
  57.     CalInsertBankholiday(DateSerial(YearInt%, 6, 15), "Valdemarsdag", cHolidayType_Half)
  58.     CalInsertBankholiday(DateSerial(YearInt%, 6, 24), "Skt. Hans", cHolidayType_Half)
  59.     CalInsertBankholiday(DateSerial(YearInt%, 6, 30), "Prinsesse Alexandra", cHolidayType_Half)
  60.     CalInsertBankholiday(DateSerial(YearInt%, 8, 28), "Pr. Nikolai", cHolidayType_Half)
  61.     CalInsertBankholiday(DateSerial(YearInt%, 10, 24), "FN-dag", cHolidayType_Half)
  62.     CalInsertBankholiday(DateSerial(YearInt%, 11, 11), "Morten Bisp", cHolidayType_Half)
  63.  
  64.     ' all half (Memorial Days)
  65.     '"Adventsfeiertage
  66.     VierterAdvent& = DateSerial(YearInt%, 12, 24)
  67.     While (Weekday(VierterAdvent&) <> 1)
  68.         vierterAdvent& = vierterAdvent& - 1
  69.     Wend
  70.     
  71.     CalInsertBankholiday(vierterAdvent&-21, "1. s├╕ndag i advent", cHolidayType_Half)
  72.     CalInsertBankholiday(vierterAdvent&-14, "2. s├╕ndag i advent", cHolidayType_Half)
  73.     CalInsertBankholiday(vierterAdvent&-7, "3. s├╕ndag i advent", cHolidayType_Half)
  74.     CalInsertBankholiday(vierterAdvent&, "4. s├╕ndag i advent", cHolidayType_Half)
  75.     'Christmas eve
  76.     CalInsertBankholiday(DateSerial(YearInt%, 12, 24), "Juleaften", cHolidayType_Half)
  77.     '"Sylvester"
  78.     CalInsertBankholiday(DateSerial(YearInt%, 12, 31), "Nyt├Ñrsaften", cHolidayType_Half)
  79.  
  80.  
  81. End Sub
  82. </script:module>