Вычеслить время между двумя датами в цикле

[alex89d]

Доброе время суток! Нужна помощь! Есть два списка, нужно получить итоговый список в котором разница во времени между исходными списками больше 4 четырех часов!

procedure TForm1.btn3Click(Sender: TObject);
var i,j:Integer;
s1,s2,q:TDateTime;
begin
    for  i:= 0 to lst1.Items.Count-1 do
      s1:=StrToDateTime(lst1.Items.Strings[i]);
          for  j:= 0 to lst2.Items.Count-1 do
             begin
 
              s2:=StrToDateTime(lst2.Items.Strings[j]);
 
               if s2>s1 then
                  begin
                  q := HoursBetween(s2,s1);
                  if (Trunc(q)>4) and (Trunc(q)<>0)  then
                  lst3.Items.Add(floatToStr(q)+' s2>s1 '+datetimetostr(s2))
                  end
 
                  else
 
                  begin
                   q := HoursBetween(s1,s2);
                   if (Trunc(q)<4) and (Trunc(q)<>0)  then
                   lst3.Items.Add(floatToStr(q)+' s1>s2 '+datetimetostr(s1))
 
 
                  end;
             end;
 
end;

[newerow1989]

begin
 for i:= 0 to lst1.Items.Count-1 do
 begin//здесь добавил
 s1:=StrToDateTime(lst1.Items.String s[i]);
 for j:= 0 to lst2.Items.Count-1 do
 begin

 s2:=StrToDateTime(lst2.Items.String s[j]);

 if s2>s1 then
 begin
 q := HoursBetween(s2,s1);
 if (Trunc(q)>4) and (Trunc(q)<>0) then
 lst3.Items.Add(floatToStr(q)+' s2>s1 '+datetimetostr(s2))
 end

 else

 begin
 q := HoursBetween(s1,s2);
 if (Trunc(q)>4){здесь подкорректировал} and (Trunc(q)<>0) then
 lst3.Items.Add(floatToStr(q)+' s1>s2 '+datetimetostr(s1))


 end;
 end;//здесь добавил
 end;

Угадал?

[alex89d]

Не угадал) не работает!((((

[newerow1989]

У меня так:

[Toxa]

почему не работает? не вносит дат вообще или слишком много дат? или вообще ошибку дает?
пробовал дебажить, взять 2 даты заведомо подходящие под условия и смотреть, где условие не так работает?

[alex89d]

Когда беру по отдельности даты, условие срабатывает корректно! В цикле же вываливается много лишнего и не соответствующего условию! Первая цифра в итоговом списке, разность двух дат, но оно, не везде правильная, где может быть ошибка, что я делаю не так?(((

[newerow1989]

Если построчно, то так:

procedure TForm1.btn3Click(Sender: TObject);
var i,j:Integer;
s1,s2,q:TDateTime;
begin
    for  i:= 0 to lst1.Items.Count-1 do
    begin
      s1:=StrToDateTime(lst1.Items.Strings[i]);
      s2:=StrToDateTime(lst2.Items.Strings[i]);

               if s2>s1 then
                  begin
                  q := HoursBetween(s2,s1);
                  if (Trunc(q)>4) and (Trunc(q)<>0)  then
                  lst3.Items.Add(floatToStr(q)+' s2>s1 '+datetimetostr(s2))
                  end

                  else

                  begin
                   q := HoursBetween(s1,s2);
                   if (Trunc(q)>4) and (Trunc(q)<>0)  then
                   lst3.Items.Add(floatToStr(q)+' s1>s2 '+datetimetostr(s1))


                  end;
    end;

end;

[alex89d]

Так действительно получше)))) Спасибо!)

[newerow1989]

Пожалуйста!