I’m working with VB.NET and need to handle cases where a date string could represent a full date and time or just a time. Here’s my current code snippet:

Dim InvoiceDate As String = Nothing

If IsDate(strInvoiceDate) Then
    InvoiceDate = CDate(strInvoiceDate)
End If

In this code, strInvoiceDate could be a string representing either a full date and time or just a time. If strInvoiceDate represents only a time and does not include a date, I want to set InvoiceDate to an empty string (“”).

Here is the implementation of the IsDate function I’m using:

Public Shared Function IsDate(Expression As Object) As Boolean
    If Expression Is Nothing Then
        Return False
    End If

    If TypeOf Expression Is DateTime Then
        Return True
    End If

    If TypeOf Expression Is String Then
        Dim Result As DateTime = Nothing
        Return Conversions.TryParseDate(CType(Expression, String), Result)
    End If

    Return False
End Function

How can I modify the code to handle cases where strInvoiceDate is only a time and set InvoiceDate to “” in such cases?

Thank you!