Блог

Я пытаюсь выяснить, как проверить DateTimePicker ie, если DateTimePicker имеет значение null. Вот код

 Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
If DTDOB.Value = Nothing Then
            MessageBox.Show("Enter the date")
        Else
            MessageBox.Show("Date Saved")
End If
End Sub
  

Кто-нибудь может подсказать мне решение.
Заранее спасибо.
Обратите внимание, что DOTDOB — это мой DateTimePicker

DateTime Переменные .Net, такие как DTDOB.Value , являются типами значений. Это означает, что они никогда не могут быть null .

В VB.Net Nothing ключевое слово при использовании с типом значения будет соответствовать значению типа по умолчанию. Для DateTime значений это то же самое, что DateTime.MinValue или полночь 1 января 0001 года.

Таким образом, вы могли бы вместо этого написать этот код для сравнения с DateTime.MinValue , но я думаю, что то, что у вас есть, лучше выражает намерение. Если код, который у вас есть, работает, я не вижу в этом проблемы. И если это не сработает, пожалуйста, объясните лучше в вопросе, почему это не удается.

Возможно, вы неправильно задали вопрос, элемент управления DateTimePicker всегда имеет значение, отличное от ничего, указанного при инициализации формы. Это значение находится между minDate и maxDate. Если вы попытаетесь установить значение Nothing, вы получите сообщение об ошибке. По умолчанию значением DateTimePicker являются текущие дата и время.

Можно было бы сохранить значение DTDOB.Value в переменной или в ее теге и сравнить его со значением, которое у вас есть при запуске события click кнопки.

(Автор опубликовал крошечный фрагмент кода в комментарии, который с тех пор был удален.)

Вы установили для пользовательского формата пустую строку, чтобы показать, что значение не было выбрано, и это нормально. Если вы хотите проверить это, вы могли бы вместо этого использовать .Text свойство или, возможно, проверить, является ли .CustomFormat » «.

Вот возможный подход. После того, как выбор был сделан, измените его на другой формат:

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    DTDOB.CustomFormat = " " 'An empty SPACE
    DTDOB.Format = DateTimePickerFormat.Custom
End Sub

Private Sub DTDOB_ValueChanged(sender As Object, e As EventArgs) Handles DTDOB.ValueChanged
    ' once the user has selected a value, change the format so that a date will be displayed
    DTDOB.CustomFormat = "MM/dd/yy"
End Sub

Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
    If DTDOB.CustomFormat = " " Then
        MessageBox.Show("Enter the date")
    Else
        ' ... do something with the Value() property ...
        Debug.Print(DTDOB.Value.ToString)
    End If
End Sub
  

  If  DateTimePicker1.Value.Date = Date.Today  Then
     MessageBox.Show("Choose Date From DateTimePicker !")
 Else
     ' Your code
 end if
  

У меня это работает, по умолчанию DateTimePicker значением является дата сегодняшнего дня.

Я новичок в программировании, у меня не так много знаний, но это то, что я пробовал, и у меня это работает.

Упростил и не заботился о метке, это было просто для отображения значений:

     Public Class Form1

        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            DTDOB.CustomFormat = " " 'An empty SPACE DTDOB.Format = DateTimePickerFormat.Custom

            DTDOB.Tag = DTDOB.Value   'Label displays the actual Value

            Label1.Text = DTDOB.Tag
        End Sub

        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            If DTDOB.Value = DTDOB.Tag Then
                MessageBox.Show("Enter the Date")
            Else
                MessageBox.Show("Date Saved")
            End If
        End Sub
    End Class
  

Ваш код работает, но он более эффективен, чем этот.

 Dim Input As String = DTDOB.Value.ToString()

Dim dateTime2 As DateTime

If DateTime.TryParse(Input, dateTime2) Then
    Console.WriteLine(dateTime2)
Else
    Console.WriteLine("Invalid")
End If