VB.NET 切り上げのサンプル(Ceiling)

VB.NETのCeilingメソッドで、切り上げを行うサンプルです。

説明	切り上げる(Ceilingメソッド)
サンプル	小数第一位で切り上げる
	小数第二位または小数第三位で切り上げる
	1の位または10の位で切り上げる

切り上げる(Ceilingメソッド)

Public Shared Function Ceiling (a As Double) As Double

Ceilingメソッドは、小数第一位で切り上げます。
少数第一位以外を対象とする場合は、値を10倍にしたり1/10にする等の操作で求めることができます。
引数はDouble型で戻り値もDouble型です。
Ceilingは天井という意味です。

小数第一位で切り上げる

Module Module1
    Sub Main()
        ' 小数第一位で切り上げ
        Dim a As Double = 2.26
        Console.WriteLine(Math.Ceiling(a)) '3

        ' 小数第一位で切り上げ
        Dim b As Double = 2.82
        Console.WriteLine(Math.Ceiling(b)) '3

        ' マイナス値の場合
        Dim c As Double = -2.82
        Console.WriteLine(Math.Ceiling(c)) '-2
    End Sub
End Module

Ceilingメソッドで小数第一位を切り上げています。
13行目は、マイナスの値の場合です。

小数第二位または小数第三位で切り上げる

Module Module1
    Sub Main()
        Dim a As Double = 12.262

        ' 小数第二位で切り上げ
        Console.WriteLine((Math.Ceiling(a * 10)) / 10) ' 12.3

        ' 小数第三位で切り上げ
        Console.WriteLine((Math.Ceiling(a * 100)) / 100) ' 12.27
    End Sub
End Module

6行目は、小数第二位で切り上げています。以下の操作です。
１．対象の値に10を掛けます。(12.262 * 10 = 122.62)
２．Ceilingメソッドを使用して小数点以下を切り上げます。(122.62 → 123)
３．対象の値を再度10で割ります。(123 / 10 = 12.3)

1の位または10の位で切り上げる

Module Module1
    Sub Main()
        Dim a As Double = 12.262

        ' 小数第二位で切り上げ
        Console.WriteLine((Math.Ceiling(a / 10)) * 10) ' 20

        ' 小数第三位で切り上げ
        Console.WriteLine((Math.Ceiling(a / 100)) * 100) ' 100
    End Sub
End Module

6行目は、1の位で切り上げています。以下の操作です。
１．対象の値を10で割ります。(12.262 / 10 = 1.2262)
２．ceilメソッドを使用して小数点以下を切り上げます。(1.2262 → 2)
３．対象の値を再度10で掛けます。(2 * 10 = 20)

以下はMicrosoftのCeilingメソッドのリンクです。
https://docs.microsoft.com/ja-jp/dotnet/api/system.math.ceiling?view=netframework-4.8#System_Math_Ceiling_System_Double_