[数値の切り捨て]

数値を指定した桁で切り捨てます。

【ソースコード】

[tips0011.vbs]
Option Explicit

' 数値の切り捨て関数
Function RoundDown(ByVal dblValue, ByVal lngDigit)
    RoundDown = Fix(dblValue * (10 ^ lngDigit)) / (10 ^ lngDigit)
End Function

Dim dblValue    ' 数値

WScript.Echo dblValue & " を各桁で切り捨て"
WScript.Echo "　" & RoundDown(12345.67890, 2)
WScript.Echo "　" & RoundDown(12345.67890, 1)
WScript.Echo "　" & RoundDown(12345.67890, 0)
WScript.Echo "　" & RoundDown(12345.67890, -1)
WScript.Echo "　" & RoundDown(12345.67890, -2)

【実行結果】

C:\> cscript //NoLogo tips0011.vbs
12345.6789 を各桁で切り捨て
　12345.67
　12345.6
　12345
　12340
　12300