vb.net 日期值被转换为时间

Question

我有以下代码来检查日期时间值是否为空或有值。如果它为空，我希望它作为一个空白字符串返回，否则它应该是它所包含的值的字符串。

语句的Else 部分有效，它将值转换为字符串，但是，如果作为日期时间传入的值为空，它不会返回Nothing，而是将值设置为'12:00:00 AM'，这导致我在项目的其他地方出现问题。

如何调整此函数以使空日期时间值返回为空白字符串？

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

首先，DateTime 永远不会为空/无。因为它是一个值类型（Structure），所以它总是有一个值。在这种情况下，默认值为DateTime.MinValue。但是 VB.NET 会为您处理这种情况。 dt.Date = Nothing 将自动将该值与 Date.MinValue 进行比较，因此它可以按预期工作。

但问题是你返回dt.ToString。只需返回""：

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

这是一个没有方法的版本：

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

您可以看到Date 使用此代码永远不会为空：

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

---

更新 acc。您的最新编辑，与DbNull.Value 进行比较。我还会返回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