VPF::Некорректный итог поля с типом TIME в cxGrid

lotax

Дата 9.3.2010, 10:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.4.2005
Где: KZ

Репутация: нет
Всего: нет

Приветствую
Подскажите пожалуйста как решить проблему c итогом суммы времени в cxGrid
smile

Присоединённый файл ( Кол-во скачиваний: 13 )

999.JPG 10,50 Kb

--------------------

Говори, что думаешь и думай, что говоришь.

Akella

Дата 9.3.2010, 11:29 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Сам суммируй и выводи в Summary.

lotax

Дата 9.3.2010, 11:57 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.4.2005
Где: KZ

Репутация: нет
Всего: нет

Цитата(Akella @ 9.3.2010, 11:29

)

Сам суммируй и выводи в Summary.

Да такой вариант рассматривался...
Но хотел чтобы отрабатывали фильтры грида

Мне кажется что дело в формате тока не могу определить какой формат...

--------------------

Говори, что думаешь и думай, что говоришь.

lotax

Дата 9.3.2010, 12:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 121
Регистрация: 18.4.2005
Где: KZ

Репутация: нет
Всего: нет

Придется через программирование smile

Код


function GetD(MyDtTm: TDateTime): String;
var
  MyDt: TDate;
  MyTm: TTime;
  dD, dM, dY,
  tH, tM, tS, tMS,
  CntDay: Word;
begin
  DecodeDate(MyDtTm, dY, dM, dD);
  DecodeTime(MyDtTm, tH, tM, tS, tMS);
  MyDt := EncodeDate(dY, dM, dD);
  MyTm := EncodeTime(tH, tM, tS, tMS);
  CntDay := DaysBetween(StrToDate('30.12.1899'), MyDt);
  Result := IntToStr(CntDay) + ' ' +TimeToStr(MyTm);
end;

procedure TForm1.cxGrid1DBTableView1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems0GetText(
  Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean;
  var AText: String);
begin
  if AValue<>Null then
    AText := GetD(StrToDateTime(AValue));
end;

--------------------

Говори, что думаешь и думай, что говоришь.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »