|
質問(煮詰まった) さん、こんばんわ。
IfとMidを組み合わせてるのと基本的に同じですがSplitで分割し並べ替えてます。
>1.10/11/06 を 2006/10/11 と表示したい場合は
Sub test1()
Dim dte As Variant
dte = Split("10/11/06", "/")
MsgBox DateValue(dte(2) & "/" & dte(0) & "/" & dte(1))
End Sub
>2.3/11/06 を 2006/11/03 と表示したい場合は
Sub test2()
Dim dte As Variant
dte = Split("3/11/06", "/")
MsgBox DateValue(dte(2) & "/" & dte(1) & "/" & dte(0))
End Sub
XL2K以降ですが、お試しください。
なお、既にセルに入って日付になってる場合は、
Sub test1-2()
MsgBox DateValue(Format(Range("A1").Value, "mm/dd/yy"))
End Sub
Sub test2-2()
MsgBox DateValue(Format(Range("A1").Value, "dd/mm/yy"))
End Sub
|
|