[VB.NET]Ceilingで小数第1位で切り上げる

2021年9月10日

書式
1.Public Shared Function Ceiling (a As Double) As Double
指定した倍精度浮動小数点数以上の数のうち、最小の整数値を返します。

2.Public Shared Function Floor (d As Double) As Double
指定した倍精度浮動小数点数以下の数のうち、最大の整数値を返します。

使用例

Module Module1

    Sub Main()

        'Double型配列
        Dim cftArr() As Double = {8.03, 9.64, 0.32, -0.42, -9.1, -5.6}

        Console.WriteLine("  Value          Ceiling          Floor")
        Console.WriteLine()

        'for each文で配列の要素ををCeiling、Floor関数を使用
        For Each value As Double In cftArr
            Console.WriteLine("{0,7} {1,16} {2,14}", _
                              value, Math.Ceiling(value), Math.Floor(value))
        Next

        Console.ReadKey()

    End Sub

End Module

結果

Value          Ceiling          Floor

 8.03                9              8
 9.64               10              9
 0.32                1              0
-0.42                0             -1
 -9.1               -9            -10
 -5.6               -5             -6

 

VB.net

Posted by arkgame