работа с временем

[garuna]

Добрый вечер! Есть такой список временных промежутков:

13:24:49 - 14:27:42
16:07:14 - 16:07:26
18:25:13 - 18:38:14
20:16:50 - 20:57:58
21:04:05 - 22:43:40
23:59:26 - 23:59:59

нужно исходя из этого списка определить сколько секунд входит в каждый час суток (от 0 до 23).
например, в 10-й час входит 0 секунд, в 18-й 781 секунда, а в 23-й 33 секунды. помогите пожалуйста с кодом.

[Serge_Bliznykov]

Сообщение от garuna

нужно исходя из этого списка определить сколько секунд входит в каждый час суток (от 0 до 23).
например, в 10-й час входит 0 секунд, в 18-й 781 секунда, а в 23-й 33 секунды. помогите пожалуйста с кодом.

простите, а как это Вы посчитали?
понял
18-й час входит 13 минут 1 секунда = 13*60+1 = 781

[Аватар]

StrToTime и
SecondsBetween из DateUtils
с учетом перехода между часами

[garuna]

Сообщение от Serge_Bliznykov

простите, а как это Вы посчитали?
понял
18-й час входит 13 минут 1 секунда = 13*60+1 = 781

да, всё верно.

Сообщение от Аватар

StrToTime и
SecondsBetween из DateUtils
с учетом перехода между часами

да я понимаю, что нужно оперировать этими функциями, но уже больше часа туплю в монитор и не могу сообразить как это сделать

[Аватар]

заведи массив [0..23] для секунд, индекс - час
в цикле по списку интервалов определяй час из начала интервала и час из конца. Если совпадает то вычисляй и накапливай в массиве. Если час конца больше часа начала то считай секунды до конца часа начала интевала и накапливай, в начало интервала вставь начало следующего часа и т.д

[garuna]

Сообщение от Аватар

заведи массив [0..23] для секунд, индекс - час
в цикле по списку интервалов определяй час из начала интервала и час из конца. Если совпадает то вычисляй и накапливай в массиве. Если час конца больше часа начала то считай секунды до конца часа начала интевала и накапливай, в начало интервала вставь начало следующего часа и т.д

я мысленно всё это представляю, но не могу сообразить как выразить кодом. помоги, если не сложно

[newerow1989]

procedure TForm1.FormCreate(Sender: TObject);
begin
   Memo1.Clear;
   Memo1.Lines.Add('13:24:49 - 14:27:42');
   Memo1.Lines.Add('16:07:14 - 16:07:26');
   Memo1.Lines.Add('18:25:13 - 18:38:14');
   Memo1.Lines.Add('20:16:50 - 20:57:58');
   Memo1.Lines.Add('21:04:05 - 22:43:40');
   Memo1.Lines.Add('23:59:26 - 23:59:59');
end;

procedure TForm1.Button1Click(Sender: TObject);
var sec:array[0..23] of integer;
    i,k:integer;
    s,s1,s2:string;
    t,t1,t2:tDateTime;
begin
   For k:=Low(sec) to High(sec) do
      sec[k]:=0;
   For i:=0 to Memo1.Lines.Count-1 do
   begin
      s:=Memo1.Lines[i];
      k:=Pos(' - ',s);
      s1:=Copy(s,1,k-1);//13:24:49
      s2:=Copy(s,k+3,Length(s));//14:27:42
      t1:=StrToTime(s1);
      t2:=StrToTime(s2);
      k:=Pos(':',s);
      s:=Copy(s,1,k-1);//13
      k:=StrToInt(s);
      Repeat
         t:=(k+1)/24;//14:00:00
         If t2<t then//14:27:42 < 14:00:00
            t1:=t2-t1 else
            t1:=t-t1;//0:35:11 = 14:00:00 - 13:24:49
         sec[k]:=sec[k]+Round(t1*24*60*60);
         If t2<t then
            Break;
         t1:=t;//14:00:00
         Inc(k);//14
      Until k>=24;
   end;
   Label1.Caption:='';
   For k:=Low(sec) to High(sec) do
      Label1.Caption:=Format('%s%d - %d%s',[Label1.Caption,k,sec[k],#13#10]);
end;