Ttime,TDatetime Суммирование времени

@VampireKB · Регистрация: 12.06.2009

Author24 — интернет-сервис помощи студентам

Доброго времени суток !

Создав программку,решил добавить в неё процесс суммирования времени,но обнаружил,что после 23:59:59 ,он снова начинает идти с нуля

(

(т.е. 13 часов + 13 часов = 2 часа !! (а должно быть 26 часов)

Пример кода:

Delphi

for a:=5 to Recnumber+2 do
  begin
  datestr:=DateToStr(DateTimePicker1.Date); //string
  Ap.Cells[a,cellnumber]:='0';
    for z:=1 to datenumbers-1 do
    begin
    try
    NAMESTR:=Ap.Cells[a,1];  //string
    TELEPHONESTR:=Ap.Cells[a,2];  //string
    MainForm.Query3.SQL.Text:='select * from "'+DBPASP+'" where NAME = "'+NAMESTR+'" and TELEPHONE = "'+TELEPHONESTR+'" and CURDATE = "'+datestr+'"';
    MainForm.Query3.open;
    datestr:=DateToStr(StrToDate(datestr)+StrToDate('31.12.1899'));  //string
    STARTTIMESTR:=MainForm.Query3.fieldbyname('STARTTIME').AsString; //string
    STOPTIMESTR:=MainForm.Query3.fieldbyname('STOPTIME').AsString; //string
    Sumtime:=Sumtime+(StrToTime(STOPTIMESTR)-StrToTime(STARTTIMESTR)); //TTIME  ..Он же и выдаёт косячное значение :(
    except end;
    Ap.Cells[a,cellnumber]:=TimeToStr(Sumtime);
    end;
  end;

Возможно требуется использовать какой-то другой тип,но в хелпе я такого не нашел..

Добавлено через 8 минут
Вопрос можно закрывать..видимо,это можно сделать только сложением через integer часов,минут и секунд...

@schdub · 17.10.2009, 13:06

Если вам суммировать разницу между двумя TDateTime переменными, используйте функцию HoursBetween(), а ее результат суммируюте с накапливающей переменной. Она декларирована в DateUtils. Обязатьельно почитайте "HoursBetween function" в справочной системе, там есть некоторые ремарки.

@VampireKB · 17.10.2009, 14:19 **[ТС]**

polivets,
Спасибо,но я уже решил

Delphi

//SUMTIME
if CheckBox1.Checked then
begin
//Ap.Cells[5,cellnumber]:='START';
//Ap.Cells[Recnumber+2,cellnumber]:='END';
  for a:=5 to Recnumber+2 do
  begin
  datestr:=DateToStr(DateTimePicker1.Date);
  time1:=0;
  time2:=0;
  time3:=0;
    for z:=1 to datenumbers-1 do
    begin
    try
    NAMESTR:=Ap.Cells[a,1];
    TELEPHONESTR:=Ap.Cells[a,2];
    MainForm.Query3.SQL.Text:='select * from "'+DBPASP+'" where NAME = "'+NAMESTR+'" and TELEPHONE = "'+TELEPHONESTR+'" and CURDATE = "'+datestr+'"';
    MainForm.Query3.open;
    datestr:=DateToStr(StrToDate(datestr)+StrToDate('31.12.1899'));
    STARTTIMESTR:=MainForm.Query3.fieldbyname('STARTTIME').AsString;
    STOPTIMESTR:=MainForm.Query3.fieldbyname('STOPTIME').AsString;
    Sumtime:=StrToTime(STOPTIMESTR)-StrToTime(STARTTIMESTR);
    time1:=time1+HourOf(Sumtime);
    time2:=time2+MinuteOf(Sumtime);
    time3:=time3+SecondOf(Sumtime);
    except end;
    end;
  if TIME1 < 10 then CELLTEMP:='0'+IntToStr(time1) else CELLTEMP:=IntToStr(time1);
  if TIME2 < 10 then CELLTEMP:=CELLTEMP+':0'+IntToStr(time2) else CELLTEMP:=CELLTEMP+':'+IntToStr(time2);
  if TIME3 < 10 then CELLTEMP:=CELLTEMP+':0'+IntToStr(time3) else CELLTEMP:=CELLTEMP+':'+IntToStr(time3);
  Ap.Cells[a,cellnumber]:=CELLTEMP;
  end;
end;
//SUMTIME

@schdub 3071 / 1409 / 425 Регистрация: 19.01.2009 Сообщений: 3,879
	17.10.2009, 13:06	2
	Если вам суммировать разницу между двумя TDateTime переменными, используйте функцию HoursBetween(), а ее результат суммируюте с накапливающей переменной. Она декларирована в DateUtils. Обязатьельно почитайте "HoursBetween function" в справочной системе, там есть некоторые ремарки. 0

	17.10.2009, 14:19

Опции темы