Trovata la soluzione:
Bisogna usare il seguente metodo per settare il Variant
Variant = doc.GetItemValueDateTimeArray("FieldData")
ed il seguente per settare il NotesDataTime
Forall t In Variant
If Typename(t) = "NOTESDATETIME" Then
Set NotesDateTime = t
End If
End Forall
A questo punto NotesDateTime se ha come orario 00.00.00 viene considerato lo stesso.
|