0

VB6 で作成したフォームがあり、日付フィールドで将来の日付を確認する必要があります。

入力した日付が未来の場合はエラー メッセージが表示され、そうでない場合は検証が終了します。

終わったよ：

Private Sub txtDate_Validate(Index As Integer, Cancel As Boolean)
If Not IsDate(txtDate(9).Text) Then 'first I check if the data entered is a date
'error message saying the field needs a valid date
  Cancel = True
        Else
      If (txtDate(9).Text > Date) Then 'now I check if the date entered is bigger than today’s date 
                'error message saying the date is in the future 
                Cancel = True
            Else
               Exit Sub
            End If
       End If 
End If
End Sub

このコードは機能しません。

txtDate(9).Text > Date

常に真です

私がしても：

Format(txtDate(9).Text, "dd/mm/yyyy") > Date

も常に真です

これを修正するにはどうすればよいですか? 入力した日付が将来の日付であるかどうかを知るにはどうすればよいですか?

ありがとう！

4

1 に答える 1

1

CDate を使用して、テキスト ボックスの内容を日付に変換します。

引用符で囲まれている場合、これを十分に強調することはできません。これは文字列です。

于 2013-02-13T20:38:57.010 に答える