Текущий архив: 2003.12.30;
Скачать: 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 вся ветка
Текущий архив: 2003.12.30;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.021 c
