小数点を切り上げ、切り下げ、四捨五入する

ここでは小数点の数値を切り上げ、切り下げ、四捨五入します。



■使用するルーチン

■ソースは下記のようになります。

■小数点を切り上げ、切り下げ、四捨五入する処理
procedure TForm1.Button1Click(Sender: TObject);
Var
 Suti : Double;
begin

 Suti :=1.2345;
 //切り下げ
 ShowMessage(InttoStr(Trunc(Suti)));
 //切り上げ
 ShowMessage(InttoStr(Trunc(Suti)+1));
 //四捨五入
 ShowMessage(InttoStr(Trunc(Suti+0.5)));

end;



Delphi Tipsのページへ



ホーム