Работа с датами

[Tanuska___:)]

Доброго времени суток, уважаемые эксперты!
подскажите ,пожалусто , можно ли выполнить следующий запрос, чтобы пр выводе в QR даты разбивались в группы по месяцам .... примерно так:
т.е. например выборка с декабря по февраль:
на выходе:
Декабрь
01.12.гггг
02.12.гггг
....
Январь
01.01.гггг
02.01.гггг
....
Февраль
01.02.гггг
о2.о2.гггг
.....
т.е. при смене месяца писалося название нового месяца как подзаголовак

Запрос на выборку у меня :

tex:='select Zurnal.DataPost as data,Zurnal.fio as fio,Zurnal.Ident,Zurnal.Soderganie,RegistraKartochka.RezRassmObras from Zurnal,RegistraKartochka where (Zurnal.PorNomer = RegistraKartochka.PorNomer) and (Zurnal.DataPost>= '+s1+') and (Zurnal.DataPost<= '+s2+')';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:=tex;
ADOQuery1.Open;

пробовала использавать функции:

 
function TForm9.dateconv(aDate: TDate): string;
{
  Приводит дату к виду yyyy-mm-dd
}
var
  dtf:TFormatSettings;
begin
  dtf.DateSeparator:='-';
  dtf.ShortDateFormat:='yyyy-mm-dd';
  Result:=DateToStr(aDate,dtf);
end;

 function TForm9.GetMonthNameRU(aDate: TDate): string;
{
  Возвращает имя месяца по дате
 }
var
  monnum:Integer;
begin
  monnum:=MonthOfTheYear(aDate);
  case monnum of
    1:Result:='Январь';
    2:Result:='Февраль';
    3:Result:='Март';
    4:Result:='Апрель';
    5:Result:='Май';
    6:Result:='Июнь';
    7:Result:='Июль';
    8:Result:='Август';
    9:Result:='Сентябрь';
   10:Result:='Октябрь';
   11:Result:='Ноябрь';
   12:Result:='Декабрь';
  end; //of case
end;

но это не правильно .... а как исправить уже не знаю (чесно говоря запуталась )

[_SERGEYX_]

Почему неправильно? Нормально. Только последнюю функцию я писал так:

function aMonth(m: word): shortstring;
const mm: array[1..12] of string = ('января', 'февраля', 'марта', 'апреля',
      'мая', 'июня', 'июля', 'августа', 'сентября', 'октября', 'ноября',
      'декабря');
begin
   Result := mm[m];
end;

[Tanuska___:)]

функция возможно .... но вот когда я хочу вывести в отчет название месяца выбранного запросом (см. выше * поле DataPost(тут полностью дата формата ДД.ММ.ГГГГ))
Form10.QRLabel9.Caption:=TForm9.Get MonthNameRU(ADOQuery1.Fields.Fields[0].AsDateTime);
но пишет почему то только декабрь .... хотя у меня в базе и месяца такого нету....
и если знаете подскажите как сделать так чтобы формировались записи в отчет с учетом названия месяца

[_SERGEYX_]

Похоже, что MonthOfTheYear неправильно видит номер месяца. Попробуй переписать функцию с указанием номера...

 function TForm9.GetMonthNameRU(m: word): string;
begin
  case m of
    1:Result:='Январь';
    2:Result:='Февраль';
    3:Result:='Март';
{.......... и т.д.........}
  end;
end;

и напиши, что-то типа

var y,m,d: Word;
begin
DecodeDate(Query1.Fields[0].AsDateTime,y,m,d);
Form10.QRLabel9.Caption:=TForm9.GetMonthNameRU(m);

[_SERGEYX_]

Да, кстати...
Я сейчас выкладываю на свой сайт QuickReport & QRDesign v5.02 для D5-D2007.
Мне лень разбивать их по версиям Дельфи, поэтому выложу одной пачкой. Весит 25 мб. В работе не проверял, т.к. не люблю QuickReport и не хочу засорять Дельфи подобными шедеврами.

[Tanuska___:)]

вообще то я его использую только по той причине что знаю как в нем работать ... но пытаюсь разобраться в FastReports он немного посложнее... но и возможностей побольше... у вас на сайте есть что нибудь про FastReports ?

[_SERGEYX_]

Я FastReports не выкладывал, т.к. не выкладываю взломанные компоненты российских разработчиков. Полная версия FastReport v4.6.8 лежит у китайцев здесь.. А информации по использованию в сети полно. В т.ч. и на сайте производителя. Кстати FastReport совсем не сложнее, а намного удобнее.
Да, и демок там целая куча есть.