SelectValues по полю даты

Автор Alex_S, октября 08, 2015, 10:09:00 am

« предыдущая - следующая »

Alex_S

добрый день.
хочу выполнить скрипт, чтобы задать поля отбор по переменной документа.
на выходе количество элементов массива FieldFilter > 0, при этом после выполнения скрипта полностью очищается отбор по дате. подскажите почему?

Sub ApplyDate1
dim VarDate1Value, Cnt
set VarDate1 = ActiveDocument.Variables("Date1")
VarDate1Value = VarDate1.GetContent.String
set Field = ActiveDocument.Fields("ДатаПродажи")
set FieldFilter = Field.GetNoValues
set FieldFilterNot = Field.GetNoValues
set FieldAllValues = Field.GetPossibleValues
Cnt = 0
For i = 0 To FieldAllValues.Count - 1
  set FieldItem = FieldAllValues.Item(i)
  FieldValue = FieldItem.Number
  if FieldValue - VarDate1Value >= 0 Then
   FieldFilter.Add
   CurFilter = FieldFilter.Item(Cnt)
   CurFilter.IsNumeric = True
   CurFilter.Text = FieldValue
   Cnt = Cnt + 1
  End If
Next
msgbox FieldFilter.Count
Field.SelectValues FieldFilter ', false, true
End Sub


так же пытался выполнить код
Field.Select ">=" & VarDate1Value
но не выполняется, так как VarDate1Value имеет значение 42275 (28.09.2015).
если напрямую задать
Field.Select ">=28.09.2015"
то работает, но я хочу от переменной сделать выборку поля


помогите, пожалуйста, что делаю не так

на форумах очень мало информации по работе как раз с датами, там в основном с текстовыми полями.

Рейтинг@Mail.ru Яндекс.Метрика