は日付フォーマットを検証

Question

誰もがmm/dd/yyyyの形式で日付フォーマットを検証する方法を知っています。 私はこのコードを試しましたが、動作していません。モジュールで

dateCheck (txtStartDate) 

：ユーザーフォームで

Function dateCheck(dateValue As Date) As Boolean 
    If CDate(dateValue) <> "mm/dd/yyyy" Then 
     MsgBox "Please use the mm/dd/yyyy date format!" 
     dateCheck = True 
    End If 
End Function 

が、私は正しい軌道に乗っていますか？ありがとう！

Answer 1

CDate(dateValue)の関数の一部は、単に 'dateValue'をDateとして返します。フォーマットを取得するには.Numberformatプロパティを使用してください：

Function dateCheck(dateValue As Date) As Boolean 
    If dateValue.NumberFormat <> "mm/dd/yyyy" Then 
     MsgBox "Please use the mm/dd/yyyy date format!" 
     dateCheck = True 
    End If 
End Function 

Answer 2

問題は複雑です。あなたの質問には実際に2つのステップがあります：

1. txtStartDateは実際に有効な日付ですか？
2. 日付であれば、正しくフォーマットされていますか？

txtStartDateの名前は、日付を（フォームで）テキストとして取得していることを意味します。しかし、txtStartDateが実際に日付であるという前提で、関数に渡しています。これは、関数dateCheckが日付を期待しているので明らかになります：Function dateCheck(dateValue As Date) As Boolean。

だから、ここ一度に両方を解決するためのソリューション提案です：

Sub tmpTest() 

Dim txtStartDate As String 

txtStartDate = "11/20/2015" 

Debug.Print dateCheck(txtStartDate) 

End Sub 

---

Function dateCheck(dateValue As String) As Boolean 

If IIf(IsDate(txtStartDate), Format(CDate(txtStartDate), "mm/dd/yyyy"), "") = dateValue Then dateCheck = True 

End Function 

が、これは国際的な日付形式のために動作しません非常に単純なアプローチであることに留意してください。実際には、私はあなたの日付形式を持っていないので、少し調整する必要があります。より洗練されたものが必要な場合は、VBAコード（広範な検証機能を含む）をもう少し書く必要があります。

Answer 3

Function dateCheck(dateStrng As String) As Boolean 
Dim dateArr as Variant 

If IsDate(dateStrng) Then ' <~~ if it IS a date 
    dateArr = Split(dateStrng,"/") 
    If UBound(dateArr) = 2 Then '<~~ if it has three substrings separate by two "slashes" 
     If CInt(dateArr(0)) < 13 Then '<~~ if the 1st number is lower or equals the maximum possible month number 
     If CInt(dateArr(0)) > 0 Then '<~~ if the 1st number is higher or equals the mimimum possible month number 
      If CInt(dateArr(1)) < 31 Then '<~~ if the 2nd number is lower or equals the maximum possible day number 
       If CInt(dateArr(1)) > 0 Then '<~~ if the 2nd number is higher or equals the mimimum possible day number 
        If CInt(dateArr(2)) < 10000 Then dateCheck = CInt(dateArr(2)) > 999 '<~~ if the 3rd number is a 4 digit integer "year" number, then check returns True 
       End If 
      End If 
     End If 
     End If 
    End If 
End Function 

Answer 4

dateCheck関数がこのトピックで尋ねられた質問から正しくありません。この機能の問題は、2011年1月12日または12/1/2017を正しく識別できないことです。

dateCheckはISDATEのような作品（）です。

Answer 5

dateCheck機能は、このトピックに尋ねた質問から正解ではありません。この機能の問題は、2011年1月12日または12/1/2017を正しく識別できないことです。