Excel 英字含む日時→数字日時への変換方法

質問

以下のような1セルに英字を含んだ日時データを数字のみの日時データに変換する方法は
ありますでしょうか？複数の方法があればあるだけ教えていただけると助かります。

例：
Fri Nov 2 2012 9:00 PM

　　　　↓

2012/11/02 21:00
※変換後のセルに曜日は含まなくて良いです。

回答No.3

tsubuyuki

> 複数の方法があればあるだけ
との事でしたので、私からはあえてユーザー定義関数を（笑）。

Function DateConv(myStr As String) As Variant
Dim myYear As Integer, myMonth As Integer, myDay As Integer
Dim myTime As String
Dim EMonth As String
Dim AMon As Variant, BMon As Variant, i As Integer

　　AMon = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
　　BMon = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12)

　　myYear = Trim(Mid(myStr, 11, 5))

　　EMonth = Trim(Mid(myStr, 5, 3))
　　　　For i = 0 To 11
　　　　　　If AMon(i) = EMonth Then
　　　　　　myMonth = Replace(EMonth, AMon(i), BMon(i))
　　　　End If
　　Next

　　myDay = Trim(Mid(myStr, 9, 2))

　　myTime = Trim(Right(myStr, 8))

　　DateConv = DateSerial(myYear, myMonth, myDay) + TimeValue(myTime)
End Function

これを標準モジュールに書いておくと、
　　=dateconv(A1)
のように、ワークシート上で普通の（？）関数として使えるかもしれません。

添付図では書式を「yyyy/m/d ddd h:mm AM/PM」にしていますが、
通常通りの「yyyy/mm/dd hh:mm」にももちろん対応します。

ただし、対象セルが「"Fri Nov 2 2012 9:00 PM"と言う文字列」じゃないとエラーが出ます。

踏まえて、わざわざここまでやる必要があるかどうかは、全く以て謎です（笑）。

お礼

ご回答ありがとうございます！初心者のような自分には理解するのにレベルの高いやり方ですが、関数の構造を理解するには助かります。図示までいただけて感謝です。