日付チェック (ID:121414)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんなのとか Private Function hogehoge(strDate As String) As String Select Case Len(strDate) Case 6 If IsDate(Format$(strDate, "@@@@/@@") & "/01") = True Then hogehoge = Format$(strDate, "@@@@/@@") End If Case 8 If IsDate(Format$(strDate, "@@@@/@@/@@")) = True Then hogehoge = Format$(strDate, "@@@@/@@/@@") End If Case 10 If IsDate(strDate) = True Then hogehoge = strDate End If End Select End Function