home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Kompuutteri Kaikille K-CD 2002 #3
/
K-CD_2002-03.iso
/
OpenOffice
/
f_0031
/
HolidayPortugal.xba
< prev
next >
Wrap
Extensible Markup Language
|
2001-07-20
|
3KB
|
49 lines
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="HolidayPortugal" script:language="StarBasic">Option Explicit
Sub Main
Call CalAutopilotTable()
End Sub
Sub FindWholeYearHolidays_PORT(ByVal YearInt%)
Dim lDate&
CalInsertBankholiday(DateSerial(YearInt%, 1, 1), "Ano Novo", cHolidayType_Full)
CalInsertBankholiday(DateSerial(YearInt%, 1, 6), "Reis Magos", cHolidayType_Half)
'Fevereiro -
'(Carnaval haengt von Ostern, Karfreitag, ab) In 1997 war es am 11. Februar und der Karfreitag (Sexta-feira Santa) am 28. Maerz.
'In 1998 wird der Carnaval am 24. Fevereiro sein; Sexta-feira Santa (Karfreitag) 12 de Abril.
' Easter, get it with look-up table
lDate& = CalEasterTable&(YearInt%)
CalInsertBankholiday(lDate&-47, "Carnaval", cHolidayType_Full)
CalInsertBankholiday(lDate&-7, "Domingo de Ramos", cHolidayType_Half)
CalInsertBankholiday(lDate&-2, "Sexta-feira Santa", cHolidayType_Full)
CalInsertBankholiday(lDate&, "Páscoa", cHolidayType_Full)
CalInsertBankholiday(DateSerial(YearInt%, 4, 25), "25 de Abril", cHolidayType_Full)
CalInsertBankholiday(DateSerial(YearInt%, 5, 1), "Dia do Trabalhador", cHolidayType_Full)
CalInsertBankholiday(DateSerial(YearInt%, 5, 29), "Corpo de Deus", cHolidayType_Full)
CalInsertBankholiday(DateSerial(YearInt%, 6, 10), "Dia de Cam├╡es e das Comunidades Portuguesas", cHolidayType_Full)
CalInsertBankholiday(DateSerial(YearInt%, 6, 24), "S. João", cHolidayType_Full)
CalInsertBankholiday(DateSerial(YearInt%, 6, 29), "S. Pedro", cHolidayType_Full)
CalInsertBankholiday(DateSerial(YearInt%, 8, 15), "Assunção de Nossa Senhora", cHolidayType_Full)
CalInsertBankholiday(DateSerial(YearInt%, 10, 5), "Implantação da República", cHolidayType_Full)
CalInsertBankholiday(DateSerial(YearInt%, 11, 1), "Dia de Todos os Santos", cHolidayType_Full)
CalInsertBankholiday(DateSerial(YearInt%, 12, 8), "Imaculada Conceição", cHolidayType_Full)
CalInsertBankholiday(DateSerial(YearInt%, 12, 25), "Natal", cHolidayType_Full)
CalInsertBankholiday(DateSerial(YearInt%, 12, 1), "Restauração da Independência", cHolidayType_Full)
CalInsertBankholiday(DateSerial(YearInt%, 12, 31), "Passagem de Ano", cHolidayType_Half)
End Sub
</script:module>