Sommerzeit / Winterzeit Umstellung
Verfasst: So, 31. Mär 2013 1:55
es ist demnächst ja wieder Sommerzeit angesagt und man "sollte" an den Tagen zwischen 02:00 - 03:00 nicht unbedingt mit "Time" Function arbeiten.
hier nun der Code den ich verwende um einer Xbase (Alle Versionen) Applicaton, die 24 Std. läuft, mitzuteilen wann die Zeitumstellung erfolgt.
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