home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2002 #3 / K-CD-3-2002.ISO / OpenOffice / f_0031 / HolidayRussia.xba < prev    next >
Encoding:
Extensible Markup Language  |  2001-07-20  |  2.0 KB  |  37 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="HolidayRussia" script:language="StarBasic">REM  *****  BASIC  *****
  4.  
  5. Sub FindWholeYearHolidays_RU (ByVal YearInt%)
  6.     Dim lDate&
  7.  
  8.     ' New Year
  9.     CalInsertBankholiday(DateSerial(YearInt%, 1, 1), "├ì├«├ó├╗├⌐ ├ú├«├ñ", cHolidayType_Full)
  10.     CalInsertBankholiday(DateSerial(YearInt%, 1, 2), "├ì├«├ó├╗├⌐ ├ú├«├ñ", cHolidayType_Full)
  11.  
  12.     ' Russian Christmas"
  13.     CalInsertBankholiday(DateSerial(YearInt%, 1, 7), "├É├«├ª├ñ├Ñ├▒├▓├ó├«", cHolidayType_Full)
  14.  
  15.     ' Woman Day
  16.     CalInsertBankholiday(DateSerial(YearInt%, 3, 8), "├î├Ñ├ª├ñ├│├¡├á├░├«├ñ├¡├╗├⌐ ├ª├Ñ├¡├▒├¬├¿├⌐ ├ñ├Ñ├¡├╝ ├Å├░├á├º├ñ├¡├¿├¬ ├ó├Ñ├▒├¡├╗ ├¿ ├▓├░├│├ñ├á ", cHolidayType_Full)
  17.  
  18.     '    Easter, get it with look-up table
  19.     OsternDate& = CalEasterTable& (YearInt%) + 7
  20.     CalInsertBankholiday(OsternDate&, "├Å├á├▒├╡├á", cHolidayType_Full)
  21.  
  22.     ' First of May
  23.     CalInsertBankholiday(DateSerial(YearInt%, 5, 1), "├Å├░├á├º├ñ├¡├¿├¬ ├ó├Ñ├▒├¡├╗ ├¿ ├▓├░├│├ñ├á ", cHolidayType_Full)
  24.     CalInsertBankholiday(DateSerial(YearInt%, 5, 2), "├Å├░├á├º├ñ├¡├¿├¬ ├ó├Ñ├▒├¡├╗ ├¿ ├▓├░├│├ñ├á", cHolidayType_Full)
  25.  
  26.     ' Victory of the second World War
  27.     CalInsertBankholiday(DateSerial(YearInt%, 5, 9), "├ä├Ñ├¡├╝ ├Å├«├í├Ñ├ñ├╗", cHolidayType_Full)
  28.  
  29.     ' End of Soviet Union
  30.     CalInsertBankholiday(DateSerial(YearInt%, 6, 12), "├ä├Ñ├¡├╝ ├¡├Ñ├º├á├ó├¿├▒├¿├¼├«├▒├▓├¿", cHolidayType_Full)
  31.  
  32.     ' Peace Day
  33.     CalInsertBankholiday(DateSerial(YearInt%, 11, 7), "├ä├Ñ├¡├╝ ├▒├«├ú├½├á├▒├¿├┐ ├¿ ├»├░├¿├¼├¿├░├Ñ├¡├¿├┐├ä├Ñ├¡├╝ ├▒├«├ú├½├á├▒├¿├┐ ├¿ ├»├░├¿├¼├¿├░├Ñ├¡├¿├┐", cHolidayType_Full)
  34.  
  35.     ' Constitution Day
  36.     CalInsertBankholiday(DateSerial(YearInt%, 12, 12), "├ä├Ñ├¡├╝ ├¬├«├¡├▒├▓├¿├▓├│├╢├¿├¿", cHolidayType_Full)
  37. End Sub</script:module>