Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.03;
Скачать: CL | DM;

Вниз

time ++   Найти похожие ветки 

 
race1 ©   (2003-03-24 14:00) [0]

получил проц-ой Time текущее время. как бы теперь к этому времени приплюсовать несколько секунд? пробовал так:


var
dt, dt1: TDateTime;
begin
dt := Time;
dt1 := dt + 0,00001


ко времени прибавляется секунда. но если попробовать прибавить число больше 0.00004, то наблюдаются глюки, а именно - приплюсовывается не 5, 6, 7 и т.д. секунд, а какое-то произвольное число...


 
Anatoly Podgoretsky ©   (2003-03-24 14:05) [1]

В сутках 86400 секунд, теперь наверно сможешь вычислить чему равна одна секунда.


 
KoluChi ©   (2003-03-24 14:12) [2]

DateTimeToTimeStamp()
TimeStampToMSecs()+N
MSecsToTimeStamp()
TimeStampToDateTime()

или

DecodeTime()
EncodeTime()


 
Smithson ©   (2003-03-24 14:19) [3]

одна секунда = 1/86400, поскольку целые составляющие в TDateTime есть дни.


 
Vadim_K   (2003-03-24 14:23) [4]

Дорогой коллега!
Глюки происходят от того, что Вы почему-то решили, что 0,00001 = 1 сек. На самом деле единица измерения чисел в формате TDateTime - это сутки, значит одна секунда составит:
1/24/3600 = 1,157407...e-5. При задаче точного значения никаких глюков не бывает!

Var s:Double;
dt, dt1: TDateTime;
begin
dt := Time;
S:=1/24/3600;
dt1 := dt + S*7 ;
Label1.Caption:=TimeToStr(dT1-Dt);


 
REA ©   (2003-03-24 15:05) [5]

D7, DateUtils:

function IncSecond(const AValue: TDateTime;
const ANumberOfSeconds: Int64): TDateTime;
begin
Result := ((AValue * SecsPerDay) + ANumberOfSeconds) / SecsPerDay;
end;


 
spogi   (2003-03-24 23:43) [6]

samiy lucshiy sposob DecodeTime() [EncodeTime()]
zadaesh:
var H,M,Sec,MSec:Word

DecodeTime(Now,H,M,Sec,MSec);
//Potom gde to zdes
Sec:=Sec+5; //dobavim 5 sekundov

EncodeTime() naoborot, tipa kompliruet time...



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

Текущий архив: 2003.04.03;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-6556
Rus
2003-03-20 18:14
2003.04.03
Как заполнить произвольную фигуру картинкой?


3-6379
MAXX_MAIL
2003-03-14 21:16
2003.04.03
DBGrid


7-6832
_MAD_
2003-02-07 21:33
2003.04.03
WebCam


14-6774
Вячеслав
2003-03-17 17:02
2003.04.03
Репозиторий?


7-6807
crazyprogman
2003-02-10 02:23
2003.04.03
LIstView