Hi ssalbach,

wenn ich das Program richtig verstanden habe, dann funktioniert es nur von 23:00 bis 23:59 mit dem Nachtprogramm und von 8:00 bis 8:59 mit dem Tagprogramm. Dies sind die einzigen Zeiten, in denen Du mit den If - Befehlen vom Hauptprogramm in die Unterroutinen verzweigst.

Besser wäre es, das Tagprogramm von Stunde 8 bis incl. Stunde 22 zu starten und den Rest des Tages das Nachtprogramm zu aktivieren. Der If - Befehl in der Hauptroutine müsste dann

Code:
If ((hour > 7) and (hour < 23)) then 
  Tagtemperatur
else
  Nachttemperatur;
lauten. Von 8:00h bis 22:59 sollte dann die Tagtemperatur aktiv sein, und zu jeder anderen Zeit die Nachttemperatur.

Ich hoffe, das ich die Syntax eingehalten habe. Pascal benutzt ich nur mit Delphi.

Grüße Klaus