valueue1 würde ich noch durch value1 ersetzen
ich hätts so gemacht:
trunc((value1/ value2) * 100) / 100
als code also:
Delphi-Quellcode:
function real_teilen(value1: real; value2: real): real;
begin
result := trunc((value1 / value2) * 100) / 100;
end;