Даты

[Sparky]

Привет всем. В форме связанной с финансовой отчетностью необходимо чтобы данныевыдавались по месяцам. Как это можно сделать? Раньше использовала стандартные датапикеры. Но заказчик сказал, что нужно просто из выпадающего списка выбирать месяц и год. Как такое можно сделать?

[pu4koff]

С месяцами так: заполняем ComboBox названиями месяцев и собственно всё. У ComboBox имеется свойство ItemIndex - номер выделенного элемента. Индексация только начинается с нуля, т.е. январь будет под номером 0, а февраль - под номером 1. Так что просто считываете этот самый индекс прибавляете единичку и получаете номер нужного месяца.
С годами примерно так же. Заполняем в цикле допустим от 2000 до 2009 года (Если хочется до текущего года, то что-то вроде YearOf(Today) нужно использовать). Дальше всё так же, как и с месяцами, только к индексу уже не единичку нужно будет прибавлять, а 2000.
Чтобы из отдельных составляющих собрать дату, нужно использовать функцию EncodeDate. Я так понимаю нужен будет диапазон дат: первое число месяца и последнее. Число дней в месяцах разное, потому можно использовать функцию DaysInAMonth. Так же можно просто брать первое число следующего месяца (тут с декабрём только нужно будет разбираться, т.к. будет переход на следующий год)

var
  year, month: word;
  fromDate, toDate: TDateTime;
begin
  month := MonthComboBox.ItemIndex + 1;
  year := YearComboBox.ItemIndex + 2000;
  fromDate := EncodeDate(year, month, 1); // первое число нужного месяца
  toDate := EncodeDate(year, month, DaysInAMonth(year, month)); // последнее число месяца
  ...
end;

Вот в общем как-то так это всё и будет выглядеть
ЗЫ. Писал здесь, потому мог где-то в коде ошибиться, но принцип в любом случае, думаю, понятен.

[Sparky]

спасибо, большое

[Sparky]

var
year, month: word;
fromDate, toDate: TDateTime;
begin

month := ComboBox1.ItemIndex + 1;
year := SpinEdit1.value;
fromDate := EncodeDate(year, month, 1); // первое число нужного месяца
toDate := EncodeDate(year, month,DaysInAMonth(year, month)); // последнее число месяца
DataModule3.IBDataSet9.ParamByName( 'd1').Value:=fromDate;
DataModule3.IBDataSet9.ParamByName( 'd2').Value:=toDate;
DataModule3.IBDataSet9.open;

Выдает ошибку что какой-то аргумент не подходит.

[Sparky]

все вопрос решен

[Власов А.С.]

Sparky так в чем ошибка то была и можно весь ваш код

[Stilet]

Вопрос решен. Закрыто.