Sub Sample() Dim a As Double, b As Double, c As Variant a = 1234.5678 b = -1234.5678 MsgBox Int(a) '1234が返ります MsgBox Int(b) '-1235が返ります c = Int(b) MsgBox VarType(c) '5(Double)が返ります End Sub