指定された形式の日付文字列を「yyyy/mm/dd hh:nn」形式に変換する関数

' 機能概要: 「Wednesday, December 13, 2023 9:00」形式の日付文字列を「yyyy/mm/dd hh:nn」形式に変換
' 引数:
'   strDate - 変換する日付文字列
' 戻り値:
'   String - 変換後の日付文字列

Function ConvertDateString(strDate As String) As String
    Dim dt As Date

    ' 文字列を日付型に変換
    On Error Resume Next ' エラーを無視し、変換できない場合は次に進む
    dt = CDate(strDate)
    If Err.Number <> 0 Then
        ConvertDateString = "" ' 変換できない場合は空文字を返す
        Exit Function
    End If
    On Error GoTo 0 ' エラーハンドリングを元に戻す

    ' 日付を指定された形式にフォーマット
    ConvertDateString = Format(dt, "yyyy/mm/dd hh:nn")
End Function