Threaded Mode | Linear Mode

Dieter · (This post was last modified: 02-11-2015 03:09 PM by Dieter.)

(02-11-2015 07:48 AM)Thomas_Sch Wrote: could you please post your modified version of the program?

Im am still working on it. My curent version also takes care of daylight savings time. Since 1996 the European Union switches to DST on last Sunday in March and back to standard time on last Sunday in October (both at 1:00 UTC). The following subroutine sets flag A (so that the "=" announciator comes on) if a date falls in the DST period.

Code:

LBL"DST"

STO 00    // or any other unused register

YEAR

FILL

#011

XEQ 01

x<>Y

#004

XEQ 01

RCL 00

D→J

SF A      // set DST flag

x≥? Y     // IF date < first DST day 

x≥? Z     // OR date ≥ first standard time day

CF A      // THEN clear DST flag

RTN

LBL 01

#001

→DATE     // = 1 April resp. November

D→J

#007

IDIV

RCLx L    // Monday on or before 1 April resp. November

DEC X     // last Sunday of March resp. October

RTN

input  X: date (format according to date mode setting)

       Z: first autumn day with standard time (JDN)

output Y: first spring day with DST (JDN)

       X: date (JDN)

       Flag A set: DST

       Flag A clr: standard time

I may post my version of Jeff's program, but not without his permission. So Jeff, is this OK for you?

Dieter