【VBScript】四捨五入、切り上げ、切り捨て

VBScript

四捨五入

VBScriptで、四捨五入をするには「round」を使用します。

'四捨五入する
round( 四捨五入する数値 , 小数点何桁にするか)

'実行例
WScript.Echo round(12345.6789 , 0)   '結果:123456
WScript.Echo round(12345.6789 , 1)   '結果:12345.7
WScript.Echo round(12345.6789 , 2)   '結果:12345.68
WScript.Echo round(12345.6789 , 3)   '結果:12345.679

 

 

切り上げ

VBScriptで、切り上げをするには例のように、四捨五入したい桁に0.5や0.05を足して、四捨五入することでできるようになります。

'切り上げをする
round(切り上げする数値 + 調整値 , 何桁で切り上げするか - 1 )
'※調整値:0.5 , 0.05 , 0.005(切り上げする桁による)

'実行例
'小数点第1位切り上げ
WScript.Echo round(12345.1234 + 0.5 , 0)      '結果:123456

'小数点第2位切り上げ
WScript.Echo round(12345.1234 + 0.05 , 1)     '結果:12345.2

'小数点第3位切り上げ
WScript.Echo round(12345.1234 + 0.005 , 2)    '結果:12345.13

'小数点第4位切り上げ
WScript.Echo round(12345.1234 + 0.0005 , 3)   '結果:12345.124

 

 

切り捨て

VBScriptで、切り捨てをするには次のようにします。

'切り捨てする
Fix(切り捨てする数値 / 10 ^ 何桁切り捨てするか) * 10 ^ 何桁切り捨てするか

'実行例
'小数点第1位切り捨て
WScript.Echo Fix(12345.6789 / 10 ^ 0) * 10 ^ 0     '結果:12345

'小数点第2位切り捨て
WScript.Echo Fix(12345.6789 / 10 ^ -1) * 10 ^ -1   '結果:12345.6

'小数点第3位切り捨て
WScript.Echo Fix(12345.6789 / 10 ^ -2) * 10 ^ -2   '結果:12345.67

'小数点第4位切り捨て
WScript.Echo Fix(12345.6789 / 10 ^ -3) * 10 ^ -3   '結果:12345.678