Nachkommastellen vom Typ Real extrahieren und dann runden

[marabu]

Will auch mitspielen:

Delphi-Quellcode:

uses 
  Math;

function Decimals(e: Extended; count: Byte): Int64;
begin
  Result := Round(Frac(e) * Power(10, count));
end;

Grüße vom marabu