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

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

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

■使用するルーチン

Trunc（小数点を切り下げる）
Round（小数点を四捨五入する）

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

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

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のページへ

ホーム