喫茶XRAYトップページ

[スレッド全体]
[10212] Re:四捨五入について返信　削除
2016/7/22 (金) 16:48:02 Mr.XRAY
> [四捨五入について]
> https://forums.embarcadero.com/thread.jspa?threadID=227533&tstart=0
 
>計算式として、　2000-（2000ｘ0.95ｘ0.755）＝565.5
>引数に565.5を渡しています。

ならないよん．

procedure TForm1.Button3Click(Sender: TObject);
var
  LValue : Integer;
begin
  LValue := RoundAct(2000 - (2000 * 0.95 * 0.755));
  Memo1.Lines.Add(IntToStr(LValue));
end;

全角 (漢字) の () は止めてね．X じゃなくて * がいいと思うよ．
って，全角の ( ) と x じゃ，Delphi が認識してくれないと思うのですが．

[10218] Re2:四捨五入について返信　削除
2016/7/22 (金) 20:45:34 Mr.XRAY
>あるいは、このとき、RoundActの最初のほうに、
>
>if pATAI = 565.5 then
>ShowMessage('pATAI は 565.5 です。');
>
>を入れて、値を確認してみるとか・・・・

なるほど，こういう確認方法という手がありましたか．
比較でもいいですね．

[▼次のスレッド]
INCM/CMT
Cyclamen v3.82