cQ8 ;More Functions ;cQ8; [ 03/29/00  1:56 PM ]
 G YZ
 ;
T0 ;Meer functies ;
 ;
T0F ;Encore de functions ;
 ;
TZOF(H) ;last Sunday of March at 2:00:00 -> +0200
 ;last Sunday of October at 3:00:00 -> +0100
 N %DD,%DM,%DN,%DX,%DY,%H,%TN,%TS
 N I,MON,DAY,SUN,OFF,HOUR
 S %DN=$G(H,$H) D 200^%DO S %TN=$G(H,$H) D ^%TO S %H=$G(H,$H)
 S MON=+$P(%DX,"/"),DAY=+$P(%DX,"/",2),HOUR=+$P(%TS,":"),OFF="+0100"
 I MON>3&(MON<10) S OFF="+0200"
 I MON=3 D
 . S OFF="+0100"
 . I DAY<25 Q
 . F I=25-DAY:1:31-DAY I %H+I#7=3 S SUN=DAY+I
 . I DAY<SUN Q
 . I DAY>SUN S OFF="+0200" Q
 . I HOUR>1 S OFF="+0200" Q
 I MON=10 D
 . S OFF="+0200"
 . I DAY<25 Q
 . F I=25-DAY:1:31-DAY I %H+I#7=3 S SUN=DAY+I
 . I DAY<SUN Q
 . I DAY>SUN S OFF="+0100" Q
 . I HOUR>2 S OFF="+0100" Q
 Q OFF
 ;
YZ Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8