Prüfung ob Wochentag in der Zeit vorhanden

[Darlo]

Hi,

der Variablename "tag" ist ziemlich unglücklich da TComponent."tag" bereits vergeben ist. Ggf. löst das schon Dein Problem, ansonsten schau Dir folgendes mal an (schon auf Deinen Code modifiziert, die until-Anweisung hat hier nicht wirklich einen Sinn....):

Delphi-Quellcode:

var
  startDate, myIncDate: TDate;
  i: integer;
begin
//Finde das Datum des nächsten Sonntags
i := 1;
startDate := now;
repeat
  myIncDate := incDay(startDate,i);
  if DayOfWeek(myIncDate) = 7 then showmessage('Nächster Sonntag am: '+Datetostr(myIncDate+1));
  i := i+1;
 until (DayOfWeek(myIncDate)=DayOfWeek(Now));

Gruß Darlo