> ' Return an empty date > ' expT1 Date > Public Function GetEmptyDate() As Date > Return New Date(1899, 12, 30, 0, 0, 0) > End Function >