Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.275 Beiträge
Delphi 10.4 Sydney
|
AW: Kaufmännische Runden geht nicht !
4. Feb 2014, 17:08
Hallo,
es gab vor etwa einem Jahr mal nen Thread dazu,
nachdem keine der Funktionen so richtig funktioniert hatte,
habe ich mir was eigenes gebaut, was auf String-Handling basiert,
also mit Nullen auf 3 Kommastellen auffüllen,
3. Stelle nach Null prüfen, wenn >=5 aufrunden, sonst abrunden ...
Danach das Komma entfernen und ich habe sofort meine EuroCent als Integer.
Heiko
Heiko
|