Stückweise addierung

[marabu]

Ohne Kommentar:

Delphi-Quellcode:

uses
  Math;

var
  iStart, iEnde: Integer;
  wAnzahl, wRest: Word;

begin
  iStart := 1250;
  iEnde := 2973;
  DivMod(iEnde - iStart, 50, wAnzahl, wRest);
end;

Grüße vom marabu