デルファイTRUNC妙

Question

を振る舞う私は次のコードを持っている：

function Extenso(nb: real); string; 
var 
    total: real; 
begin 
    total := Trunc(nb); 
    ... 
    Result := ...; 
end; 

この関数にはセントを持っていない国、それゆえTRUNCのために、フルに番号を説明する文字列を返します。

入力のparam NBは（小数点0で、私のエラーの場合）790209.00として入ってくる、不思議なTRUNCの結果は、デバッガ上です。誰かがそれを説明しようとすることができますか？私はDelphi XE3のアップデート2でIDEフィックスパック5.93、Windows 10 Pro 64を使用しています。

編集：質問への回答として、ビジネスルールが含まれています。 、しかし、ダウンではありません。あなたの貢献に感謝@Dsmと@CraigYoung。

Answer 1

ここではトランケートではなくラウンドを使用する必要があります。実数型では、値はかなり正確ではないので、たとえば790209.00は実際には790208.999999999であり、これを切り捨てると値が表示されます。もちろん、あなたがするたびに何をしたいあなたを与えるいない可能性があります丸め、0.5で終わる値があるかもしれない、とあなたは値が `790209.00`設定されている方法

Trunc(nb + 0.000001);