excel - vba:日期函数返回 "00:00:00"

Question

如果传递的值“DateValue”为空，我的以下代码返回“00:00:00”

vba:

Public Function forDate(ByVal DateValue As String) As Date
Dim DoDate As Date
If Not IsNull(DateValue) And DateValue <> "" Then
DoDate = CDate(FormatDateTime(DateValue, 1, 10))
forDate = DoDate
End If
End Function

“DateValue”为空时如何处理？？？
请提出一个答案。

Answer 1

设置 Date如果您使用 vbNull，则为 null 是有效的(即运行不会出错)而不是 Null .虽然它会返回 #12/31/1899#而不是 null本身。您可以稍后将日期变量与该已知空值检查为您的伪空值。

或者您可以将其设置为最小日期 DateSerial(100, 1, 1)这将返回 #1/1/100#