\ holidays 97.12.10 3:53 pm NAB

needs calendar

: Christmas ( year -- d)
  25 December rot  dmy>date ;

: Epiphany ( year -- d)
  1- Christmas 12 m+ ;

: Labour-day ( year -- d)
  1 September rot  dmy>date
  Monday first ;

: Advent ( year -- d)
  30 November rot  dmy>date
  Sunday nearest ;

: daylight-savings-start ( year -- d)
  1 April rot  dmy>date  Sunday first ;

: daylight-savings-end ( year -- d)
  31 October rot  dmy>date
  Sunday last ;