Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

75105 / 76732

←次へ　｜　前へ→


	【6075】Re:IsDate関数

Hirofumi

- 03/6/15(日) 19:20 -


	引用なし

	パスワード

仮に年を設定して、日付の体裁を整えIsDateでチェックするのが嫌なら
１行か２行のコードで済む所が
以下のような、馬鹿馬鹿しいコードを書かなければ成らないと思います

Public Function DateChek(strValue As String) As Boolean

　　Dim vntMonth As Variant
　　Dim vntDay As Variant
　　Dim lngCompareDay As Long
　　
　　If Len(strValue) <> 4 Then
　　　　Exit Function
　　End If
　　If Not IsNumeric(strValue) Then
　　　　Exit Function
　　End If
　　
　　vntMonth = CLng(Left$(strValue, 2))
　　vntDay = CLng(Mid$(strValue, 3))
　　
　　Select Case vntMonth
　　　　Case 1, 3, 5, 7, 8, 10, 12
　　　　　　lngCompareDay = 31
　　　　Case 4, 6, 9, 11
　　　　　　lngCompareDay = 30
　　　　Case 2
　　　　　　lngCompareDay = 29
'　　　　　　lngCompareDay = 28
　　　　Case Else
　　　　　　Exit Function
　　End Select
　　If vntDay < 1 Or vntDay > lngCompareDay Then
　　　　Exit Function
　　End If

　　DateChek = True

End Function

0 hits

▼

【6059】テキストボックスの数値をチェックする りょう 03/6/14(土) 13:16