[VB.NET]Floorで小数点以下を切り捨てる

2014年9月5日2021年10月6日

書式
1.Floor(Double)
指定した倍精度浮動小数点数以下の数のうち、最大の整数値を返します。
2.Ceiling(Double)
指定した倍精度浮動小数点数以上の数のうち、最小の整数値を返します。

使用例

Module Module1

    Sub Main()
        'Double型配列
        Dim dbArr() As Double = {8.03, 8.64, 0.15, -0.16, -8.1, -8.6}

        Console.WriteLine("  値          最小の整数値         最大の整数値")
        Console.WriteLine()

        'Ceiling(Double)　最小の整数値を返す 　Floor(Double) 最大の整数値を返す
        For Each dr As Double In dbArr
            Console.WriteLine("{0,7} {1,16} {2,14}", _
                             dr, Math.Ceiling(dr), Math.Floor(dr))
        Next

        Console.ReadKey()
    End Sub

End Module

実行結果

値          最小の整数値         最大の整数値

 8.03                9              8
 8.64                9              8
 0.15                1              0
-0.16                0             -1
 -8.1               -8             -9
 -8.6               -8             -9