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