「VB.NET」Floorで小数第二位で切り捨てる
書式
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