Se data="01/01/0001" então data=""

Question

No Mysql, pelo que entendi, não aceita data no formato 0000-00-00 tem que ser 0001-01-01 para o campo vazio

Blz, então quando retorno a data e ela vem no formato 01-01-0001 queria deixar a variavel vazia.  Porem da o erro que é impossivel converter data para ""

 

    Private _DT_NASCIMENTO As Date
    Public Property DT_NASCIMENTO() As Date
      Get
        Return _DT_NASCIMENTO
      End Get
      Set(ByVal value As Date)
        If value = Convert.ToDateTime("01/01/0001") Then
          _DT_NASCIMENTO = ""
        Else
          _DT_NASCIMENTO = value
        End If
      End Set
    End Property

 

Answer 1

Faça assim:

Private _DT_NASCIMENTO As Date
  Public Property DT_NASCIMENTO() As Date
   Get
    Return _DT_NASCIMENTO
   End Get
   Set(ByVal value As Date)
    If value = Convert.ToDateTime("01/01/0001") Then
     _DT_NASCIMENTO = New Date
    Else
     _DT_NASCIMENTO = value
    End If
   End Set
  End Property

---

[]s.

Alan Cossari.

Answer 2

Junior,

Tente esse código:

Private _DT_NASCIMENTO As Nullable(Of Date) 
Public Property DT_NASCIMENTO() As Date
 Get
  Return _DT_NASCIMENTO
 End Get
 Set(ByVal value As Date)
  If value = Convert.ToDateTime("01/01/0001") Then
   _DT_NASCIMENTO = Nothing
  Else
   _DT_NASCIMENTO = value
  End If
 End Set
End Property

' Para verificar se o valor é nulo
If Not _DT_NASCIMENTO.HasValue Then
  ' ...
End If

Referência: 

• http://vbnotebookfor.net/2007/09/27/introduction-to-nullable-types-in-vbnet/

Abraço,

---

Carlos Eduardo Ferreira