【実務・中級編】初心者向け：VB.NETにおけるCInt、CLng、Val関数の挙動差異とオーバーフロー対策：レガシーな数値変換からモダンなTryParseへの移行 – Visual Basic (VB / VB.NET)解析バイブル

【VB.NET極限知見】CInt・CLng・Valの罠と、明日から現場で使える堅牢な数値変換アーキテクチャ

業務システムの開発現場において、画面からの入力値、CSVファイル、あるいはレガシーなデータベースから取得した「文字列」を数値に変換する処理は、最も頻繁に書かれるコードの一つだ。

しかし、この「文字列から数値への変換」を侮るなかれ。
甘い設計で `CInt` や `Val` をなんとなく使い続けていると、ある日突然、顧客の稼働環境でアプリケーションが突如クラッシュ（未処理例外による強制終了）を引き起こす。あるいは、意図せぬ丸め誤差や型変換エラーがサイレントに発生し、DBのデータを静かに破壊していく。

今回は、VB.NETにおける数値変換関数の挙動の決定的な違いを解剖し、レガシーなコードからモダンで揺るぎない `TryParse` パターンへの移行手法を、チーフアーキテクトの視点からロジカルかつシャープに伝授する。

—

1. なぜ「数値変換」でアプリがクラッシュするのか？

業務自動化ツールや社内ニッチシステムを開発する際、開発者は「正しいデータが入力される」という性善説に立ちがちだ。
しかし、現実は非情である。

• ユーザーがテキストボックスに全角スペースや「1,000」のようなカンマを含めて入力した。
• 外部連携のCSVファイルが文字化けしていた、あるいは空欄（Null / 0文字）が含まれていた。
• 想定を超える桁数の数値が飛び込んできた。

これらを防げずにお蔵入り、あるいは緊急メンテに追われるプロジェクトを私は数多く見てきた。
まずは、VB.NETが標準で提供する3つの変換手法の「正体」を暴こう。

—

2. 徹底比較：`CInt` vs `CLng` vs `Val` の挙動差異

VB.NETには、数値を扱うための代表的な関数として `CInt`、`CLng`、そして旧VB（VB6）の遺物である `Val` が存在する。それぞれの仕様と「地雷」を整理する。

① `CInt` / `CLng` （型変換関数）

• 挙動: 指定した式を `Integer` 型（32bit）または `Long` 型（64bit）に厳格に変換する。
• 空文字の扱い: `””` を渡すと `0` に変換される。（※一見優しく見えるが、これがバグの温床になる）
• 無効な文字列の扱い: `”123ABC”` や `”A123″` のような数値にパースできない文字列を渡すと、容赦なく `InvalidCastException`（無効なキャスト例外） をスローし、アプリがクラッシュする。
• オーバーフロー: 型の表現範囲（`Integer` なら約-21億〜+21億）を超えた値を渡すと、`OverflowException` が発生する。

② `Val` 関数（レガシー互換関数）

• 挙動: 文字列の先頭から数値を解釈し、数値として認識できなくなる文字が現れる直前までを数値化する。
• 空文字の扱い: `0` を返す。
• 無効な文字列の扱い: 例外を一切スローしない。「サイレント失敗」の代表格である。
• `Val(“123ABC”)` ➔ `123` （通ってしまう！）
• `Val(” 100 “)` ➔ `100`
• `Val(“￥5,000”)` ➔ `0` （円マークやカンマは数値とみなされないため、先頭でストップして 0 になる）
• アーキテクトの視点: バグの温床でしかない。データの異常値を隠蔽してしまうため、データベースの不整合を引き起こす最悪のトリガーとなる。今すぐコードベースから駆逐すべき関数である。

—

3. 実務で即死するアンチパターンコード

以下のコードを見てほしい。業務システムの画面から取得した値をそのまま計算処理に回す、よくある「動くだけの危険なコード」だ。

‘ 【アンチパターン】絶対に真似してはいけない危険なコード
Private Sub 悪い例_Button_Click(sender As Object, e As EventArgs)
Dim inputStr As String = txtQuantity.Text ‘ ユーザー入力

‘ Valを使っている場合： “ABC” と入力されても 0 になり、エラーですら気づけない
Dim qtyVal As Integer = Val(inputStr)

‘ CIntを使っている場合： “10,000” (カンマ付き) や “123.45” を入れると即死クラッシュ
Dim qtyCInt As Integer = CInt(inputStr)

Dim total As Integer = qtyCInt 1500
lblTotal.Text = total.ToString()
End Sub

