Главная страница
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.016 c
7-6811
GrBob
2003-02-07 21:07
2003.04.03
Запрет доступа к часам?


1-6564
[BAD]Angel
2003-03-19 20:13
2003.04.03
Как сделать любое окно виндовс onTOP?


14-6683
Soft
2003-03-18 11:44
2003.04.03
Отображение дампа памяти


1-6461
cult
2003-03-24 12:09
2003.04.03
Сохранение контента RichEdit


7-6804
Esc
2003-02-09 13:32
2003.04.03
Свой сервис win2k