Hallo,
als Korrektur zu #3, (mit DOUBLE gab's Probleme)
Delphi-Quellcode:
function GetDigits(const AValue: Extended; Digits: Integer): Integer;
var
value:Extended;
value1:Real;
begin
value:=frac(AValue)*intpower(10,digits);
value1:=value;
Result := trunc(value1);
end;
Gruß