【入門編】Task.ConstraintDateプロパティの落とし穴：日付型変換とロケール依存エラーの回避 – Project VBA解析バイブル

Project VBA

2026.10.22

こんにちは。Project VBAの深淵に挑む皆さん、今日も自動化の旅を楽しんでいますか？

マクロの記録から一歩踏み出し、自分自身でスケジュールエンジンを制御し始めると、必ずと言っていいほど直面する「壁」があります。それが、`Task.ConstraintDate` プロパティによる制約日付の設定です。

「なぜか日付がずれる」「実行するPCによってエラーが出る」。そんな怪奇現象に頭を抱えたことはありませんか？実はこれ、Project VBAが裏で抱える「ロケールの呪い」が原因なんです。

今日は、伝説のエンジニアの視点から、この落とし穴を回避し、堅牢なシステムを構築するための「極限の知見」を伝授します。

—

VBAで日付を指定するとき、私たちはつい `Task.ConstraintDate = “2023/12/31″` のように、文字列で値を渡してしまいがちです。

しかし、Project VBA（というかVBAそのもの）は、実行環境のOSの設定（ロケール）に強く依存します。

これでは、自動化ツールとしては失格です。日付は「曖昧な文字列」ではなく、「計算可能な数値（Date型）」として扱うのが、アーキテクトとしての鉄則です。

—

`ConstraintDate` を操る際に、私が現場で必ず推奨している「安全な書き方」を解説します。

最も安全な方法は、`DateValue` 関数を使って「文字列」を「Date型（シリアル値）」に変換してから代入することです。

Sub SetConstraintDateSafely()
Dim projTask As Task
Set projTask = ActiveProject.Tasks(1)

‘ 【重要】文字列を直接代入せず、DateValueで型を確定させる
‘ これにより、OSのロケール設定に左右されず正しく日付が解釈されます
Dim targetDate As Date
targetDate = DateValue(“2023/12/31”)

‘ 制約タイプをASAP（できるだけ早く）から「指定日」に変更
projTask.ConstraintType = pjConstraintStartNoEarlierThan
projTask.ConstraintDate = targetDate

MsgBox “制約日付を ” & targetDate & ” に設定しました。”
End Sub

もしコードの中で日付を動的に生成する（例：来月の1日を計算する）なら、`DateValue` よりも `DateSerial` 関数が最強です。これを使えばロケール問題は100%回避できます。

‘ 年・月・日を数値で指定することで、エラーの余地を排除する
targetDate = DateSerial(2023, 12, 31)

—

現場でそのまま使える、堅牢な制約設定メソッドのテンプレートです。コピペして、あなたのプロジェクトに組み込んでみてください。

Public Sub ApplyTaskConstraint(targetTask As Task, y As Integer, m As Integer, d As Integer)
‘ エラーハンドリングを組み込むのがプロの流儀です
On Error GoTo ErrorHandler

With targetTask
‘ 制約タイプを設定（今回は「開始日指定」）
.ConstraintType = pjConstraintStartNoEarlierThan

‘ ロケールに依存しないDateSerialで日付を生成
.ConstraintDate = DateSerial(y, m, d)
End With

Exit Sub

ErrorHandler:
MsgBox “日付設定中にエラーが発生しました: ” & Err.Description, vbCritical
End Sub

—

多くの初心者は、「動けばいい」というコードを書きがちです。しかし、「なぜ動くのか」「なぜ止まるリスクがあるのか」を理解した上で、あえて安全な書き方を選ぶこと。これこそが、マクロの記録から脱却し、真のエンジニアへと進化する境界線です。

ここをクリアしたあなたは、もうProject VBAの基本を完全に掌握したと言っても過言ではありません。次は、スケジュールエンジンが計算する「浮動小数点の日付（時間単位）」の壁に挑んでみてください。

もし、さらに深い設計や、大規模プロジェクトでのパフォーマンス最適化に興味があれば、いつでも尋ねてくださいね。皆さんの自動化ライフが、より快適で知的になりますように。応援しています！