8-3)数値を操作する関数

8-3-1)数値の丸め

Round関数

数値を指定した桁数に丸めます｡

    Dim roundedValue As Double
    roundedValue = Round(5.6789, 2)
　　Debug.Print "Round(2):" & roundedValue

Int何晏数

数値を小数点以下切り捨てで整数にします（負の数の場合は切り上げ）

    Dim srcValue As Double
    Dim intValue As Integer
    srcValue = 5.9
    intValue = Int(srcValue) ' intValue は 5 になります
    Debug.Print "Int:" & srcValue & " → " & intValue
    
    srcValue = -5.9
    intValue = Int(srcValue) ' intValue は -6 になります
    Debug.Print "Int:" & srcValue & " → " & intValue

Fix関数

数値を小数点以下切り捨てで整数にします（負の数の場合は切り捨て）

    Dim fixedValue As Integer
    srcValue = 5.9
    fixedValue = Fix(srcValue) ' fixedValue は -5 になります
    Debug.Print "Fix:" & srcValue & " → " & fixedValue
    
    srcValue = -5.9
    fixedValue = Fix(srcValue) ' fixedValue は -5 になります
    Debug.Print "Fix:" & srcValue & " → " & fixedValue

8-3-2)数値の絶対値

Abs関数

数値の絶対値を返します。

Dim absoluteValue As Double
absoluteValue = Abs(-5) ' absoluteValue は 5 になります
debug.print absoluteValue

8-3-3)数値の型変換

CInt関数

数値を整数に変換します。

Dim integerValue As Integer
integerValue = CInt(5.67) ' integerValue は 6 になります
debug.print integerValue

CInt関数

数値を整数に変換します。

Dim integerValue As Integer
integerValue = CInt(5.67) ' integerValue は 6 になります
debug.print integerValue

CDbl関数

数値を倍精度浮動小数点数に変換します。

Dim doubleValue As Double
doubleValue = CDbl(5.67) ' doubleValue は 5.67 になります
debug.print doubleValue

CLng関数

数値を長整数に変換します。

Dim longValue As Long
longValue = CLng(5.67) ' longValue は 6 になります
debug.print doubleValue

Format関数

数値の形式
"0": 先頭にゼロを付けて整数形式にします。
"0.00": 小数点以下2桁まで表示します。
"#,##0": 桁区切り記号を使用して整数形式にします。
	"Currency": 通貨形式にします。

Dim num As Double
num = 1234.567
Debug.Print Format(num, "0")        ' 結果: 1235
Debug.Print Format(num, "0.00")     ' 結果: 1234.57
Debug.Print Format(num, "#,##0")    ' 結果: 1,235
Debug.Print Format(num, "Currency") ' 結果: $1,234.57