home *** CD-ROM | disk | FTP | other *** search
/ Kompuutteri Kaikille K-CD 2002 #3 / K-CD_2002-03.iso / OpenOffice / f_0031 / HolidayNetherlands.xba < prev    next >
Extensible Markup Language  |  2001-07-20  |  2KB  |  44 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="HolidayNetherlands" script:language="StarBasic">Option Explicit
  4.  
  5. Sub Main
  6.     Call CalAutopilotTable()
  7. End Sub
  8.  
  9.  
  10.  
  11. Sub FindWholeYearHolidays_NL(ByVal YearInt%)
  12.  
  13.     Dim lDate&
  14.     Dim Easter$
  15.  
  16.     CalInsertBankholiday(DateSerial(YearInt%, 1, 1), "Nieuwjaarsdag", cHolidayType_Full)
  17.  
  18.     '    Easter, get it with look-up table
  19.     lDate& = CalEasterTable & YearInt%
  20.     CalInsertBankholiday(lDate&, "1e Paasdag", cHolidayType_Full)
  21.     CalInsertBankholiday(lDate&+1, "2e Paasdag", cHolidayType_Full)
  22.  
  23.     lDate& = lDate + 39
  24.     CalInsertBankholiday(lDate&, "Hemelvaartsdag", cHolidayType_Full)
  25.  
  26.     lDate& = lDate + 10
  27.     CalInsertBankholiday(lDate&, "1e Pinksterdag", cHolidayType_Full)
  28.     CalInsertBankholiday(lDate&+1, "2e Pinksterdag", cHolidayType_Full)
  29.     
  30.     CalInsertBankholiday(DateSerial(YearInt%, 4, 30), "Koninginnedag", cHolidayType_Full)
  31.     
  32.     ' Bevrijdingsdag is celebrated every 5th year
  33.     If YearInt% Mod 5 = 0 then
  34.         CalInsertBankholiday(DateSerial(YearInt%, 5, 5), "Bevrijdingsdag", cHolidayType_Full)
  35.     End if
  36.  
  37.     CalInsertBankholiday(DateSerial(YearInt%, 12, 6), "Sinterklaas", cHolidayType_Half)
  38.     
  39.     CalInsertBankholiday(DateSerial(YearInt%, 12, 25), "1e Kerstdag", cHolidayType_Full)
  40.     CalInsertBankholiday(DateSerial(YearInt%, 12, 26), "2e Kerstdag", cHolidayType_Full)
  41. End Sub
  42.  
  43.  
  44. </script:module>