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

Alex89d

Дата 14.5.2015, 15:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 14.5.2015

Репутация: нет
Всего: нет

Доброе время суток! Нужна помощь! Есть два списка, нужно получить итоговый список в котором разница во времени между исходными списками больше 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;

Это сообщение отредактировал(а) Poseidon - 15.5.2015, 10:44

Присоединённый файл ( Кол-во скачиваний: 0 )

help.rar 5,92 Kb

Poseidon

Дата 15.5.2015, 10:47 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Что конкретно не так?

Цитата

if (Trunc(q)>4) and (Trunc(q)<>0) then

Можешь привести пример, когда не сработает второе условие?

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »