Nur x Nachkommastellen von Float

[anse]

Nabend zusammen,

es gibt ja System.Trunc, um den Integer Teil eines Floats zu bekommen.
Gibt es quasi als Gegenstück eine Funktion die nur die ersten Ziffern des Dezimalteils liefert?
Also z.B. sowas

Code:

GetDigits(10.234567, 3); => "234"

Meine Alternative funktioniert auch aber finde ich nicht schön:

1. Integer-Teil vom Float subtrahieren: 10.234567 - 10 => 0.234567
2. Ergebnis mit 1000 mulitiplizieren: => 234.567
3. System.Trunc() darauf: => 234

[Uwe Raabe]

Punkt 1 ließe sich auch durch Frac(x) ersetzen.
Wenn es Runden statt Abschneiden sein darf, dann wäre RoundTo eine Alternative. Theoretisch kann man vorher mit SetRoundMode einstellen, wie das erfolgen soll (damit ginge auch ein truncate), aber das ist natürlich nicht threadsicher.

[mmw]

hallo,
evtl. so (Rohversion)

Delphi-Quellcode:

function GetDigits(Value:EXTENDED;digit:integer):Extended;

var
   value1,
   value2:extended;

begin
 value1:=0;
 value2:=0;
  value1:=frac(value);
  value2:=Power(10,digit);
 result:=trunc(value1*value2);
end;

Gruß

[Uwe Raabe]

Da digit ein Integer ist, bietet sich auch IntPower an:

Delphi-Quellcode:

function GetDigits(const AValue: Double; Digits: Integer): Integer;
begin
  Result := Trunc(Frac(AValue)*IntPower(10, Digits));
end;

[anse]

Vielen Dank, das sieht schon eleganter/lesbarer aus!

[Michael II]

Double Zahlen sind etwas gefährlich. Die Mantisse bei double ist 52 Bits gross. Wenn ein Dezimalbruch binär geschrieben unendlich viele Stellen hat, dann kann die Mantisse mit ihren 52 Bits unendlich viele der 1en nicht aufnehmen.

Beispiel 0.1(10) ist binär geschrieben periodisch 0.000110011001100....(2) mit Periode 1100. D.h. die Dezimalzahl 0.1 lässt sich als double nicht genau abspeichern. Es werden nur die ersten 52 Bits NACH der ersten 1 (implizites Bit) abgespeichert.

Wenn zum Beispiel genau die ersten 52 Bits der Binärdarstellung eines solchen Bruchs abgespeichert werden, dann ist der effektiv abgespeicherte Wert etwas zu klein (Bits 53+ gehen alle verloren).

Delphi-Quellcode:

procedure testD;
var avalue, d1, d2 : double;
   a,b, res : integer;
begin
  avalue := 98.103;
  d1 := frac(avalue);
  d2 := d1 * 1000;
  res := trunc(d2);
  showmessage(res.ToString);
  showmessage(getdigits(avalue,3).ToString );
end;

wobei GetDigits die weiter oben vorgeschlagene Funktion ist.
Wenn der Code oben in Delphi ausgeführt wird, dann ist d1=0.102999999999994; der Output lautet beide Male 102; wir hätten gern 103.

Was helfen kann:
Wenn man den gespeicherten Wert um den kleinstmöglichen Wert Epsilon = 0 00 00 00 00 00 01 (hex) erhöht, dann liegt im Speicher neu eine etwas zu grosse Zahl. trunc funktioniert dann wie erwartet.

Hinweis: Der Code plusepsilon (unten) kann Plattform abhängig sein und berücksichtigt den Fall "alle 52 Mantissenbits=1" nicht.

Delphi-Quellcode:

function plusepsilon(d: Double): Double;
// addiert die kleinstmögliche zahl zu d. 
// Bedingung: d>0
var
  Bits: Int64 absolute d;
begin
  Inc(Bits);
  Result := d;
end;

procedure testD;
var avalue, d1, d2 : double;
   a,b, res : integer;
begin
  avalue := plusepsilon(98.103);
....

(Es gibt natürlich weitere, weniger "mathematische" Lösungen... )