Компонент "Период дат"
Скачать (rar-файл; Размер - 6242)Обсудить в форуме
Описание
Часто в RSL-программе необходимо обрабатывать введённый пользователем период дат. Для таких случаев предлагаю компонент "Период дат" (класс TRngDt), который несложно подключить в любое место программы (см. пример).
Класс TRngDt имеет
- параметры: начальная, конечная[, минимальная] [и максимальная] даты
* 2 последних параметра ограничивают ввод новых дат в диалоге
- методы
- pbChng: выбор дат в диалоге
- psRng: возвращает "c (дата начала) по (дата конца)"
*В глобальной переменной sDlgRng указывается имя словаря диалогов (range.lbr). Предварительно не забудьте перенести этот файл из подкаталога примера "dialog" в папку, описанную в переменной.
Класс TRngDt имеет
- параметры: начальная, конечная[, минимальная] [и максимальная] даты
* 2 последних параметра ограничивают ввод новых дат в диалоге
- методы
- pbChng: выбор дат в диалоге
- psRng: возвращает "c (дата начала) по (дата конца)"
*В глобальной переменной sDlgRng указывается имя словаря диалогов (range.lbr). Предварительно не забудьте перенести этот файл из подкаталога примера "dialog" в папку, описанную в переменной.
Текст примера
import "o_rngdt"; /* Корректно подключите словарь диалогов через глобальную переменную sDlgRng. Для этого предварительно поместите файл range.lbr в папку, описанную в sDlgRng. Например, sDlgRng = "..\\dialog\\range.lbr"; /*словарь диалогов должен находиться в папке DIALOG*/ */ sDlgRng = "range.lbr"; /*словарь диалогов должен находиться в папке OBJ*/ var od = TRngDt (date-30, date, date(1,1,2001), date+1); [Ввод дат: #](od.pbChng); [Начало : #](od.s); [Конец : #](od.e); [Период : #](od.psRng)