Компонент "Период дат"

Автор:K0
Дата:04.04.2003
Просмотров:3845
Скачиваний:927
Оценка:, Оценок - 2
Скачать (rar-файл; Размер - 6242)

Обсудить в форуме

Описание

Часто в RSL-программе необходимо обрабатывать введённый пользователем период дат. Для таких случаев предлагаю компонент "Период дат" (класс TRngDt), который несложно подключить в любое место программы (см. пример).

Класс 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)