home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Kompuutteri Kaikille K-CD 2002 #3
/
K-CD_2002-03.iso
/
OpenOffice
/
f_0031
/
HolidayPoland.xba
< prev
next >
Wrap
Extensible Markup Language
|
2001-07-20
|
3KB
|
62 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="HolidayPoland" script:language="StarBasic">Sub Main
Call CalAutopilotTable()
End Sub
Sub FindWholeYearHolidays_PL (ByVal YearInt%)
Dim lDate&, OsternDate&
' New Year
CalInsertBankholiday(DateSerial(YearInt%, 1, 1), "Nowy Rok", cHolidayType_Full)
' "Hl. 3 K├╢nige"
CalInsertBankholiday(DateSerial(YearInt%, 1, 6), "Trzech Kr├│li", cHolidayType_Half)
' "Frauentag"
CalInsertBankholiday(DateSerial(YearInt%, 3, 8), "Dzie├▒ Kobiet", cHolidayType_Half)
' Easter, get it with look-up table
OsternDate& = CalEasterTable& (YearInt%)
CalInsertBankholiday(OsternDate&-2, "Wielki Pi┬╣tek", cHolidayType_Full)
CalInsertBankholiday(OsternDate&, "Wielka Niedziela", cHolidayType_Full)
CalInsertBankholiday(OsternDate&+1, "Lany Poniedzia┬│ek", cHolidayType_Full)
' Christi Himmelfahrt
CalInsertBankholiday(OsternDate&+39, "Wniebowst┬╣pienie", cHolidayType_Full)
' Pfingsten
CalInsertBankholiday(OsternDate&+49, "Zielone Œwi¹tki", cHolidayType_Full)
' Fronleichnam
CalInsertBankholiday(OsternDate&+60, "Bo┬┐e Cia┬│o", cHolidayType_Full)
' First of May
CalInsertBankholiday(DateSerial(YearInt%, 5, 1), "Œwiêto pracy", cHolidayType_Full)
' Memorial day of constitution
CalInsertBankholiday(DateSerial(YearInt%, 5, 3), "Dzie├▒ konstytucji 3-go maja", cHolidayType_Full)
' "Kindertag"
CalInsertBankholiday(DateSerial(YearInt%, 6, 1), "Dzie├▒ Dziecka", cHolidayType_Half)
' "Maria Himmelfahrt"
CalInsertBankholiday(DateSerial(YearInt%, 8, 15), "Matki Boskiej Zielnej", cHolidayType_Half)
' "Allerheiligen"
CalInsertBankholiday(DateSerial(YearInt%, 11, 1), "Wszystkich Œwiêtych", cHolidayType_Full)
' National day"
CalInsertBankholiday(DateSerial(YearInt%, 11, 11), "Dzieñ niepod³eg³oœci", cHolidayType_Full)
' Christmas Eve
CalInsertBankholiday(DateSerial(YearInt%, 12, 24), "Wigilia", cHolidayType_Half)
' Christmas
CalInsertBankholiday(DateSerial(YearInt%, 12, 25), "Bo┬┐e Narodzenie", cHolidayType_Full)
CalInsertBankholiday(DateSerial(YearInt%, 12, 26), "Bo┬┐e Narodzenie", cHolidayType_Full)
' "Sylvester"
CalInsertBankholiday(DateSerial(YearInt%, 12, 31), "Sylwester", cHolidayType_Half)
End Sub</script:module>