Проблемы с датой во время лотереи

Question

У меня есть пара дат, хранящихся в представлении. И я использую getItemValue для их извлечения.

Dim repsondedDate As NotesDateTime
Set repsondedDate = timePart1doc.GetItemValue("dateResponded")

Когда я пытаюсь сделать следующее, я получаю тип missmatch во время выполнения.

Dim dateDifference As double
Set dtLocal = New NotesDateTime(Now)
dateDifference = repsondedDate.Timedifference(dtLocal)

Кто-нибудь есть какие-либо идеи о том, что происходит не так?

Answer 1

Следующая строка возвращает массив:

Set repsondedDate = timePart1doc.GetItemValue("dateResponded") 

Так оно и должно быть:

Set repsondedDate = timePart1doc.GetItemValue("dateResponded")(0) 

Если я не ошибаюсь, вы должны использовать метод GetItemValueDateTimeArray вместо GetItemValue, так это должно быть фактически таким:

Set repsondedDate = timePart1doc.GetItemValueDateTimeArray("dateResponded")(0) 

Надеюсь, что поможет