浮動小数点数の罠を断つ：VB.NETの`Math`クラスと丸め誤差の完全制御
開発現場で最も恐れられているバグの一つを知っているか？
それは、コンパイルエラーにもならず、単体テストのモックデータでは完璧に通り抜け、月末の締め処理や請求書の突合段階で突如として数円〜数銭のズレを生む「丸め誤差」だ。
Excelで適当に「四捨五入」の数式を組み、それをそのままVB.NETでコード化する。
この安易なアプローチが、どれほど多くの業務システムを破壊してきたことか。
今回は、業務自動化ツールや基幹連携プログラムを構築する開発者に向けて、VB.NETの`Math`クラスにおける丸め処理の真実と、実務で絶対に破綻しない堅牢な実装パターンを授ける。
—
1. なぜ「四捨五入」でシステムが炎上するのか？
まず、プログラミングにおける小数の扱いを根本から理解しなければならない。
コンピュータは内部で「2進数」を使っている。そのため、人間が日常的に使う「0.1」という10進数は、2進数に変換すると無限小数（循環小数）になる。
10進数: 0.1
2進数: 0.000110011001100110011001100110011001100110011001100110… （無限ループ）
この「表現しきれない誤差」を抱えたまま四捨五入を行うと、どうなるか。
例えば、`2.5` という数値を四捨五入したいとする。数学的には「3」だ。しかし、メモリ上では `2.49999999999…` や `2.50000000001…` として保持されている可能性がある。これでは意図した結果が得られないのは明白だ。
Math.Roundの「銀行丸め（JIS丸め）」の呪縛
VB.NETの `Math.Round` メソッドをデフォルトのまま使う場合、最大の罠が待ち受けている。
`Math.Round` は、学校で習う「四捨五入（五捨六入の変形）」ではなく、「JIS丸め（偶数丸め / 銀行丸め）」を採用している。
- JIS丸めとは？
端数が「0.5」の時、最も近い「偶数」に丸める方式。
- `2.5` → `2`
- `3.5` → `4`
「なんで四捨五入にならないんだ！」と現場からクレームが上がる原因の9割はこれだ。
累計計算を行う業務システムにおいて、四捨五入の偏りを防ぐためにJIS丸めは理論的に正しい（統計的バイアスがかからない）。しかし、日本の商習慣（国税庁の通達や一般的な請求書）では「四捨五入（JIS丸めではない）」が絶対正義とされることが大半だ。
業務システムでこれを誤ると、監査で致命的な指摘を受けることになる。
—
2. 【結論】実務で絶対にバグらない丸め処理の設計
業務システムで丸め誤差やJIS丸めの罠を完全に回避するためには、以下の鉄則を遵守せよ。
1. 小数を扱う時は `Double` ではなく `Decimal` 型を使え
`Double` は浮動小数点数であり誤差の塊だが、`Decimal` 型は10進数演算を行うため、金銭計算や回数計算において誤差が発生しない。
2. `Math.Round` を使う時は「MidpointRounding」を明示せよ
四捨五入（切り上げ）を行いたいのか、JIS丸めを行いたいのかをコード上で明確に固定する。
3. データベースやファイル出力時は必ず型と桁数を一致させよ
—
3. 【コピペ即採用】プロダクションコード実装例
実務でそのまま使える、堅牢な丸め処理ユーティリティクラスのコードだ。
四捨五入、切り捨て、切り上げの3つを網羅し、すべて `Decimal` 型をベースに安全に処理する。
System
Public Module MathUtility
”’
”’
”’ 対象の数値
”’ 小数点以下の桁数
”’
Public Function RoundAwayFromZero(value As Decimal, decimals As Integer) As Decimal
‘ MidpointRounding.AwayFromZero を指定することで、学校で習う通常の四捨五入になる
Return Math.Round(value, decimals, MidpointRounding.AwayFromZero)
End Function
”’
”’
”’ 対象の数値
”’ 小数点以下の桁数
”’
Public Function TruncateValue(value As Decimal, decimals As Integer) As Decimal
Dim factor As Decimal = CDec(Math.Pow(10, decimals))
If value >= 0 Then
Return Math.Floor(value factor) / factor
Else
Return Math.Ceiling(value factor) / factor
End If
End Function
”’
”’
”’ 対象の数値
”’ 小数点以下の桁数
”’
Public Function CeilingValue(value As Decimal, decimals As Integer) As Decimal
Dim factor As Decimal = CDec(Math.Pow(10, decimals))
If value >= 0 Then
Return Math.Ceiling(value factor) / factor
Else
Return Math.Floor(value factor) / factor
End If
End Function
End Module
コードの解説
- `MidpointRounding.AwayFromZero`: これを第3引数に渡すことで、JIS丸めの呪縛から解放され、誰もが納得する「通常の四捨五入」を実現している。
- 負数の考慮（切り捨て・切り上げ）: 単純な `Math.Floor` や `Math.Ceiling` は負数の扱いで挙動が直感に反することがある（例：`-1.2` の切り捨てが `-2` になる等）。上記のコードでは、実務の要件（絶対値に対する切り捨て・切り上げ）に合わせた安全なロジックに補正している。
—
4. ファイル・データベース連携における注意点
このユーティリティで綺麗に丸めたデータも、DBやCSVファイルに出力する段階で型を間違えると台無しになる。
① データベース（SQL Server / Oracle等）への保存
- データベース側の定義が `DECIMAL(18, 2)` や `NUMERIC(12, 0)` の場合、VB.NET側から渡すパラメータの型も必ず `System.Data.DbType.Decimal` または `SqlDbType.Decimal` にマッピングすること。
- `Double` 型の変数をそのままSQLのパラメータにバインドすると、DB側で予期せぬ丸めや変換エラーが発生する原因になる。
② CSV / Excelファイル出力
- テキストファイル（CSV）に書き出す際は、文字列フォーマットを明示せよ。
.net
Dim amount As Decimal = 12345.678M
‘ 小数点以下2桁でフォーマットしてCSVに出力
Dim csvText As String = amount.ToString(“F2”)
- Excel連携（COM InteropやEPPlus等のライブラリ使用時）においても、セルの値に `Double` をブチ込むのではなく、セルフォーマット（`”#,
0.00″` など）と数値を一致させ、人間が目視する値と内部の保持値に乖離がない状態を強制すること。
—
プロフェッショナルとしてのまとめ
「たかが四捨五入、されど四捨五入」。
この細部へのこだわりを怠るエンジニアが書いたコードは、必ず本番稼働後にトラブルを引き起こす。
- 小数計算には `Decimal` 型を使う。
- 四捨五入には `MidpointRounding.AwayFromZero` を忘れない。
- 浮動小数点数の甘えを捨て、データ型と丸め方向を常にコントロールする。
この知見を体に叩き込み、絶対に信頼される堅牢な業務システムを作り上げてほしい。
