Hallo,
dein
Tag[i].Werktag:= Tag[i-1].Werktag+ XXX
ist ja das Grundproblem.
Klappt immer, bis auf i=0
Lösung 1:
eigene Summenvariable nehmen
Delphi-Quellcode:
var
SumWerktag: Integer;
begin
SumWerktag:= 0;
for
Tag[i].Werktag:= SumWerktag+ XXX
SumWerktag:= Tag[i].Werktag // für den nächsten Tag
Lösung2:
Direkt ein Tag-Record als Zwischensummen-Halter.
Dann muss nicht für WerkTag, Feiertag usw. ja eine Variable benutzt werden.
Beides hat den Vorteil,
dass man das auch besser Debuggen kann.
Und da fällt mir dann auch noch bei
SumWerktag+Weekend(TagArray,i); //
Den Aufruf in eine lokale Variable, auch besser zu Debuggen.
Heiko