Ja so was habe ich mir auch überlegt, ich habe es jetzt folgendermassen gelöst:
Code:
procedure TForm7.getDifference();
var
Liste : array [0 .. 6] of boolean;
heute : Integer;
I : Integer;
dayCount: Integer;
begin
heute := DayOfWeek(now);
Liste[0] := Sonntag.Checked;
Liste[1] := Montag.Checked;
Liste[2] := dienstag.Checked;
Liste[3] := Mittwoch.Checked;
Liste[4] := Donnerstag.Checked;
Liste[5] := Freitag.Checked;
Liste[6] := Samstag.Checked;
dayCount := 0;
for I := heute - 1 to heute - 1 + 7 do begin
if Liste[i mod 7] Then begin
break;
end
else begin
dayCount := dayCount + 1;
end;
end;
dateLabel.Caption := DateToStr(now + dayCount);
end;
Funktioniert soweit, was ich bis jetzt getestet habe, allerdings muss ich noch den check machen, ob die Zeit schon vergangen ist, wenn am heutigen Tag ein Häckchen gesetzt wird.
was haltet ihr davon?
Gruss