home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2002 #3 / K-CD-3-2002.ISO / OpenOffice / f_0031 / HolidayPortugal.xba < prev    next >
Encoding:
Extensible Markup Language  |  2001-07-20  |  2.6 KB  |  49 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="HolidayPortugal" script:language="StarBasic">Option Explicit
  4.  
  5. Sub Main
  6.     Call CalAutopilotTable()
  7. End Sub
  8.  
  9.  
  10.  
  11. Sub FindWholeYearHolidays_PORT(ByVal YearInt%)
  12. Dim lDate&
  13.  
  14.     CalInsertBankholiday(DateSerial(YearInt%, 1, 1), "Ano Novo", cHolidayType_Full)
  15.     CalInsertBankholiday(DateSerial(YearInt%, 1, 6), "Reis Magos", cHolidayType_Half)
  16.  
  17. 'Fevereiro - 
  18. '(Carnaval haengt von Ostern, Karfreitag, ab) In 1997 war es am 11. Februar und der Karfreitag (Sexta-feira Santa) am 28. Maerz.
  19. 'In 1998 wird der Carnaval am 24. Fevereiro sein; Sexta-feira Santa (Karfreitag) 12 de Abril.
  20.     
  21.     '    Easter, get it with look-up table
  22.     lDate& = CalEasterTable&(YearInt%)
  23.     CalInsertBankholiday(lDate&-47, "Carnaval", cHolidayType_Full)
  24.     CalInsertBankholiday(lDate&-7, "Domingo de Ramos", cHolidayType_Half)
  25.     CalInsertBankholiday(lDate&-2, "Sexta-feira Santa", cHolidayType_Full)
  26.     CalInsertBankholiday(lDate&, "P├íscoa", cHolidayType_Full)
  27.  
  28.     CalInsertBankholiday(DateSerial(YearInt%, 4, 25), "25 de Abril", cHolidayType_Full)
  29.  
  30.     CalInsertBankholiday(DateSerial(YearInt%, 5, 1), "Dia do Trabalhador", cHolidayType_Full)
  31.     CalInsertBankholiday(DateSerial(YearInt%, 5, 29), "Corpo de Deus", cHolidayType_Full)
  32.  
  33.     CalInsertBankholiday(DateSerial(YearInt%, 6, 10), "Dia de Cam├╡es e das Comunidades Portuguesas", cHolidayType_Full)
  34.     CalInsertBankholiday(DateSerial(YearInt%, 6, 24), "S. Jo├úo", cHolidayType_Full)
  35.     CalInsertBankholiday(DateSerial(YearInt%, 6, 29), "S. Pedro", cHolidayType_Full)
  36.  
  37.     CalInsertBankholiday(DateSerial(YearInt%, 8, 15), "Assun├º├úo de Nossa Senhora", cHolidayType_Full)
  38.  
  39.     CalInsertBankholiday(DateSerial(YearInt%, 10, 5), "Implanta├º├úo da Rep├║blica", cHolidayType_Full)
  40.  
  41.     CalInsertBankholiday(DateSerial(YearInt%, 11, 1), "Dia de Todos os Santos", cHolidayType_Full)
  42.  
  43.     CalInsertBankholiday(DateSerial(YearInt%, 12, 8), "Imaculada Concei├º├úo", cHolidayType_Full)
  44.     CalInsertBankholiday(DateSerial(YearInt%, 12, 25), "Natal", cHolidayType_Full)
  45.  
  46.     CalInsertBankholiday(DateSerial(YearInt%, 12, 1), "Restaura├º├úo da Independ├¬ncia", cHolidayType_Full)
  47.     CalInsertBankholiday(DateSerial(YearInt%, 12, 31), "Passagem de Ano", cHolidayType_Half)
  48. End Sub
  49. </script:module>