Разница во времени

← →
XsID © (2003-12-16 23:16) [0]

Прошу помочь. Получаю начальное и конечное время GetSystemTime(start) GetSystemTime(finish)... а как найти разницу? Есть ли какая нибудь функция? что-то вроде
delta:=DeltaTime(start,finish)
просто самому вічитать как
min:=finish.wMinute-start.wMinute не красиво... еще же надо учесть заем из старших разрядов времени... сильно громоздко смотрится.

← →
Dimaxx © (2003-12-17 01:31) [1]

Возьми GetTickCount до и после выполнения операций. Разница будет в миллисекундах.

← →
mfender © (2003-12-17 05:43) [2]

Я думаю, если разница интересует в пределах суток, то можно так:
function GetTime: TDateTime; var Form1: TForm1; Start: Double; implementation procedure TForm1.FormCreate(Sender: TObject); begin Start:=GetTime; //Это стартовое время, от которого и пляшем end; procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption:=FormatDateTime("hh:nn:ss", GetTime-Start); //Смотрим разницу во времени (по таймеру, конечно). end; function TForm1.GetTime: TDateTime; //Здесь вычисляем текущее время var ST: TSYSTEMTIME; begin GetSystemTime(ST); Result:=SystemTimeToDateTime(ST); end;

← →
Piople © (2003-12-17 06:50) [3]

Можно еще перевети все в секунды. Найти разницу во времяни (отнять получишиеся секунды друг от друга) и перевести все потом обратно в часы, минуты и секунды

← →
Бушин Сергей © (2003-12-17 07:24) [4]

Имеются подобные функции в DateUtils, только не знаю есть ли они в 6:

XXXSpan
XXXBetween

где XXX могут быть Day, Hour, Minute и т.д.

Date3:=TimeStampToDateTime(MSecsToTimeStamp(
TimeStampToMSecs(DateTimeToTimeStamp(Date1))-
TimeStampToMSecs(DateTimeToTimeStamp(Date2))));

← →
xli (2003-12-17 10:46) [6]

а можно еще использовать RDTSC, правда что делать с полученным кол-вом тактов процессора, решать уж каждому для себя

Разница во времени Найти похожие ветки