home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2002 #3 / K-CD-3-2002.ISO / OpenOffice / f_0031 / HolidaySweden.xba < prev    next >
Encoding:
Extensible Markup Language  |  2001-07-20  |  1.9 KB  |  45 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="HolidaySweden" script:language="StarBasic">Option Explicit
  4.  
  5. Sub Main
  6.     Call CalAutopilotTable()
  7. End Sub
  8.  
  9.  
  10.  
  11. Sub FindWholeYearHolidays_SWED(ByVal YearInt%)
  12.  
  13.     Dim lDate&
  14.  
  15.     CalInsertBankholiday(DateSerial(YearInt%, 1, 1), "Ny├Ñrsdagen", cHolidayType_Full)
  16.  
  17.     CalInsertBankholiday(DateSerial(YearInt%, 1, 6), "Trettondagen", cHolidayType_Full)
  18.  
  19.     '    Easter, get it with look-up table
  20.     lDate& = CalEasterTable & YearInt%
  21.     CalInsertBankholiday(lDate&-2, "L├Ñngfredagen", cHolidayType_Full)
  22.     CalInsertBankholiday(lDate&, "P├Ñskdagen", cHolidayType_Full)
  23.     CalInsertBankholiday(lDate&+1, "Annandag p├Ñsk", cHolidayType_Full)
  24.     CalInsertBankholiday(lDate&+39, "Kristi himmelf├ñrds dag", cHolidayType_Full)
  25.     CalInsertBankholiday(lDate&+49, "Pingstdagen", cHolidayType_Full)
  26.     CalInsertBankholiday(lDate&+50, "Annandag pingst", cHolidayType_Full)
  27.  
  28.     CalInsertBankholiday(DateSerial(YearInt%, 5, 1), "1:a maj", cHolidayType_Full)
  29.  
  30.     lDate& = DateSerial(YearInt%, 6, 20)
  31.     While (Weekday(lDate&) <> 7)    ' Saturday
  32.         lDate& = lDate& + 1
  33.     Wend
  34.     CalInsertBankholiday(lDate&, "Midsommardagen", cHolidayType_Full)
  35.  
  36.     lDate& = DateSerial(YearInt%, 10, 31)
  37.     While (Weekday(lDate&) <> 7)    ' Saturday
  38.         lDate& = lDate& + 1
  39.     Wend
  40.     CalInsertBankholiday(lDate&, "Alla helgons dag", cHolidayType_Full)
  41.  
  42.     CalInsertBankholiday(DateSerial(YearInt%, 12, 25), "Juldagen", cHolidayType_Full)
  43.     CalInsertBankholiday(DateSerial(YearInt%, 12, 26), "Annandag jul", cHolidayType_Full)
  44. End Sub
  45. </script:module>