20060224をyyyy年mm月dd日にしたい

質問

こんばんは。教えてください。。

Sub テスト()
Dim mystr As String
mystr = "20060224"
mystr = Format(mystr, "yyyy年mm月dd日")

MsgBox mystr
End Sub

これを実行するとオーバーフローします。
結果としては、「2006年02月24日」と表示させたいです。

mystr = Format(CDate(mystr), "yyyy年mm月dd日")

にすると、型が一致しませんになります。
ご回答よろしくお願いします。

回答No.1

piroin654 · ベストアンサー

＞mystr = Format(mystr, "yyyy年mm月dd日")

を

mystr = Format(Format(mystr, "@@@@/@@/@@"), "yyyy\年yy\月dd\日")

お礼

一ひねりしなくちゃだめなんですね。ありがとうございました。

回答No.3

K Kazz（@JazzCorp）

無難に書くと、
Sub テスト()
Dim mystr As String
mystr = Format("20060224", "@@@@/@@/@@")
MsgBox Format(CDate(mystr), "yyyy年mm月dd日")
End Sub

お礼

ご回答ありがとうございました。

回答No.2

keithin

sub macro1()
　dim s as string
　s = "20060224"
　msgbox format(s, "0年00月00日")
end sub

のようでいいです。

お礼

ご回答ありがとうございました。