DateTimePicker 语法

Question

    If DateTimePicker1.Value.Date = DateTimePicker1.Value.Date Then

        MessageBox.Show("Please enter appropriate Starting Date.", _
                        "User Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        DateTimePicker1.Focus()
        Return
    End If

我只想验证一下我的 dateStart DTP。我想验证我是否输入了昨天的日期，messagebox 会弹出。我的语法错误。请帮我。我不知道今天日期的代码是什么。因为我的语法是 DateTimePicker1 等于它本身。我想 DateTimePicker1 = 今天约会。谢谢！

Answer 1

在 DateTimePicker 的属性中有一个 MinDate，这意味着您可以设置要显示给 DateTimePicker 的内容。如果您设置 MinDate 今天，并且运行您的系统，您的系统将自动验证 DateTimePicker，它将只接受当前和未来日期。但是这个解决方案不会像上面的代码那样弹出消息。

但是如果你想要一个弹出消息，试试这个代码。

 If DateTimePicker1.Value < Date.Today Then
        MessageBox.Show("Date cannot be before today.")
        Exit Sub
    Else
        'Insert else here
    End If

您不能将 DateTimePicker1 与自身进行比较，因为它将获得自己的值并与自身进行比较。但是您可以使用 Date.Today 并与您的 DateTimePicker1.

进行比较

希望这对您有所帮助。谢谢

Answer 2

您好，欢迎来到 SO

如果您想确定 DateTimePicker 中不能存在今天之前的日期，只需在您的表格中添加这个小子：

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    DateTimePicker1.MinDate = Date.Today
End Sub

DateTimePicker 语法

DateTimePicker syntax

vb.net

validation

syntax

datetimepicker