home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2002 #3 / K-CD-3-2002.ISO / OpenOffice / f_0031 / HolidayFrance.xba < prev    next >
Encoding:
Extensible Markup Language  |  2001-07-20  |  1.6 KB  |  42 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="HolidayFrance" script:language="StarBasic">Option Explicit
  4.  
  5. Sub Main
  6.     Call CalAutopilotTable()
  7. End Sub
  8.  
  9.  
  10.  
  11. Sub FindWholeYearHolidays_FRANCE(ByVal YearInt%)
  12.  
  13.     Dim lDate&
  14.     Dim Easter$
  15.  
  16.     CalInsertBankholiday(DateSerial(YearInt%, 1, 1), "Jour de l'an", cHolidayType_Full)
  17.  
  18.     '    Easter, get it with look-up table
  19.     lDate& = CalEasterTable&(YearInt%)
  20.     CalInsertBankholiday(lDate&, "P├óques", cHolidayType_Full)
  21.  
  22.     '    Jesus Skydiving
  23.     lDate& = lDate& + 39
  24.     CalInsertBankholiday(lDate&, "Ascension", cHolidayType_Full)
  25.  
  26.     lDate& = lDate& + 10
  27.     CalInsertBankholiday(lDate&, "Pentec├┤te", cHolidayType_Full)
  28.  
  29.     CalInsertBankholiday(DateSerial(YearInt%, 5, 1), "F├¬te du travail", cHolidayType_Full)
  30.     CalInsertBankholiday(DateSerial(YearInt%, 5, 8), "Victoire 1945", cHolidayType_Full)
  31.  
  32.     CalInsertBankholiday(DateSerial(YearInt%, 7, 14), "F├¬te Nationale", cHolidayType_Full)
  33.  
  34.     CalInsertBankholiday(DateSerial(YearInt%, 8, 15), "Assomption", cHolidayType_Full)
  35.  
  36.     CalInsertBankholiday(DateSerial(YearInt%, 11, 1), "Toussaint", cHolidayType_Full)
  37.     CalInsertBankholiday(DateSerial(YearInt%, 11, 11), "Armistice ou Victoire 1918", cHolidayType_Full)
  38.  
  39.     CalInsertBankholiday(DateSerial(YearInt%, 12, 25), "No├½l", cHolidayType_Full)
  40.  
  41. End Sub
  42. </script:module>