Math.Round 四捨五入 [VB 2010]

VBの四捨五入メソッド

四捨五入するためには、Math.Round関数を使って、次のように3つの引数を指定します。

第1引数：丸めるDecimal型またはDouble型の数値

第2引数：丸めた結果の数値の小数部分の桁数

第3引数：丸め方方法で、四捨五入の場合は、MidpointRounding.AwayFromZero を指定

  Math.Round(11.4999, 0, MidpointRounding.AwayFromZero)  ' 11
  Math.Round(11.5, 0, MidpointRounding.AwayFromZero)     ' 12
  Math.Round(11.4499, 1, MidpointRounding.AwayFromZero)  ' 11.4
  Math.Round(11.45, 1, MidpointRounding.AwayFromZero)    ' 11.5

Math.Round関数を使ったサンプルプログラムです。引数の型と戻り値の型は、Decimal型かDouble型に揃えます。

Module Module1

    Sub Main()
        ' 変数の宣言
        Dim num As Decimal = 1.2345
        Dim ans As Decimal
        For i As Integer = 0 To 4
            ' Math.Roundを使って四捨五入
            ans = Math.Round(num, i, MidpointRounding.AwayFromZero)
            Console.WriteLine("小数部分の桁数 " & i)
            Console.WriteLine(ans)
        Next
    End Sub

End Module

• 切り上げ Math.Ceilingメソッド
• 切り下げ Math.Floorメソッド
• 切り捨て Math.Truncateメソッド

• Mathメソッド（関数）
• VB標準関数