VBAでシリアル値を取得する方法

VBAでシリアル値を取得する方法を教えていただけないでしょうか

テキストデータで
20140810の形でデータがあります。
このデータをもとに、2014年8月10日のシリアル値である41861を取得したいのですが、その方法を調べてもわからないので、教えていただけないでしょうか

エクセルの関数のDATEVALUEのような関数をVBAの中でも使い41861を取得したいです。

シリアル値　取得　と検索すると、DateSerial関数がでてきますが違うようです。

わからなくなってきたので、アドバイスをお願いいたします。

No.1 ベストアンサー 回答者： cj_mover 回答日時： 2014/10/09 04:07

こんにちは。

Dim s As String
　　s = "20140810"
　　MsgBox CLng(DateValue(Format(CLng(s), "0/00/00")))

みたいに、
（Long型に）型変換　＞　Format（文字列型）　＞　日付型に変換　＞　（Long型に）型変換
するのがオーソドックスかと。

シート上の数式の方が少し簡単で、それを応用すると
　　MsgBox Evaluate("--TEXT(--" & s & ",""0-00-00"")")
とか。

以上です。

この回答へのお礼

何回も型変換する方法は勉強になりました。
ありがとうございました。

お礼日時：2014/10/09 07:58

No.2 回答者： cj_mover 回答日時： 2014/10/09 04:14

＃１です。

２例目は
　　MsgBox Evaluate("--TEXT(" & s & ",""0-00-00"")")
２文字分短く書けたのでした。

失礼しました。