[VB.net]Ceilingで1の位で切り上げるサンプル

2021年9月10日

書式
1.1の位で切り上げる
(Math.Ceiling(数値 / 10)) * 10
2.10の位で切り上げる
(Math.Ceiling(数値 / 100)) * 100
使用例

Module Module1

    Sub Main()

        'Double型変数の宣言
        Dim de As Double = 34.456

        ' 1の位で切り上げ
        Console.WriteLine("1の位で切り上げる結果")
        Console.WriteLine((Math.Ceiling(de / 10)) * 10)

        ' 10の位で切り上げ
        Console.WriteLine("10の位で切り上げる結果")
        Console.WriteLine((Math.Ceiling(de / 100)) * 100)

        Console.ReadKey()

    End Sub

End Module

結果
1の位で切り上げる結果
40
10の位で切り上げる結果
100

VB.net

Posted by arkgame