Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

9th
Окт

Получить разницу между датами

Posted by Chas under Delphi

Есть 2 даты и время, как получить разницу.

Serge_Bliznykov
просто в порядке эксперимента. Может быть, Вам этот код поможет:

var date1, date2 : TDateTime;

  tDiff : TDateTime;

  days : integer;

  sDiff : string;

begin

  date1 := StrToDateTime('1.09.2014 9:12:05');

  date2 := StrToDateTime('17.09.2014 8:15:25');

  if date2>date1 then

     tDiff := date2 - date1

  else

     tDiff := date1 - date2;
  days:=Trunc(tDiff);

  tDiff := tDiff - days;
  sDiff := '';

  if days > 0 then sDiff := inttostr(days)+' days ';

  if tDiff > 0 then sDiff := sDiff + TimeToStr(tDiff);

  ShowMessage(sDiff);
end;