\ 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 ;