Tage zwischen 2 Wochentagen?

[WoGe]

Du kannst deine function auch so modifizieren

Delphi-Quellcode:

  function GetDayIdx(Day: string): Byte;
const
  DAYS: array[1..7] of string = ('mon', 'tue', 'wed', 'thu', 'fri', 'sat', 'sun');

  function IdxByDay(Day: string): Byte;
  var
    I: Integer;
  begin
    Result := 0;
    for I := 1 to 7 do
      if (Lowercase(Day) = DAYS[I]) then
      begin
        Result := I;
         Label2.Caption := IntToStr(i);
      end;
  end;
var
  Today, DayIdx: Byte;
begin
  Result := 0;
  Today := IdxByDay(DayOfWeekStr(Now));
  if Today <> 0 then
  begin
    DayIdx := IdxByDay(Day);
    if DayIdx <> 0 then
      Result := IdxByDay(DAYS[DayIdx-Today]);
  end;
end;

das funzt dann

mfg
wo