home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2002 #3 / K-CD-3-2002.ISO / OpenOffice / f_0031 / HolidayItalia.xba < prev    next >
Encoding:
Extensible Markup Language  |  2001-07-20  |  1.4 KB  |  26 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="HolidayItalia" script:language="StarBasic">Option Explicit
  4.  
  5. Sub Main
  6.     Call CalAutopilotTable()
  7. End Sub
  8.  
  9. Sub FindWholeYearHolidays_ITA(ByVal YearInt%)
  10. Dim lDate&
  11.  
  12.     CalInsertBankholiday(DateSerial(YearInt%, 1, 1), "Capodanno", cHolidayType_Full)
  13.     CalInsertBankholiday(DateSerial(YearInt%, 1, 6), "Epifania", cHolidayType_Full)
  14.  
  15.     CalInsertBankholiday(DateSerial(YearInt%, 4, 25), "Festa della liberazione", cHolidayType_Full)
  16.     CalInsertBankholiday(DateSerial(YearInt%, 8, 15), "Ferragusto", cHolidayType_Full)
  17.     CalInsertBankholiday(DateSerial(YearInt%, 11, 1), "Tutti i Santi", cHolidayType_Full)
  18.     CalInsertBankholiday(DateSerial(YearInt%, 12, 8), "Immacolata concezione", cHolidayType_Full)
  19.     CalInsertBankholiday(DateSerial(YearInt%, 12, 25), "Natale", cHolidayType_Full)
  20.     CalInsertBankholiday(DateSerial(YearInt%, 12, 26), "Santo Stefano", cHolidayType_Full)
  21.  
  22.     '    Easter, get it with look-up table
  23.     lDate& = CalEasterTable&(YearInt%)
  24.     CalInsertBankholiday(lDate&, "Pasqua", cHolidayType_Full)
  25.     CalInsertBankholiday(lDate&+1, "Luned├¼ dell'Angelo", cHolidayType_Full)
  26. End Sub</script:module>