VB.NET - 可空日期时间和三元运算符

Question

我在 VB.NET (VS 2010) 中遇到了 Nullable DateTime 问题。

方法 1

If String.IsNullOrEmpty(LastCalibrationDateTextBox.Text) Then
    gauge.LastCalibrationDate = Nothing
Else
    gauge.LastCalibrationDate = DateTime.Parse(LastCalibrationDateTextBox.Text)
End If

方法 2

gauge.LastCalibrationDate = If(String.IsNullOrEmpty(LastCalibrationDateTextBox.Text), Nothing, DateTime.Parse(LastCalibrationDateTextBox.Text))

当给定空字符串时，方法 1 向 gauge.LastCalibrationDate 分配 Null（无）值，但方法 2 向其分配 DateTime.MinValue。

在我的代码中的其他地方，我有：

LastCalibrationDate = If(IsDBNull(dr("LastCalibrationDate")), Nothing, dr("LastCalibrationDate"))

这正确地将三元运算符中的 Null（无）分配给可空日期时间。

我缺少什么？谢谢！

Answer 1

我承认我不是这方面的专家，但显然它源于两件事：

1. If 三元运算符只能返回一种类型，在本例中是日期类型，而不是可为空的日期类型
2. VB.Net Nothing 值实际上并不是 null，而是相当于指定类型的默认值，在本例中是日期，而不是可以为 null 的日期。因此是日期最小值。

我从这篇文章中得出了这个答案的大部分信息： 三元运算符 VB 与 C#：为什么解析为整数而不是整数？

希望这会有所帮助，并且像 Joel Coehoorn 这样的人可以对这个主题有更多的了解。

Answer 2

鲍勃·麦克是正确的。请特别注意他的第二点 - C# 中并非如此。

您需要做的是通过将 Nothing 强制转换为可为空的 DateTime，如下所示：

gauge.LastCalibrationDate = If(String.IsNullOrEmpty(LastCalibrationDateTextBox.Text), CType(Nothing, DateTime?), DateTime.Parse(LastCalibrationDateTextBox.Text))

这是一个要演示的代码片段：

Dim myDate As DateTime?
' try with the empty string, then try with DateTime.Now.ToString '
Dim input = ""
myDate = If(String.IsNullOrEmpty(input), CType(Nothing, DateTime?), DateTime.Parse(input))
Console.WriteLine(myDate)

除了转换之外，您还可以声明一个新的可为空： New Nullable(Of DateTime) 或 新 DateTime?()。后一种格式看起来有点奇怪，但它是有效的。