Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.04.2013, 18:08   #1
ul_mrAlex
Пользователь
 
Регистрация: 01.04.2013
Сообщений: 23
По умолчанию Сумма времени из столбцов DBGrid

Скажите, а как сделать, что бы подсчитывало время в столбце правильно?
Такая процедура на кнопку, она работает:
PHP код:
procedure TForm13.Button6Click(SenderTObject);
var 
s:TDateTime;
i:integer;
begin
S
:=0;
i:=ADOQuery1.RecNo;
ADOQuery1.DisableControls;
ADOQuery1.First;
while 
not(ADOQuery1.Eof) do
  
begin
    S
:=S+ADOQuery1.FieldByName('it_vrema').AsDateTime;
    
ADOQuery1.Next;
  
end;
ADOQuery1.RecNo:=i;
ADOQuery1.EnableControls;
edit6.Text:=FormatDateTime('HH:mm's);
       
end
Но!:
Даны числа: 07:14 + 05:49 + 07:05 + 10:45. Результат должен по идее получится: 30:53
Но выводит как 6:53.
Т.е. получается до 23:59 он считает нормально, а потом?!
Как сделать и где выставить правильный формат вывода времени?
ul_mrAlex вне форума Ответить с цитированием
Старый 09.04.2013, 18:52   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Отдельно выделять из времени часы, минуты, секунды (DecodeTime) и складывать
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 09.04.2013, 18:56   #3
ul_mrAlex
Пользователь
 
Регистрация: 01.04.2013
Сообщений: 23
По умолчанию

Примера случайно нет?
ul_mrAlex вне форума Ответить с цитированием
Старый 09.04.2013, 19:01   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Обычно нормальным образом сумма времен так не вычисляется, а вычисляется как сумма разниц двух времен и не в программе, а запросом. А в качестве примера справка по процедуре DecodeTime
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывести номера тех столбцов, сумма элементов которых меньше нуля, и число таких столбцов Half Помощь студентам 7 16.04.2012 21:23
сумма элементов четных столбцов Julila Помощь студентам 3 02.03.2011 08:19
Сумма четных столбцов (в нечетных - текст) VictorM Microsoft Office Excel 6 23.10.2010 00:08
Min сумма столбцов 2-ого массива Sparky Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 23.09.2009 17:20
Паскаль. Сумма столбцов мартицы. kommunist Помощь студентам 3 10.11.2007 18:26