ник: ddi
public function par(str as string)
select case str
case "data1"
par = Format(дата из формы таблицы или ..., "mm\/dd\/yyyy")
case "data2"
par = Format(дата из формы таблицы или ..., "mm\/dd\/yyyy")
End Select"
select x form y
where z between par("data1") and par("data2")