Разность между временем

[Olalya da Silva]

Запись состоит из трех полей: часы, минуты, секунды. Ввести два момента времени. определить какой из них раньше и найти разность между ними. С использованием записи (record)

[Alex Cones]

Если часы1>часы2 то время1 больше иначе
Если минуты1>Минуты2 то время1 больше иначе
Если Секунды1 больше секунды2 то время 1 больше иначе
Если часы1=часы2 тогда если минуты1> минуты2 тогда и так далее... Думаю разберетесь.

[АНК]

Еще один из вариантов:

  dt1, dt2:TDateTime;
  delta_hour, delta_minut, delta_sec: integer;
-------------
  try 
    dt1 := EncodeTime(Hour1, Min1, Sec1, 0);
    dt2 := EncodeTime(Hour2, Min2, Sec2, 0);
    delta_hour := HoursBetween(d2 - d1);
    delta_minut := MinutesBetween(d2 - d1);
    delta_sec := SecondsBetween(d2 - d1);
  except
    ShowMessage("Invalid hour, minute, second, or millisecond.");
 end;