Einzelnen Beitrag anzeigen

Klaus01
Online

Registriert seit: 30. Nov 2005
Ort: München
5.755 Beiträge
 
Delphi 10.4 Sydney
 
#11

Re: Nachkommastellen vom Typ Real extrahieren und dann runde

  Alt 18. Feb 2006, 18:29
wenn Du die letzten 3 Ziffern hinter dem Komma haben möchtest.
muss der Restwert mit 1000 multipliziert werden.

aus 0,2 werden 200
aus 0,21 werden 210
aus 0,234 werden 234

um zu prüfen ob der Wert eine Zahl ist die ganzzahlig durch 100 teilbar ist


Delphi-Quellcode:
if (zahl MOD 100 = 0) then
  ergebnis := zahl DIV 100
else
  if (zahl MOD 10 = 0) then
    ergebnis := zahl DIV 10;
damit würden aus 0,200 (*1000) -> 200 (DIV 100) -> 2
aus 0,21 (*1000) -> 210 (DIV 10) -> 21
aus 0,212 (*1000) -> 212 -> 212

negative Zahlen kann man vorher mit abs in positive wandeln.

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat