Delphi подсчёт затраченного времени

[АлексаШка]

нужна функция , которая считает, сколько времени прошло от одного до другого момента.. кароч сколько времени человек считает задачу, вводит что-то и тд
Помню была какая-то функция в паскале, нашла, что называется она gettime(), хотя может ещё что-то было.. Но как выяснилось в дельфи она считает немного по другому.. нашла, как посчитать это время, если пишешь на форме в дельфи.. но я на консоли пишу (которая console application).. Вообщем вообще ужас.. Подскажите плиз

var tt: TDateTime;

tt:=Time;
<текст программы>
tt:=Time-tt;
writeln(tt);

так правильно будет?

вообщем считает так не правильно.. хотя суть вроде та...
можете что-нибудь предложить?)))

[Stilet]

так правильно будет?

А что мешает запустить делфи и проверить?

program Project1;

{$APPTYPE CONSOLE}

uses  dateutils,
  SysUtils;

var tt: TDateTime;
begin
tt:=Time;
 sleep(1000);
writeln(SecondsBetween(tt,time));
  { TODO -oUser -cConsole Main : Insert code here }
  readln;
end.

Здесь разница в секундах.

[АлексаШка]

Я ниже дописала.. Считает не правильно.. То есть я беру часы и тоже замеряю.. Чтобы хотя бы примерно понять, правильно или нет.. Вышло, что не правильно.
Как тогда сделать?

[Stilet]

Как тогда сделать?

Ну вот смотри мой пример.

[Скандербег]

Еще вариантик.

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils;

var
  T : Longint;
  I : Integer;
begin
  T := GetTickCount;
  for I := 0 to 50 do
    sleep(100);
  writeln(GetTickCount-T);
  ReadLn;
end;

GetTickCount возвращает время в миллисекундах с начала включения компьютера. Выражение GetTickCount - T даст относительное время выполнения куска кода. Тоже в мсек.
Нужно помнить, что винда не умеет вычислять время с большей точностью чем ~30-50 мсек.

[Serge_Bliznykov]

Сообщение от Stilet

Ну вот смотри мой пример.

позволю себе пояснить ответ Виталия на примере:

var tt: TDateTime;
...
  tt:=Now;
  <текст программы>
  writeln(SecondsBetween(tt,Now));

[АлексаШка]

Сообщение от Serge_Bliznykov

var tt: TDateTime;
...
  tt:=Now;
  <текст программы>
  writeln(SecondsBetween(tt,Now));

Ну у меня практически также.. Сейчас допишу остальной код и проверю) спасибо вам))