Excel VBA質問箱 IV

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

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


75111 / 76738 ←次へ | 前へ→

【6075】Re:IsDate関数
回答  Hirofumi E-MAIL  - 03/6/15(日) 19:20 -

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

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 質問
【6063】IsDate関数 ねこ@京都 03/6/15(日) 4:00 回答
【6064】Re:IsDate関数 りょう 03/6/15(日) 10:30 質問
【6065】Re:IsDate関数 Hirofumi 03/6/15(日) 11:57 回答
【6073】Re:IsDate関数 りょう 03/6/15(日) 17:00 質問
【6074】Re:IsDate関数 Hirofumi 03/6/15(日) 17:59 回答
【6075】Re:IsDate関数 Hirofumi 03/6/15(日) 19:20 回答
【6077】Re:IsDate関数 りょう 03/6/16(月) 0:02 お礼

75111 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free