Nächstes Datum errechnen

[haentschman]

Zitat:

Die fehlen immer noch jegliche Delphi-Grundlagen.

Nimm dir eine Variable, die den Minimum-Wert repräsentiert und initialisiere diese mit dem Startwert deiner Liste. Gehe alle Werte in einer Schleife durch, vergleiche sie und weise der Variablen immer den aktuell geprüften Wert zu, sofern dieser kleiner ist, als der Variablenwert.

Fertigen Code bekommst du von mir definitiv keinen.

Gruß

Ok...quäl dich nicht weiter 8) ich habe heute meinen sozialen Tag.


zu spät... noch eine Variante für die Code Libary

Delphi-Quellcode:

function NachstesDatum : TDate;
var
  MinDate: TDate;
  I: integer;
begin
  MinDate:= Now;
  for I := 0 to ListView1.Items.Count - 1 do
    begin
      if StrToDate(Listview1.Items.Item[i].Caption) > Now then
        begin
          if MinDate = Now then
            begin
              MinDate:= StrToDate(Listview1.Items.Item[i].Caption);
            end
              else
                begin
                  if (StrToDate(Listview1.Items.Item[i].Caption) < MinDate) then
                    begin
                      MinDate:= StrToDate(Listview1.Items.Item[i].Caption);
                    end;
                end;
        end;
      Result:= MinDate;
    end;
end;

Vorraussetzung ist, daß dein Datum als Item steht und nicht als Subitem.
PS: wird kein Eintrag in der Zukunft gefunden kriegst du das "heutige Datum zurück.