このコードは、テスターが「正常系」のテストをしている時は完璧に動く。しかし、エンドユーザーが一度でも誤った操作（全角入力、記号混入、空送信）を行った瞬間、システムは停止するか、値を勝手に丸めて不正な業務データを生成する。

—

4. モダンな解決策：`Integer.TryParse` / `Long.TryParse` による堅牢な設計

.NET Framework / .NET Core 時代における数値変換のゴールドスタンダードは、各数値型が持つ `TryParse` メソッド の活用である。

`TryParse` の圧倒的な優位性は以下の通りだ。
1. 例外を投げない（ハイパフォーマンス）: 例外処理（`Try-Catch`）はコストが非常に高い。.NETの例外機構に頼らず、戻り値（Boolean）で成否を判定するため動作が極めて軽量。
2. 安全なデフォルト値: 失敗した場合は、事前に用意した変数やデフォルト値（0など）を安全に維持できる。
3. カルチャ（地域設定）の制御: カンマ区切りや通貨記号などを厳密にコントロールできる。

プロダクションコード例：保守性の高い安全な入力値検証

現場の業務アプリケーションでそのままコピペして使える、堅牢なヘルパーメソッドを含む実装例を提示する。

Imports System

Public Class FormMain

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
‘ 1. 入力値の取得と前処理（前後の空白トリムは基本中の基本）
Dim rawInput As String = txtQuantity.Text.Trim()
Dim quantity As Integer

‘ 2. TryParseによる安全な変換チェック
‘ 失敗した場合は False を返し、アプリをクラッシュさせずにハンドリングできる
If Integer.TryParse(rawInput, quantity) Then

‘ — 変換成功時の処理 —
‘ ここでビジネスロジックを展開する
If quantity < 0 Then MessageBox.Show("数量にマイナスの値は指定できません。", "入力エラー", MessageBoxButtons.OK, MessageBoxIcon.Warning) txtQuantity.Focus() Return End If Dim unitPrice As Integer = 1500 Dim total As Long = CLng(quantity) unitPrice ' オーバーフロー対策としてCLngでキャストして計算 lblTotal.Text = total.ToString("N0") ' 3桁カンマ区切りでフォーマット Else ' --- 変換失敗時の処理（ユーザーへの親切なフィードバック） --- MessageBox.Show("数量には有効な半角数字を入力してください。" & Environment.NewLine & "入力値: " & rawInput, "入力エラー", MessageBoxButtons.OK, MessageBoxIcon.Error) txtQuantity.Focus() txtQuantity.SelectAll() End If End If End Class ---

5. ファイル連携・データベース連携における高度な注意点

画面入力だけでなく、テキストファイル（CSV/TSV）や外部API、レガシーDBからデータを読み込む際も、この `TryParse` の思想がそのまま活きる。

特にCSVファイルなどの一括処理（バルク処理）を行う場合、1行でも不正なデータが含まれているためにファイル全体取り込みがロールバックされる、あるいは途中で例外落ちする事故は後を絶たない。

堅牢なCSVパースの設計思想

1. 「データ行の検証（バリデーション層）」と「ビジネスロジック層」を完全に分離する。
2. 読み込み時に全行の型変換テスト（`TryParse`）を行い、エラーがある行は「エラーログリスト」に蓄積する。
3. ユーザーに対して「〇行目に不正なデータがあります。処理を中断しました」と具体的なフィードバックを返すアーキテクチャにする。

‘ ファイル読み込み時の安全な数値抽出のイメージ
Dim lineValues() As String = csvLine.Split(“,”c)
Dim parsedId As Integer

‘ IDが数値としてパースできない行は、不正データとしてスキップ＆ログ記録
If Not Integer.TryParse(lineValues(0), parsedId) Then
‘ エラーリストへ追加する処理
Continue For
End If

—

6. チーフアーキテクトからの総括

VB.NETにおける数値変換は、単なる「型の辻褄合わせ」ではない。それはアプリケーションの信頼性を担保する最前線の砦である。

• `Val` は使わない。 （過去の遺物は封印せよ）
• `CInt` / `CLng` は「確実に数値であると保証された前提（内部計算など）」でのみ使う。
• 外部からの入力（UI、ファイル、DB）には必ず `Integer.TryParse` / `Long.TryParse` を採用し、例外によるクラッシュを根絶する。

この鉄則をチーム全体で共有しコードに落とし込むだけで、あなたの作る業務自動化ツール・システムの品質は劇的に跳ね上がる。明日からのコードレビューで、ぜひこの視点を取り入れてほしい。