vb .net нулевое условие

Question

это мой код -

            Dim provider As CultureInfo = CultureInfo.InvariantCulture
            Dim a1 As DateTime = Nothing
            insexp = DateTime.ParseExact(date1.SelectedValue, "MMMM yyyy", provider)
            If a1.Month = Today.Month AndAlso a1.Year = Today.Year Then
                a1 = Today.Date
            End If

это будет работать, только если date1.selectedvalue не равно нулю, но завершится сбоем, если оно равно нулю. Как я могу дать, если условие для запуска этого, только если не ноль? спасибо

Answer 1

If date1.SelectedValue IsNot Nothing Then
    ...
End If

Answer 2

 Dim provider As CultureInfo = CultureInfo.InvariantCulture
        Dim a1 As DateTime = Nothing
        If not String.IsNullOrEmpty(date1.SelectedValue) Then         
    insexp = DateTime.ParseExact(date1.SelectedValue, "MMMM yyyy", provider)
         End If
    If a1.Month = Today.Month AndAlso a1.Year = Today.Year Then
        a1 = Today.Date
    End If