概要
Excel VBAを用いた業務効率化において、日付や時刻の扱いは避けて通れない領域です。データベースから取得したシリアル値や、システムから出力された標準形式の日付データを、帳票やメール本文に最適な「人間が読みやすい形式」に変換することは、実務において極めて重要なプロセスとなります。
VBAには日付・時刻の変換を行うための関数がいくつか存在しますが、その中でも「FormatDateTime関数」は、OSの地域設定（ロント）に基づいた形式を即座に適用できる、非常に強力かつ簡便なツールです。本記事では、このFormatDateTime関数の基本から、実務で遭遇する複雑なケースへの対処法、さらにはより柔軟なFormat関数との使い分けまで、ベテラン講師の視点で徹底解説します。
詳細解説：FormatDateTime関数の仕組みと引数
FormatDateTime関数は、VBAにおける標準的な日付変換関数であり、その構文は以下の通りです。
FormatDateTime(Expression, [NamedFormat])
Expressionには変換したい日付や時刻の式、または変数が入ります。重要なのは第二引数のNamedFormatです。ここには、以下のVBA組み込み定数を指定することで、OSの設定に準拠した形式で出力が行われます。
1. vbGeneralDate (0)：既定値。日付または時刻、あるいはその両方を表示します。時刻が含まれない場合は日付のみ、日付が含まれない場合は時刻のみを表示します。
2. vbLongDate (1)：OSの地域設定で定義された「長い形式（例：2023年10月27日）」で表示します。
3. vbShortDate (2)：OSの地域設定で定義された「短い形式（例：2023/10/27）」で表示します。
4. vbLongTime (3)：OSの地域設定で定義された「長い時刻形式（例：15:30:45）」で表示します。
5. vbShortTime (4)：24時間制の「短い時刻形式（例：15:30）」で表示します。
この関数の最大の特徴は、コード内にハードコーディングされた書式（例：”yyyy/mm/dd”）を記述する必要がない点です。ユーザーのPC環境が日本であれば日本の商習慣に合った形式が、海外であればその国の形式が自動的に適用されるため、国際化を意識したアプリケーション開発においても非常に有効な選択肢となります。
サンプルコード：実践的な実装パターン
それでは、実際にどのような場面でどのように使うのか、具体的なサンプルコードを見ていきましょう。
Sub FormatDateTimeSample()
Dim myDate As Date
myDate = Now ' 現在の日時を取得
' 1. 基本的な使用例：短い日付形式
Debug.Print "Short Date: " & FormatDateTime(myDate, vbShortDate)
' 2. 基本的な使用例：長い日付形式
Debug.Print "Long Date: " & FormatDateTime(myDate, vbLongDate)
' 3. 基本的な使用例：短い時刻形式
Debug.Print "Short Time: " & FormatDateTime(myDate, vbShortTime)
' 4. 実務応用：メッセージボックスでの活用
Dim msg As String
msg = "処理が完了しました。" & vbCrLf & _
"完了日時: " & FormatDateTime(Now, vbGeneralDate)
MsgBox msg, vbInformation, "処理報告"
End Sub
このコードを実行すると、イミディエイトウィンドウに現在の日時が適切に整形されて出力されます。特に、vbGeneralDateは、日付と時刻の情報を過不足なく表示させたいログ出力や、ユーザーへの通知メッセージにおいて非常に重宝します。
FormatDateTime関数とFormat関数の使い分け
実務の現場では「FormatDateTime関数」と「Format関数」のどちらを使うべきか、という議論がしばしば行われます。
結論から申し上げますと、「OSの標準形式に合わせるならFormatDateTime」「特定の決まった書式（例：yyyy年mm月dd日）を強制したいならFormat」と使い分けるのがベストプラクティスです。
Format関数は、文字列として細かく書式を制御できるため、以下のようなカスタマイズが可能です。
Format(Now, “yyyy/mm/dd HH:nn”)
しかし、FormatDateTime関数は、OSの地域設定に依存するため、例えば社内で「日付は常にOSの設定に従う」という運用ルールがある場合、FormatDateTimeを使用することで、将来的にOSの設定変更があった際にもプログラムを修正する必要がありません。この「メンテナンスフリー」な側面が、FormatDateTimeの最大のメリットです。
実務アドバイス：エラーハンドリングと落とし穴
FormatDateTime関数を使用する際に注意すべき点がいくつかあります。
第一に、「型変換エラー」です。Expressionに日付として認識できない文字列や数値（例えば空文字や、日付の範囲を超えた数値）を渡すと、実行時エラーが発生します。実務では必ず「IsDate関数」を使用して、値が日付として有効かどうかを事前に判定する習慣を身につけてください。
If IsDate(myInput) Then
formattedDate = FormatDateTime(myInput, vbShortDate)
Else
' エラーハンドリング：デフォルト値を設定する、あるいは警告を出す
formattedDate = "日付無効"
End If
第二に、「シリアル値の扱い」です。Excelセル内の日付データは数値として保持されていますが、VBAではDate型として扱われます。セルから値を取得する際、Variant型を経由すると意図せずシリアル値（数値）のままFormatDateTime関数に渡されることがありますが、VBAのDate型変換機能が自動的に型変換を行うため、基本的には問題ありません。しかし、明示的な型変換（CDate関数）を噛ませることで、コードの可読性と安全性が向上します。
まとめ
FormatDateTime関数は、一見すると地味な関数に思えるかもしれません。しかし、VBA開発において「表示」というUI部分は、ユーザーが最初に目にする重要な要素です。OSの設定に寄り添い、読み手にとって最も自然な形式で日付や時刻を表示させることは、プロフェッショナルなツールとして不可欠な「気遣い」の一環と言えます。
本記事で解説したvbShortDateやvbLongTimeといった定数の使い分け、そしてIsDate関数による事前チェックを組み合わせることで、堅牢でメンテナンス性の高いVBAコードを記述することが可能になります。日々の業務効率化において、ぜひこのFormatDateTime関数を積極的に活用し、一歩進んだVBAエンジニアを目指してください。書式の管理をシステムに任せるという考え方は、コードをスリムにし、将来のバグを防ぐための非常に重要な設計思想なのです。
