BMI - Body Mass Index

[shmia]

Mir fehlt als armer Delphi 5 User die Funktion SimpleRoundTo.
Ich habe mir diese mal eben selbst gebaut:

Delphi-Quellcode:

function SimpleRoundTo(value:Extended; nk:integer):Extended;
var
   multi: Extended;
begin
   multi := IntPower(10, -nk);
   Result := Round(Value*multi) / multi;
end;