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

2021年9月10日

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

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
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
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
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