VBScriptを掌握せよ：営業日演算と月末算出の極致
VBScriptという言語は、現代のコンテナ技術やフルスタック開発の潮流から見れば「化石」に映るかもしれない。しかし、基幹システムの保守運用、あるいはレガシーなWindows Server環境での自動化において、これほど低コストで即時性のあるツールは他にない。
多くのエンジニアが「日付計算などライブラリ任せ」と考える中、我々のようなアーキテクトは、泥臭いネイティブ関数のみでいかに堅牢なロジックを組み上げるかに心血を注ぐ。今回は、営業日計算と月末算出という、バッチ処理の「心臓部」をVBScriptで極限まで最適化する手法を伝授する。
—
1. VBScriptにおける日付演算の「真実」
VBScriptの `DateAdd`, `DateDiff`, `DatePart` は、内部的にはCOMの `DATE` 型（倍精度浮動小数点数）を操作している。この仕様を理解せぬまま実装すると、うるう年やタイムゾーンの境界で必ずバグを踏む。
特に意識すべきは「オブジェクトの明示的解放」と「型変換のオーバーヘッド」だ。バッチ処理が数万件のレコードを回る際、動的な型変換はメモリリークの温床となる。
—
2. 汎用・月末最終日の動的算出ロジック
月末日を求める際、`DateAdd` で翌月の1日を求め、そこから1日引く手法は定石だが、VBScriptでは `DateSerial` 関数を組み合わせるのが最も効率的だ。
‘ 指定された日付の月末を返す関数
‘ パフォーマンスを考慮し、不要なオブジェクト生成を排除する
Function GetEndOfMonth(dDate)
Dim dNextMonth
‘ 翌月の1日を算出
dNextMonth = DateSerial(Year(dDate), Month(dDate) + 1, 1)
‘ 翌月1日から1日引くことで、当月の最終日を確定させる
GetEndOfMonth = DateAdd(“d”, -1, dNextMonth)
End Function
この実装の肝は、`DateSerial` が内部的に不正な日付を自動補正（オーバーフロー解決）する仕様を利用している点だ。この挙動を知っていれば、複雑な月跨ぎの条件分岐を排除できる。
—
3. 営業日計算：土日判定の最適化
営業日判定における最大の禁忌は、都度「祝日リスト」をファイルI/Oすることだ。バッチ処理のボトルネックを避けるため、祝日データは配列としてメモリにキャッシュせよ。
‘ 簡易的な営業日判定（土日判定）
Function IsBusinessDay(dDate)
Dim nWeekDay
nWeekDay = Weekday(dDate, vbMonday)
‘ 6:土, 7:日 を除外
If nWeekDay >= 6 Then
IsBusinessDay = False
Else
IsBusinessDay = True
End If
‘ ※ここに祝日判定のロジック（配列走査）を追加するのが定石
End Function
—
4. 伝説的アーキテクトからの助言：メモリと安定性
オブジェクトの明示的解放
VBScriptのガベージコレクションを信用してはならない。`FileSystemObject` や `ADODB.Connection` を使用した後は、必ず以下の手順を踏むこと。
Dim fso
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ … 処理 …
Set fso = Nothing ‘ これを忘れるだけで、長時間稼働するバッチではメモリが死ぬ
Windows APIとの連携（WMIの活用）
もし、より高度な日付同期やシステム時刻の補正が必要な場合は、`WScript.Shell` を介して `WMIC` を叩くのではなく、直接 `GetObject(“winmgmts:…”)` を使用してシステムへクエリを投げるべきだ。オーバーヘッドを最小限に抑えるには、プロセスを分離せずにメモリ空間内で完結させるのが鉄則である。
—
5. まとめ：レガシーを「レガシー」で終わらせないために
VBScriptを扱うということは、「実行環境の制約を最大限にハックする」というエンジニアリングの原点に立ち返ることと同義だ。
- Date関数群は内部の浮動小数点数を操作していると意識せよ。
- ロジックの複雑さは型変換の回数に比例する。可能な限りネイティブな数値演算に落とし込め。
- メモリ解放は宗教的なまでに徹底せよ。
この知見は、VB.NETやC#への移行時にも必ず血肉となる。どんなに古臭いツールであっても、その中身を極限まで掌握した人間だけが、安定したシステムという「芸術」を構築できるのだ。
さあ、次は君のコードでこのバッチ処理を刷新してみせろ。
