ＶＢＡ

質問

ＶＢＡ　の　日付

20110601　を

2011/6/1　に　ＶＢＡのプログラムで変換するにはどうしたらいいのですか？

教えてください。

回答No.3

mu2011 · ベストアンサー

NO2です。
投降後、NO1様と同様の回答していましたので別案に訂正します。

a = "20110601"
Range("A1").Value = CDate(Format(a, "@@@@/@@/@@"))

お礼

完璧な答えありがとうございます

回答No.2

mu2011

一例です。

a = 20110601
Range("A1").Value = Format(DateSerial(Left(a, 4), Mid(a, 5, 2), Right(a, 2)), "yyyy/m/d")

お礼

ありがとうございます

回答No.1

ShowMeHow

strDate = "20110601"
(スペースが入っている可能性があるなら、次の一行を加えておく)
strDate = trim(strDate)
dteDate = datesrial(left(strDate,4),mid(strDate,5,2),right(strdate,2))

お礼

ありがとうございます