概要

CDate関数は、Excel VBAで文字列や数値を日付型（Date型）に変換するための関数です。この関数を使用することで、日付を表す文字列や数値を正確な日付データとして扱うことが可能になります。ユーザー入力の処理や、文字列形式のデータを日付として計算や比較に使用する際に便利です。

構文

CDate(式)

パラメータ

• 式

  日付に変換する対象の値や変数を指定します。日付を表す文字列やシリアル値が指定可能です。文字列が日付として解釈できない場合はエラーが発生します。

戻り値

指定された値を日付型（Date型）に変換して返します。変換できない場合にはエラーが発生します。

説明

CDate関数は、日付データを扱う際に非常に役立ちます。特に、ユーザー入力や外部データからの取り込みなど、日付形式が不明瞭なデータを一貫した日付形式に変換できます。システムの地域設定に依存するため、日付のフォーマットには注意が必要です。

• 文字列から日付への変換

  "2024/09/24"のような文字列は、CDate関数を使って日付型に変換されます。

• 数値から日付への変換

  Excelのシリアル値（例: 44563は2022年1月1日）も日付型に変換されます。

• 地域設定に依存

  CDate関数は、システムの地域設定に基づいて文字列を日付として解釈します。米国形式の日付（MM/DD/YYYY）と日本形式（YYYY/MM/DD）の解釈が異なる場合があるため、入力データの形式に注意が必要です。

使用例

文字列を日付型に変換する

Sub ConvertStringToDate()
    Dim strDate As String
    Dim dateValue As Date
    strDate = "2024/09/24"

    ' 文字列を日付型に変換
    dateValue = CDate(strDate)
    MsgBox "変換後の日付: " & dateValue  ' 結果: 2024/09/24
End Sub

シリアル値を日付型に変換する

Sub ConvertSerialToDate()
    Dim serialValue As Double
    Dim dateValue As Date
    serialValue = 45205  ' 例: 2024年9月24日のシリアル値

    ' シリアル値を日付型に変換
    dateValue = CDate(serialValue)
    MsgBox "変換後の日付: " & dateValue  ' 結果: 2024/09/24
End Sub

異なる形式の文字列を日付に変換する

Sub ConvertVariousFormats()
    MsgBox "CDate('9/24/2024') = " & CDate("9/24/2024")  ' 結果: 2024/09/24
    MsgBox "CDate('2024-09-24') = " & CDate("2024-09-24")  ' 結果: 2024/09/24
    MsgBox "CDate('24-Sep-2024') = " & CDate("24-Sep-2024")  ' 結果: 2024/09/24
End Sub

無効な文字列を変換した場合のエラーハンドリング

Sub ConvertInvalidString()
    Dim invalidDate As String
    Dim dateValue As Date
    invalidDate = "InvalidDate"

    On Error GoTo ErrorHandler
    dateValue = CDate(invalidDate)  ' ここでエラーが発生
    MsgBox "変換後の日付: " & dateValue
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description
End Sub

備考

• 日付のフォーマットと地域設定

  CDate関数は、システムの地域設定に基づいて文字列を日付として解釈します。異なるフォーマット（MM/DD/YYYY vs DD/MM/YYYY）に対して、解釈が異なる場合があるため、データの入力形式には注意が必要です。

• 文字列の変換における注意点

  CDateで変換できない文字列や日付として無効な値（例: "2024/13/01"）はエラーを引き起こします。変換前に入力が有効な日付形式かをチェックすることが推奨されます。

• 数値変換時の注意

  Excelのシリアル値（例: 1は1900年1月1日）は、そのまま日付に変換されますが、値が適切かどうかの確認も重要です。シリアル値が極端に大きいまたは小さい場合、異常な日付となることがあります。

• データの正規化

  CDateを使用することで、日付データを一貫して扱える形式に統一できるため、後続の処理（計算、比較、フィルタリングなど）が容易になります。

CDate関数は、VBAで日付データを扱う際の強力なツールです。正しく使用することで、データの信頼性と整合性を保ちながら効率的に日付操作を行うことができます。