vb.net Datumswerte werden in Zeit umgerechnet

Question

Ich habe den folgenden Code, um zu überprüfen, ob ein Datetime-Wert Null ist oder einen Wert hat. Wenn es null ist, möchte ich, dass es als leere Zeichenfolge zurückgegeben wird, andernfalls sollte es eine Zeichenfolge des Werts sein, der es enthält.

Der Else Teil der Anweisung funktioniert, er konvertiert den Wert in eine Zeichenfolge. Wenn der als datetime übergebene Wert jedoch null ist, gibt er Nothing nicht zurück, sondern setzt den Wert auf '12: 00:00 Uhr ", was mir an anderen Stellen des Projekts Probleme bereitet.

Wie kann ich diese Funktion so anpassen, dass null Datetime-Werte als leere Zeichenfolgen zurückgegeben werden?

Public Shared Function dbToDate(o As Object) As DateTime 

    If o Is DBNull.Value Then 
     Return "" 

    Else 
     Return Convert.ToDateTime(o) 

    End If 
End Function 

Answer 1

Erstens ist ein DateTime nie null/nichts. Da es sich um einen Werttyp handelt (Structure), hat es immer einen Wert. In diesem Fall lautet der Standardwert DateTime.MinValue. Aber VB.NET bearbeitet diesen Fall für Sie. Der dt.Date = Nothing vergleicht den Wert automatisch mit Date.MinValue, damit es wie gewünscht funktioniert. Das Problem ist, dass Sie dt.ToString zurückgeben. Nur "" zurück:

Public Shared Function sqlDate(dt As DateTime) As String  
    If dt.Date = Nothing Then 
     Return ""  
    Else  
     Return dt.ToString("yyyy-MM-dd")  
    End If  
End Function 

Hier ist eine Version ohne Methode:

Dim result = If(dt = Nothing, "", dt.ToString("yyyy-MM-dd")) 

Sie können sehen, dass ein Date nie null mit diesem Code ist:

Dim dt As Date = Nothing 
Console.WriteLine(dt = Nothing)' true 
Console.WriteLine(dt = Date.MinValue)' true 
Console.WriteLine(Object.ReferenceEquals(Nothing, dt))' always false because it's a value type 

---

aktualisieren gem. deine letzte Bearbeitung, vergleiche mit DbNull.Value. Ich würde auch eine Nullable(Of Date):

Public Shared Function dbToDate(o As Object) As DateTime? 
    If DbNull.Value.Equals(o) OrElse o Is Nothing Then 
     Return Nothing 
    Else 
     Return Convert.ToDateTime(o) 
    End If 
End Function