Время

← →
UVV © (2004-12-22 15:01) [0]

Как узнать, что наступило нужное время, скажем 00:00!
Желательно пример!

← →
Stanislav © (2004-12-22 15:09) [1]

TTimer
И на событие OnTimer проверять if time=0 then ...

← →
Alexander Panov © (2004-12-22 15:11) [2]

if FormatDateTime("hh:nn",now)= "00:00" then ...

← →
TUser © (2004-12-22 15:12) [3]

procedure Timer1OnTimer()
var i,k: integer;
f: boolean;
begin
i:=SecondsBetween(now,needtime);
k:=4048; f:=true;
while f and (k > 32) do
if i >= k then
k:=k shr 1
else f:=false;
if f then
k:=1
else k:=k*2;
Timer1.Interval:=k; // Надеюсь не напутал - смысл в том, чтобы ближе к дедлайну проверять почаще
if i = 0 then
do something
end;

end;

← →
UVV © (2004-12-22 15:15) [4]

Уточню вопрос, нужно каждый Новый Год выполнить определённую процедуру! Поэтому так часто проверять смысла нет!

← →
Stanislav © (2004-12-22 15:19) [5]

Таймер установи на 24*60*1000, и будешь проверять раз в день.

2 Alexander Panov
Да

Время Найти похожие ветки