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

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

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

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

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

(

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

Пример кода:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
//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

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

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