Lotusscript дата и время выпуски

Question

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

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

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

Dim dateDifference As double<br> Set dtLocal = New NotesDateTime( Now )<br> 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)

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