Nachkommastellen vom Typ Real extrahieren und dann runden

[alzaimar]

Oder so;

Delphi-Quellcode:

Function ExractFractionalPart (aValue : Extended) : Int64;
Const
  ccMaxDigits = 100000000000; // Weiss nicht, ob das reicht 

Begin
  Result := Trunc (ccMaxDigits * Fract (aValue)); // z.b. : 1.23 => 230000000
  While (Result>0) And (Result mod 10 = 0) do  // Solange <>0 und die letzte Stelle 0 ist, wegschnippeln
    Result := Result div 10;
End;