Ignorovať čas od bunky DateTime v programe Excel - Excel, vba, excel-vba, datetime, excel-2013

Používam VBA na zachytenie dátumu vstupu do abunka. Problémom, ktorý mám, je to, že ak je bunka prázdna, VBA ju číta ako 12:00:00 AM, takže moja funkcia ISDATE () vo VBA ju vidí ako dátum, ale kód vybuchne, pretože nie je skutočný dátum. Čo syntax VBA môže aktuálne skontrolovať na overenie bunky obsahuje DATE?

Toto je moja súčasná syntax

Sub IsDate()
Dim d1 As Date

d1 = CDate(Range("A1").Value)

If IsEmpty(Range("A1")) = False Then
If IsDate(d1) = True Then
"Continue
End If
End If

odpovede:

IsEmpty(Range("A1")) vám poskytne nekonzistentné výsledky Range("A1").Value <> "".

Nev Názov vašich podprogramov po zabudovaní v metódach VBA Napríklad Sub IsDate() prepíše metódu VBA a spôsobí zmätok.

Sub TestIsDate()

Dim d1 As Date
If Range("A1").Value <> "" And IsDate(Range("A1").Value) Then
d1 = CDate(Range("A1").Value)
End If

End Sub