Нулевое возвращение ""

Question

У меня есть следующий код, однако, если RefDate пуст, он возвращает #Type !. Могу ли я добавить в строку, чтобы сказать, если ifNull = ""

Public Function Status(ByVal RefDate As Date) As String

    Dim Description As String

    Select Case DateDiff("d", Date, RefDate)
        Case > 60
            Description = "In date"
        Case > 0
            Description = "Expiring"
        Case Else
            Description = "Expired"
    End Select

    Status = Description

End Function

Если Null возвращает "" ничего или пусто

Answer 1

Попробуйте, я также изменил тип входных данных

Public Function Status(ByVal RefDate As Variant) As String

    Dim Description As String

    If Len(RefDate) > 0 and IsDate(RefDate) Then

        Select Case DateDiff("d", Date, RefDate)
            Case Is > 60
                Status = "In date"
            Case Is > 0
                Status = "Expiring"
            Case Else
                Status = "Expired"
        End Select

    Else

        Status = "No date"

    End If


End Function

Answer 2

Пытается использовать аналогичный подход при сравнении с @Ryan Wildry, но теперь явно устанавливает "" для Описание

Public Function Status(ByVal RefDate As Date) As String

    Dim Description As String

    If CInt(RefDate) = 0 Then 
        Description = ""
    Else
        Select Case DateDiff("d", Date, RefDate)
            Case Is > 60
                Description = "In date"
            Case Is > 0
                Description = "Expiring"
            Case Else
                Description = "Expired"
        End Select
    End If

    Status = Description

End Function