師匠の散歩

きままにPerlでも

round関数

参考資料の確認とメモ/ subRound.cgi

sub round {
    my $val = shift;
    my $col = shift;
sub round  {
    my $val = shift(@_);
    my $col = shift(@_);
    my $r = 10 ** $col;
    my $a = ($val > 0) ? 0.5 : -0.5;
  return int($val * $r + $a) / $r;
}
round($val,$col);
$val:元の数字を入れる
$col:丸めたい小数点桁、マイナスだとプラス方向の桁になる
元の桁数以上の小数点で丸めても、ゼロは入らない。
round( 198.12345, 0) = 198
round( 198.12345, 4) = 198.1235
round( 198.12345,10) = 198.12345
round( 198.12345,-1) = 200
round(-198.12345, 2) =-198.12

subRound.cgi // Topに戻る // indexに戻る
Copyright(C) 2009-2021 Grandmaster Last up : 2020/09/18