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

[LuMee]

Есть у меня многозначное поле типа "Дата/время". Стоит задача: перебрать его значения (которых, кстати, может и не быть), сравнив с определенными датами.
Пытаюсь делать так:

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 (или что-то в этом роде). Причем происходит такое дело не на всех компах (видимо, дело в каких-то региональных настройках). Что здесь нужно поменять, чтобы работало везде?

 

[Kee_Keekkenen]

попробуй так

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

 

[LuMee]

Спасибо, попробую