Синтаксис 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

Здравствуйте и добро пожаловать на 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

Answer 2

В свойствах 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.

Надеюсь, это поможет. Спасибо