Скачать: CL | DM;

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

← →
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 и т.д.

---

← →
Aleksey ©   (2003-12-17 07:48) [5]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c