建议的舍入货币值的方法

Fab*_*mes 4 delphi

首先看到以下问题:

SetRoundMode(rmUp)和舍入"round"值(如10)会产生10,0001.

我需要将货币值向上舍入,因此0.8205变为0.83,但上面显示的SimpleRoundTo行为让我有些头疼.

如何以安全的方式提升货币价值?

Too*_*the 6

您可以使用Ceil功能:

newvalue := Ceil(oldvalue * 100) / 100;
Run Code Online (Sandbox Code Playgroud)