Integeroperationen sind schneller und optimaler, wenn man eh bei den Integern bleibt.
Delphi-Quellcode:
RateZahl := RateZahl + Trunc((RateZahlMax - RateZahlMin) / 2);
RateZahl := RateZahl + (RateZahlMax - RateZahlMin) div 2;
Wenn (RateZahlMax - RateZahlMin) positiv ist und es gerundet werden soll, dann muß man einfach nur noch die Hälfte des Teilers dazurechnen, vor dem Teilen.
Delphi-Quellcode:
RateZahl := RateZahl + Round((RateZahlMax - RateZahlMin) / 2);
RateZahl := RateZahl + (RateZahlMax - RateZahlMin + 1) div 2;