Lotusscript 日期时间问题

发布于 2024-09-24 12:53:43 字数 391 浏览 3 评论 0原文

我在视图中存储了几个日期。我正在使用 getItemValue 来检索它们。

将repsondedDate变暗为NotesDateTime
Set repsondedDate = timePart1doc.GetItemValue("dateResponded")

当我尝试执行以下操作时，我在运行时遇到类型不匹配的情况。

Dim dateDifference As double 设置 dtLocal = New NotesDateTime( 现在 ) dateDifference = repsondedDate.Timedifference(dtLocal)

有人对出了什么问题有任何想法吗？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

烟─花易冷 2024-10-01 12:53:43

以下行返回一个数组：

Set repsondedDate = timePart1doc.GetItemValue("dateResponded")

所以应该是：

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

如果我没记错的话，您应该使用 GetItemValueDateTimeArray 方法而不是 GetItemValue，所以它实际上应该是这样的：

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

希望有帮助

The following line returns an array:

Set repsondedDate = timePart1doc.GetItemValue("dateResponded")

So it should be:

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

If I'm not mistaken you should be using the GetItemValueDateTimeArray method instead of the GetItemValue, so it should actually be like this:

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

Hope that helps

回复收藏 0 原文

止于盛夏 2024-10-01 12:53:43

请改用 GetItemValueDateTimeArray，如下面的 IBM 示例 :

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim dc As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim count As Integer
  Set db = session.CurrentDatabase
  Set dc = db.UnprocessedDocuments
  If dc.Count = 0 Then Exit Sub
  Set doc = dc.GetFirstDocument
  Dim times As Variant
  times = doc.GetItemValueDateTimeArray("Times")
  count = 0
  Forall t In times
    count = count + 1
    If Typename(t) = "NOTESDATETIME" Then
      Messagebox t.LocalTime,, "Date/time # " & count
    Elseif Typename(t) = "NOTESDATERANGE" Then
      Messagebox t.StartDateTime.LocalTime & " - " & _
      t.EndDateTime.LocalTime,, "Date/time # " & count
    End If
  End Forall
End Sub

Use GetItemValueDateTimeArray instead like the IBM example below:

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim dc As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim count As Integer
  Set db = session.CurrentDatabase
  Set dc = db.UnprocessedDocuments
  If dc.Count = 0 Then Exit Sub
  Set doc = dc.GetFirstDocument
  Dim times As Variant
  times = doc.GetItemValueDateTimeArray("Times")
  count = 0
  Forall t In times
    count = count + 1
    If Typename(t) = "NOTESDATETIME" Then
      Messagebox t.LocalTime,, "Date/time # " & count
    Elseif Typename(t) = "NOTESDATERANGE" Then
      Messagebox t.StartDateTime.LocalTime & " - " & _
      t.EndDateTime.LocalTime,, "Date/time # " & count
    End If
  End Forall
End Sub

回复收藏 0 原文

~没有更多了~