Verändern derf Systemzeit

[nahpets]

Delphi-Quellcode:

if IntToStr(FIntervall.intitag) <>'' then       // wobei, wenn das Konstrukt man gut geht - Integer nach String und dann Leersting?
   itag                   := FIntervall.intitag 
else 
  itag := 1; 

jahr   :=  strtoint(FormatDateTime('yyyy',now + itag)); 
monat  :=  strtoint(FormatDateTime('mm',now + itag)); 
tag    :=  strtoint(FormatDateTime('dd',now + itag)); 
akstd  :=  strtoint(FormatDateTime('hh',now + itag)); 
akmin  :=  strtoint(FormatDateTime('nn',now + itag)); 
aksec  :=  strtoint(FormatDateTime('ss',now + itag));

Die Reihenfolge machts.

Stephan