home *** CD-ROM | disk | FTP | other *** search
/ Kompuutteri Kaikille K-CD 2002 #3 / K-CD_2002-03.iso / OpenOffice / f_0031 / HolidaySpain.xba < prev    next >
Extensible Markup Language  |  2001-07-20  |  2KB  |  36 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="HolidaySpain" script:language="StarBasic">Option Explicit
  4.  
  5. Sub Main
  6.     Call CalAutopilotTable()
  7. End Sub
  8.  
  9.  
  10.  
  11. Sub FindWholeYearHolidays_SPAIN(ByVal YearInt%)
  12.  
  13.     Dim lDate&
  14.  
  15.     CalInsertBankholiday(DateSerial(YearInt%, 1, 1), "A├▒o Nuevo", cHolidayType_Full)
  16.     CalInsertBankholiday(DateSerial(YearInt%, 1, 6), "Reyes", cHolidayType_Full)
  17.  
  18.     '    Easter, get it with look-up table
  19.     lDate& = CalEasterTable&(YearInt%)
  20.     CalInsertBankholiday(lDate&-2, "Viernes Santo", cHolidayType_Full)
  21.     CalInsertBankholiday(lDate&+1, "Lunes de Pascua Florida", cHolidayType_Full)
  22.  
  23.     CalInsertBankholiday(DateSerial(YearInt%, 5, 1), "Fiesta del Trabajo", cHolidayType_Full)
  24.     
  25.     CalInsertBankholiday(DateSerial(YearInt%, 8, 15), "La Asunci├│n", cHolidayType_Full)
  26.  
  27.     CalInsertBankholiday(DateSerial(YearInt%, 10, 12), "Fiesta de la Hispanidad", cHolidayType_Full)
  28.  
  29.     CalInsertBankholiday(DateSerial(YearInt%, 11, 1), "Todos los Santos", cHolidayType_Full)
  30.  
  31.     CalInsertBankholiday(DateSerial(YearInt%, 12, 6), "D├¡a de la Constituci├│n", cHolidayType_Full)
  32.     CalInsertBankholiday(DateSerial(YearInt%, 12, 8), "La Inmaculada", cHolidayType_Full)
  33.     CalInsertBankholiday(DateSerial(YearInt%, 12, 25), "Navidad", cHolidayType_Full)
  34.     
  35. End Sub
  36. </script:module>