Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
18. Feb 2006
Nich schlecht. Weiss er denn, wie viele Nachkommastellen er haben will? Ich hab das so verstanden, das er sie Alle will, ohne zu zählen: 1.2345 => 2345. 1.2345678 ==> 2345678.
Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
18. Feb 2006
Oder so;
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;