Hi Klaus,
(Sunday May 17 1998 23:59) Klaus Meinhard to Ted Menks about: DST-calculation 
revised
 KM>     set DT=%@doy[%@eval[8-%@dowi[07.04.%_year]].04.%_year].02
 KM>     set TD=%@doy[%_date].%@right[2.0%_hour]
 KM>     set GTZ=UTZ+%@if[%@eval[%TD-%DT] ge 0 .and. %@eval[%TD-%DT]...
 KM>     ... le 203,%@eval[%1-1],%1]
 KM>     unset DT TD
 KM> Join line 3 and 4 at ...
.. or replace them with:
set GTZ=UTZ+%@if[%TD ge %DT .and. %@eval[%TD-DT] le 203,%@dec[%1],%1]
:)
I must admit: it's shorter than mine... but mine was *correct*! ;-)
Every year that April 1st falls on Thursday, Friday, Saturday or Sunday 
(that's four out of seven, mind you!) the DST-period will be 30 weeks, or 210 
days!
Check 1999, for example ;-)
 KM> Just to show I _can_ write small btms...
As long as they don't have to be accurate... 
Mene Sakkhet Ur-Seveh,
  Ted Menks  2:2449/236.51 / 2:284/412.51  PGPkey: 2048/1B2ACCED (by RRQ)
... If at first you don't succeed, have somebody else do it for you!
--- 4Dos v6.01a ---
(2:2449/236.51)
---------------