原本以為TBcd 的運算最精確, 結果都讓我滿意,一直到我遇見下面的運算.... 540/6 應該等於90 結果卻是9,請問是哪裡出了問題呀?還是我應該改用Currency? 例如: var AAA,BBB:TBcd; begin BcdDivide('540','6',AAA); showmessage(BCDToStr(AAA)); end;

Hi star0125: 我也測試了一下,感覺真像是Delphi's BUG.. 若被除數尾數有0,當除數是質數倍數時, 若整除就會有問題.. 540 除以 (3,6,7,9,13,14,15,17-----)都會有問題...    要不然就是您再多寫幾行code, 當整除時用替代方法, 不過這樣看起來也很笨 搞不好又有其他Bug..... >~悠遊法國號~

謝謝 yachanga 的發現  ........................ 若被除數尾數有

如同yachanga兄所這這應該是Delphi's BUG，錯誤是在FmtBcd->RoundAt函數，所以在個人認為就算改為Currency也沒有用的，除非改正這個函數。 希望能對你有所幫助.