「VB.NET」Floorで小数第二位で切り捨てる

2014年6月24日2021年10月6日

書式
Public Shared Function Floor (d As Double) As Double
指定した倍精度浮動小数点数以下の数のうち、最大の整数値を返します。
小数第2位で切り捨てる
(Math.Floor(数値 * 10)) / 10
使用例

Module Module1

    Sub Main()
        'Double型配列
        Dim dbArr() As Double = {8.123, 8.654, 0.165, -0.166, -8.661, -8.666}

        Console.WriteLine("小数第2位で切り捨てる結果")
  
        'Floorで小数第2位で切り捨てる
        For Each dr As Double In dbArr
            Console.WriteLine("{0,7}", (Math.Floor(dr * 10)) / 10)
        Next

        Console.WriteLine()
        Console.WriteLine("小数第3位で切り捨てる結果")
        'Floorで小数第3位で切り捨てる
        For Each dr As Double In dbArr
            Console.WriteLine("{0,7}", (Math.Floor(dr * 100)) / 100)
        Next
        Console.ReadKey()
    End Sub

End Module

実行結果

小数第2位で切り捨てる結果
    8.1
    8.6
    0.1
   -0.2
   -8.7
   -8.7

小数第3位で切り捨てる結果
   8.12
   8.65
   0.16
  -0.17
  -8.67
  -8.67