home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / openoffice / f_0031 / HolidayPoland.xba < prev    next >
Encoding:
Extensible Markup Language  |  2001-07-20  |  2.7 KB  |  62 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="HolidayPoland" script:language="StarBasic">Sub Main
  4.     Call CalAutopilotTable()
  5. End Sub
  6.  
  7.  
  8.  
  9. Sub FindWholeYearHolidays_PL (ByVal YearInt%)
  10.     Dim lDate&, OsternDate&
  11.     ' New Year
  12.     CalInsertBankholiday(DateSerial(YearInt%, 1, 1), "Nowy Rok", cHolidayType_Full)
  13.  
  14.     ' "Hl. 3 K├╢nige"
  15.     CalInsertBankholiday(DateSerial(YearInt%, 1, 6), "Trzech Kr├│li", cHolidayType_Half)
  16.  
  17.     ' "Frauentag"
  18.     CalInsertBankholiday(DateSerial(YearInt%, 3, 8), "Dzie├▒ Kobiet", cHolidayType_Half)
  19.  
  20.     '    Easter, get it with look-up table
  21.     OsternDate& = CalEasterTable& (YearInt%)
  22.     CalInsertBankholiday(OsternDate&-2, "Wielki Pi┬╣tek", cHolidayType_Full)
  23.     CalInsertBankholiday(OsternDate&, "Wielka Niedziela", cHolidayType_Full)
  24.     CalInsertBankholiday(OsternDate&+1, "Lany Poniedzia┬│ek", cHolidayType_Full)
  25.  
  26.     ' Christi Himmelfahrt
  27.     CalInsertBankholiday(OsternDate&+39, "Wniebowst┬╣pienie", cHolidayType_Full)
  28.  
  29.     ' Pfingsten
  30.     CalInsertBankholiday(OsternDate&+49, "Zielone ┼Æwi┬╣tki", cHolidayType_Full)
  31.  
  32.     ' Fronleichnam    
  33.     CalInsertBankholiday(OsternDate&+60, "Bo┬┐e Cia┬│o", cHolidayType_Full)
  34.  
  35.     ' First of May
  36.     CalInsertBankholiday(DateSerial(YearInt%, 5, 1), "┼Æwi├¬to pracy", cHolidayType_Full)
  37.     
  38.     ' Memorial day of constitution
  39.     CalInsertBankholiday(DateSerial(YearInt%, 5, 3), "Dzie├▒ konstytucji 3-go maja", cHolidayType_Full)
  40.  
  41.     ' "Kindertag"
  42.     CalInsertBankholiday(DateSerial(YearInt%, 6, 1), "Dzie├▒ Dziecka", cHolidayType_Half)
  43.  
  44.     ' "Maria Himmelfahrt"
  45.     CalInsertBankholiday(DateSerial(YearInt%, 8, 15), "Matki Boskiej Zielnej", cHolidayType_Half)
  46.  
  47.     ' "Allerheiligen"
  48.     CalInsertBankholiday(DateSerial(YearInt%, 11, 1), "Wszystkich ┼Æwi├¬tych", cHolidayType_Full)
  49.  
  50.     ' National day"
  51.     CalInsertBankholiday(DateSerial(YearInt%, 11, 11), "Dzie├▒ niepod┬│eg┬│o┼ôci", cHolidayType_Full)
  52.  
  53.     ' Christmas Eve
  54.     CalInsertBankholiday(DateSerial(YearInt%, 12, 24), "Wigilia", cHolidayType_Half)
  55.     
  56.     ' Christmas
  57.     CalInsertBankholiday(DateSerial(YearInt%, 12, 25), "Bo┬┐e Narodzenie", cHolidayType_Full)
  58.     CalInsertBankholiday(DateSerial(YearInt%, 12, 26), "Bo┬┐e Narodzenie", cHolidayType_Full)
  59.     
  60.     ' "Sylvester"
  61.     CalInsertBankholiday(DateSerial(YearInt%, 12, 31), "Sylwester", cHolidayType_Half)
  62. End Sub</script:module>