Visual Basic サンプル集 |
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
Visual Basic 中学校 > Visual Basic サンプル集 > Visual Basic サンプル集目次 >
四捨五入する
2020/6/8
銀行丸め(偶数丸め)や切捨て・切り上げではなく四捨五入します。このページの例はすべて四捨五入です。
小数を四捨五入して整数にする
Dim value
As Decimal = 2.5D Dim result As Decimal = Math.Round(value, MidpointRounding.AwayFromZero) Debug.WriteLine(result) ' 3 と表示されます。 |
この例では「3」と出力されます。 → Debug.WriteLineが表示される場所
2.5D の末尾の「D」はこの数値リテラルが 十進型(Decimal)であることを示すものです。
倍精度浮動小数点型(Double)でもできます。(他の例も同様です。)
Dim value
As Double = 2.5 Dim result As Double = Math.Round(value, MidpointRounding.AwayFromZero) Debug.WriteLine(result) ' 3 と表示されます。 |
この例でも「3」と出力されます。 → Debug.WriteLineが表示される場所
四捨五入して小数第1位までにする
Dim value
As Decimal = 12.35D Dim result As Decimal = Math.Round(value, 1, MidpointRounding.AwayFromZero) Debug.WriteLine(result) ' 12.4 と表示されます。 |
この例では「12.4」と出力されます。 → Debug.WriteLineが表示される場所
四捨五入して小数第2位までにする
Dim value
As Decimal = 12.345D Dim result As Decimal = Math.Round(value, 2, MidpointRounding.AwayFromZero) Debug.WriteLine(result) ' 12.35 と表示されます。 |
この例では「12.35」と出力されます。 → Debug.WriteLineが表示される場所
四捨五入して小数第n位までにする
Dim n As
Integer = 5 Dim value As Decimal = 12.34567890D Dim result As Decimal = Math.Round(value, n, MidpointRounding.AwayFromZero) Debug.WriteLine(result) ' 12.34568 と表示されます。 |
この例では「12.34568」と出力されます。 → Debug.WriteLineが表示される場所
四捨五入して百の位までの概数にする
Dim value
As Decimal = 123456.78D Dim kurai As Integer = 100 Dim result As Decimal = Math.Round(value / kurai, MidpointRounding.AwayFromZero) * kurai Debug.WriteLine(result) ' 123500 と表示されます。 |
この例では「123500」と出力されます。 → Debug.WriteLineが表示される場所
四捨五入して千の位までの概数にする
Dim value
As Decimal = 123456.78D Dim kurai As Integer = 1000 Dim result As Decimal = Math.Round(value / kurai, MidpointRounding.AwayFromZero) * kurai Debug.WriteLine(result) ' 123000 と表示されます。 |
この例では「123000」と出力されます。 → Debug.WriteLineが表示される場所