<index><STRONG><index><STRONG>Как на скрипте перебрать даты в поле?</S

Тема в разделе "Lotus - Программирование", создана пользователем LuMee, 1 мар 2007.

  1. LuMee

    LuMee Well-Known Member

    Регистрация:
    2 май 2006
    Сообщения:
    477
    Симпатии:
    0
    Есть у меня многозначное поле типа "Дата/время". Стоит задача: перебрать его значения (которых, кстати, может и не быть), сравнив с определенными датами.
    Пытаюсь делать так:
    Код (Text):
    Dim d As Variant
    ...
    Forall theDate in doc.GetItemValue("TheDate")
    If theDate <> "" Then
    d = DateValue(theDate)
    If (d > fromDate) And (d < toDate) Then
    ...
    End if
    End If
    End Forall
    Проблема в том, что на этапе d = DateValue(theDate) скрипт на некоторых машинах валится, ругаясь на Invalid function call (или что-то в этом роде). Причем происходит такое дело не на всех компах (видимо, дело в каких-то региональных настройках). Что здесь нужно поменять, чтобы работало везде?
     
  2. Kee_Keekkenen

    Kee_Keekkenen Well-Known Member

    Регистрация:
    5 сен 2006
    Сообщения:
    616
    Симпатии:
    4
    попробуй так
    Код (Text):
    Dim doc As NotesDocument
    Dim var As Variant
    Dim index As Integer
    Dim controlDate As New NotesDateTime(Now)
    Dim testDate As NotesDateTime

    Set doc = thisUIdoc.Document
    var = doc.GetItemValue("date")

    If var(Lbound(var)) = "" Then Exit Sub

    For index = 0 To Ubound(var)
    Set testDate = New NotesDateTime(var(index))
    If controlDate.TimeDifference(testDate) > 0 Then
    Msgbox testDate.DateOnly + " раньше " + controlDate.DateOnly
    Else
    Msgbox testDate.DateOnly + " позже " + controlDate.DateOnly
    End If
    Next
     
  3. LuMee

    LuMee Well-Known Member

    Регистрация:
    2 май 2006
    Сообщения:
    477
    Симпатии:
    0
    Спасибо, попробую
     
Загрузка...
Похожие Темы - <index><STRONG><index><STRONG>Как на скрипте
  1. DNT
    Ответов:
    5
    Просмотров:
    3.510
  2. anna
    Ответов:
    2
    Просмотров:
    16
  3. ~~DarkNode~~
    Ответов:
    4
    Просмотров:
    433
  4. artem4486
    Ответов:
    0
    Просмотров:
    34
  5. oshmianski
    Ответов:
    6
    Просмотров:
    63

Поделиться этой страницей