Попробуйте так, я тут быстро накидал, мож. поможет.
//date тип Option ( ,январь,февраль и т.д. все месяцы)
//Далее создали функцию в функции пишем
IF date = date::январь THEN
DateInt:='01';
IF date = date::февраль THEN
DateInt:='02';
IF date = date::март THEN
DateInt:='03';
IF date = date::апрель THEN
DateInt:='04';
IF date = date::май THEN
DateInt:='05';
IF date = date::июнь THEN
DateInt:='06';
//и тд. по всем месяцам
RESET;
IF FIND('-') THEN REPEAT
IF (FORMAT(DATE2DMY("From Date",2)) = DateInt) THEN
//Маркеруем записи попадающие под наше условие
MARK(TRUE);
UNTIL NEXT =0;
//Отображаем промаркерованные записи
MARKEDONLY(TRUE);
Вот такая задумка, попробуйте
|