Sommerzeit / Winterzeit Umstellung

Alle Fragen um die Programmierung, die sich sonst nicht kategorisieren lassen. Von Makro bis Codeblock, von IF bis ENDIF

Moderator: Moderatoren

Antworten
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

Sommerzeit / Winterzeit Umstellung

Beitrag von AUGE_OHR »

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.

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
gruss by OHR
Jimmy
Antworten