指定した桁で切り上げ、切り捨てができる関数です。
厳密にはなりません(^^;)

power は nifty:FDELPHI/MES/16/00201 を参考にして下さい

     x  実数
     n  切り捨てる位
        以下のように指定します。
        100未満の位で切り捨て = 2
        10未満の位で切り捨て = 1
        0.1未満の位で切り捨て = -1
        0.01未満の位で切り捨て = -2

■指定された位置で切り捨てをおこなう
function floor(x: Extended; n: integer): Extended;
var
    f: Extended;
begin
    f := Power(10, -n);
    result := Math.floor(x * f) / f;
end;

■指定された位置で位置指定切り上げをおこなう
function ceil(x: Extended; n: integer): Extended;
var
    f: Extended;
begin
    f := Power(10, -n);
    result := Math.ceil(x * f) / f;
end;

■指定された位置で切り捨てをおこなう
function trunc(x: Extended; n: integer): Extended;
var
    f: Extended;
begin
    f := Power(10, -n);
    result := System.trunc(x * f) / f;
end;

 


Original document by いさやん        氏 ID:(YIB02642)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。