ユーティリティクラスの時代は終わった：VB.NET 拡張メソッドで実現する「ドメイン駆動型」クリーンコードへの昇華
貴殿が今、目の前の業務アプリケーションのコードを眺めて、溜め息をついているとしたら——その直感は正しい。
`StringHelper.FormatDate(dt)` や `DateUtils.ParseSafe(str)` といった、どこにでもある「ユーティリティクラス」の乱立。これらは一見、整理されているように見える。しかし、オブジェクト指向の観点から見れば、これらは「オブジェクトが持つべき振る舞いを外部に切り離してしまった、不完全な設計」の象徴に他ならない。
コードの可読性を下げ、文脈（コンテキスト）を分断する。そんな冗長な記述をいつまで続けるつもりか？
今回は、VB.NETにおける真の武器、「拡張メソッド（Extension Methods）」を伝授する。既存の `String` や `DateTime` といった標準クラスに、貴殿の業務ドメインに特化した「知能」を注入する方法だ。これをマスターすれば、貴殿のコードは「手続き型の羅列」から「直感的なドメイン言語」へと進化する。
1. なぜ「ユーティリティクラス」では不十分なのか
まず、設計思想の根本を叩き直そう。以下の2つのコードを見てほしい。
【Before: 従来のユーティリティ方式】
' どこか遠くにあるHelperクラスを呼び出す必要がある
Dim displayDate As String = DateHelper.ToBusinessFormat(targetDate)
Dim amount As Decimal = StringHelper.ToDecimalSafe(inputString)【After: 拡張メソッド方式】
' オブジェクト自身が「自分をどう表現すべきか」を知っている
Dim displayDate As String = targetDate.ToBusinessFormat()
Dim amount As Decimal = inputString.ToDecimalSafe()一目瞭然だ。拡張メソッドを採用することで、「何に対して（Subject）」「何をしたいのか（Action）」が左から右へ流れる、自然な英文のような記述が可能になる。これは単なる「書きやすさ」の問題ではない。コードの認知負荷（Cognitive Load）を劇的に下げる、極めて重要な設計判断なのだ。
2. 実装の核心：Moduleによる拡張メソッドの定義
VB.NETにおいて、拡張メソッドを定義するには、必ず `Module` 内で `Extension` キーワードを使用する必要がある。ここがC#との作法的な違いであり、VB.NETの堅牢な設計思想が現れる部分だ。
以下に、実務で即戦力となる「業務特化型拡張メソッド」のテンプレートを示す。
Imports System.Runtime.CompilerServices ' Extension属性に必要
''' <summary>
''' 業務ドメインに特化した型拡張定義。
''' 名前空間を分けることで、意図しないメソッドの露出を防ぐのがプロの作法である。
''' </summary>
Namespace BusinessExtensions
Public Module StringExtensions
''' <summary>
''' 文字列を安全にDecimalに変換する。パース失敗時は0を返す。
''' </summary>
''' <param name="value">変換対象の文字列</param>
<Extension()>
Public Function ToDecimalSafe(ByVal value As String) As Decimal
' Nothingチェックは必須。設計の基礎だ。
If String.IsNullOrEmpty(value) Then Return 0D
Dim result As Decimal
' TryParseを使用し、例外によるプロセス停止を回避する（堅牢性の担保）
If Decimal.TryParse(value, Nothing, Globalization.NumberStyles.Any, Globalization.CultureInfo.InvariantCulture, result) Then
Return result
End If
Return 0D
End Function
''' <summary>
''' 文字列の前後から、業務データに含まれがちな制御文字や空白を徹底的に排除する。
''' </summary>
<Extension()>
Public Function Clean(ByVal value As String) As String
If value Is Nothing Then Return String.Empty
' Trimだけでなく、全角半角の揺らぎや不要な改行を制御する設計が求められる
Return value.Trim().Replace(vbCr, "").Replace(vbLf, "")
End Function
End Module
Public Module DateTimeExtensions
''' <summary>
''' 業務報告書用の標準フォーマット (yyyy/MM/dd HH:mm:ss) を返す。
''' </summary>
<Extension()>
Public Function ToReportFormat(ByVal dt As DateTime) As String
Return dt.ToString("yyyy/MM/dd HH:mm:ss")
End Function
''' <summary>
''' 日本の会計年度に基づいた「年度」を取得する。
''' </summary>
<Extension()>
Public Function ToFiscalYear(ByVal dt As DateTime) As Integer
' 4月始まりの会計年度を想定
Return If(dt.Month >= 4, dt.Year, dt.Year - 1)
End Function
End Module
End Namespace3. プロダクション・レベルで生き残るための「3つの鉄則」
拡張メソッドは強力すぎるがゆえに、未熟なエンジニアが使うとコードを汚染する。アーキテクトとして、以下の制約を課せ。
① Nothing（Null）に対する絶対的な防御
拡張メソッドの第一引数（`Me` に相当するもの）は、呼び出し元が `Nothing` である可能性がある。
`inputString.ToDecimalSafe()` を呼び出したとき、`inputString` が `Nothing` だったらどうなるか？
必ずメソッドの冒頭で `Nothing` チェックを行い、例外を投げずに「意味のあるデフォルト値」を返す設計にせよ。
② 名前空間の管理（Namespace Pollution の回避）
すべての拡張メソッドをグローバルな名前空間に置いてはならない。
上記コード例のように `BusinessExtensions` といった専用の名前空間に閉じ込めろ。利用する側が `Imports BusinessExtensions` と明示的に宣言することで、「今、このプロジェクト独自の魔法（拡張機能）を使っている」という意識をコードに持たせるのだ。
③ 重い処理（I/O操作）を混ぜるな
拡張メソッドはあくまで「値の変換」や「状態の取得」に留めるべきだ。
拡張メソッドの中でデータベースに問い合わせたり、ファイルに書き込んだりするような設計は、「副作用」を隠蔽することになり、ユニットテストを不可能にする。
「メソッドの見た目はシンプルだが、裏で重い処理が走っている」状態は、保守における最悪のバグの温床だ。
4. 実践：劇的にクリーンになったコード
これらを踏まえ、実際の業務ロジックがどう変わるかを確認しよう。
【Before: 泥臭い手続き型コード】
Public Sub ProcessData(rawInput As String, targetDate As DateTime)
' 変換処理がビジネスロジックを侵食している
Dim cleanInput As String = rawInput.Trim().Replace(vbCr, "").Replace(vbLf, "")
Dim amount As Decimal = 0
If Not Decimal.TryParse(cleanInput, amount) Then
amount = 0
End If
Dim fiscalYear As Integer = If(targetDate.Month >= 4, targetDate.Year, targetDate.Year - 1)
Console.WriteLine($"年度: {fiscalYear}, 金額: {amount}")
End Sub【After: 洗練されたドメイン駆動コード】
Imports BusinessExtensions ' 拡張メソッドを解禁
Public Sub ProcessData(rawInput As String, targetDate As DateTime)
' ビジネスロジックの本質（何をしたいか）だけが記述されている
Dim amount As Decimal = rawInput.Clean().ToDecimalSafe()
Dim fiscalYear As Integer = targetDate.ToFiscalYear()
Console.WriteLine($"年度: {fiscalYear}, 金額: {amount}")
End Subどうだ？ 後者のコードには、もはや「どうやって変換するか」という低レイヤーのノイズが一切存在しない。読み手は、「データをクリーンにして、数値化し、年度を取得する」というビジネスプロセスにのみ集中できる。
結論：コードは「意思」である
拡張メソッドを活用することは、単なるテクニックではない。それは、「このシステムにおいて、StringやDateTimeはどのような意味を持つのか」という貴殿の設計思想を、コードに刻み込む行為である。
冗長なユーティリティクラスに頼るのをやめ、オブジェクトに知能を与えよ。
それが、バグを減らし、保守性を高め、真にプロフェッショナルなソフトウェアへと昇華させる唯一の道だ。
次回のコミットから、貴殿のコードがどう変わるか、楽しみにしている。
