home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PSION / 1997 / 969.ZIP / HOL / UK.HOL < prev    next >
Encoding:
Text File  |  1997-03-08  |  2.2 KB  |  68 lines
  1. {"New Year's Day" = fix(1,1); year_symbol = "B";} ! January 1
  2. {
  3.   "New Year's Day Holiday" = 
  4.     fix(1,1) ! January 1
  5.     if (weekday(0) or weekday(6)) { ! Sunday or Saturday
  6.       float(1, 1, 1)    ! First Monday in January
  7.     } else {
  8.       ignore ! Same as New Year's Day - don't write it
  9.     };
  10.   year_symbol = "B";
  11. }
  12. "St. Valentine's Day" = fix(2, 14); ! February 14
  13. !"Spring Equinox" = fix(3,21); !  March 21
  14. "Fool's Day" = fix(4, 1); ! April 1
  15. "St George's Day" = fix(4, 23); ! April 23
  16. {
  17.   "Easter Sunday" = easter; 
  18.   alias = e;
  19. }
  20. "Shrove Tuesday" = e - 47;
  21. "Ash Wednesday" = e - 46;
  22. "Mothering Sunday" = e - 21;
  23. {"Good Friday" = e - 2;    year_symbol = "B";}
  24. {"Easter Monday" = e + 1;  year_symbol = "B";}
  25. "Ascension Day" = e + 39;
  26. "Whitsun Sunday" = e + 49;
  27. "Whitsun Monday" = e + 50;
  28. "Corpus Christi" = e + 60;
  29.  
  30. "British Summertime begins" = float(3,0,-1);
  31. "British Summertime ends" = float(10,0,-1);  !Last Sun in Oct
  32.  
  33. {"May Bank Holiday" = float(5, 1, 1); year_symbol = "B";} ! First Monday in May
  34. "Mother's Day" = float(5, 0, 2); ! Second Sunday in May
  35. {"Spring Bank Holiday" = float(5, 1, -1); year_symbol = "B";} ! Last Monday in May
  36. "Father's Day" = float(6, 0, 3); ! Third Sunday in June
  37. !"Summer Solstice" = fix(6, 21); ! June 21
  38. !"Autumn Equinox" = fix(9, 21); ! September 21
  39. {"August Bank holiday" = float(8,1,-1); year_symbol = "B";} ! Last Monday in August
  40.  
  41. "Halloween" = fix(10, 31); ! October 31
  42. "Guy Fawkes Night" = fix(11, 5); ! November 5
  43. !"Winter Solstice" = fix(12, 21); ! December 21
  44. {"Christmas Day" = fix(12,25); year_symbol = "B";} ! December 25
  45. {"Boxing Day" = fix(12,26); year_symbol = "B";}    ! December 26
  46. {
  47.   "Christmas Day Holiday" = 
  48.         fix(12,25)          ! December 25th
  49.         if (not(weekday(6) or weekday(0))) {
  50.             ignore
  51.         }
  52.         else {
  53.             + 2                ! Otherwise two days later
  54.         };
  55.   year_symbol = "B";
  56. }
  57. {
  58.   "Boxing Day Holiday" = 
  59.         fix(12,26)          ! December 26th
  60.         if (not(weekday(6) or weekday(0))) {
  61.             ignore
  62.         }
  63.         else {
  64.             + 2                ! Otherwise two days later
  65.         };
  66.   year_symbol = "B";
  67. }
  68.