home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Kompuutteri Kaikille K-CD 2002 #3
/
K-CD_2002-03.iso
/
OpenOffice
/
f_0031
/
HolidayRussia.xba
< prev
next >
Wrap
Extensible Markup Language
|
2001-07-20
|
2KB
|
37 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="HolidayRussia" script:language="StarBasic">REM ***** BASIC *****
Sub FindWholeYearHolidays_RU (ByVal YearInt%)
Dim lDate&
' New Year
CalInsertBankholiday(DateSerial(YearInt%, 1, 1), "Íîâûé ãîä", cHolidayType_Full)
CalInsertBankholiday(DateSerial(YearInt%, 1, 2), "Íîâûé ãîä", cHolidayType_Full)
' Russian Christmas"
CalInsertBankholiday(DateSerial(YearInt%, 1, 7), "Ðîæäåñòâî", cHolidayType_Full)
' Woman Day
CalInsertBankholiday(DateSerial(YearInt%, 3, 8), "Ìåæäóíàðîäíûé æåíñêèé äåíü Ïðàçäíèê âåñíû è òðóäà ", cHolidayType_Full)
' Easter, get it with look-up table
OsternDate& = CalEasterTable& (YearInt%) + 7
CalInsertBankholiday(OsternDate&, "Ïàñõà", cHolidayType_Full)
' First of May
CalInsertBankholiday(DateSerial(YearInt%, 5, 1), "Ïðàçäíèê âåñíû è òðóäà ", cHolidayType_Full)
CalInsertBankholiday(DateSerial(YearInt%, 5, 2), "Ïðàçäíèê âåñíû è òðóäà", cHolidayType_Full)
' Victory of the second World War
CalInsertBankholiday(DateSerial(YearInt%, 5, 9), "Äåíü Ïîáåäû", cHolidayType_Full)
' End of Soviet Union
CalInsertBankholiday(DateSerial(YearInt%, 6, 12), "Äåíü íåçàâèñèìîñòè", cHolidayType_Full)
' Peace Day
CalInsertBankholiday(DateSerial(YearInt%, 11, 7), "Äåíü ñîãëàñèÿ è ïðèìèðåíèÿÄåíü ñîãëàñèÿ è ïðèìèðåíèÿ", cHolidayType_Full)
' Constitution Day
CalInsertBankholiday(DateSerial(YearInt%, 12, 12), "Äåíü êîíñòèòóöèè", cHolidayType_Full)
End Sub</script:module>