[Red_Garry]

Здравствуйте!
Такая задачка: в качестве входных данных выступает начальное время (это своеобразный ноль, начиная с которого ведутся поминутные расчёты) и произвольно вводящееся время запроса. Программа строит поминутный график, где нулём по оси Х является начальное время, а конечной точкой является время произвольно вводящегося запроса. А вопрос такой: нужно простое решение, функция, которая получив в качестве параметров две даты/времени вычисляет длину графика по оси Х в минутах, т.е. находит количество минут между началом расчёта и временем запроса. Может у кого-нибудь есть заготовки?

[icWasya]

TDateTime - это время в сутках.
Соответственно минуты - это (Time-X0)*24*60;

[NumLock]

Код:

var
  AThen: TDateTime;
begin
  AThen:=Now;
  Sleep(1000*60*5);
  ShowMessage(IntToStr(MinutesBetween(Now, AThen)));
end;

[Red_Garry]

Большое спасибо за ответы

[Red_Garry]

Почему у меня не компилится MinutesBetween? Ошибка: "Undeclared identifier 'MinutesBetween'". Процедура вида:

procedure TForm1.Button1Click(Sender: TObject);
Var d: TDateTime;
i: integer;
begin
d := StrToDateTime('05.09.2012');
i := MinutesBetween(Now, d);
ShowMessage('Разность в минутах ' +IntToStr(i));
end;

[cdtj]

В uses есть DateUtils?

[Red_Garry]

Нет! Спасибо, теперь понял!