hier nun der Code den ich verwende um einer Xbase (Alle Versionen) Applicaton, die 24 Std. läuft, mitzuteilen wann die Zeitumstellung erfolgt.
Code: Alles auswählen
PROCEDURE MAIN
LOCAL dDate := DATE()
LOCAL nYear := YEAR(dDate)
LOCAL i
LOCAL iMax
LOCAL dStart
LOCAL dTest
LOCAL aRet := {}
dStart := STOD(STRZERO(nYear,4)+"0401")
FOR i := 1 TO 7
dTest := dStart -i
IF DOW(dTest) = 1
AADD(aRet,dTest)
EXIT
ENDIF
NEXT
dStart := STOD(STRZERO(nYear,4)+"1101")
FOR i := 1 TO 7
dTest := dStart -i
IF DOW(dTest) = 1
AADD(aRet,dTest)
EXIT
ENDIF
NEXT
iMax := LEN(aRet)
FOR i := 1 TO iMax
? aRet[i]
NEXT
WAIT
RETURN