Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.01.09;
Скачать: [xml.tar.bz2];

Вниз

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

 
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, и будешь проверять раз в день.


 
Alexander Panov ©   (2004-12-22 15:27) [6]

UVV ©   (22.12.04 15:15) [4]

У тебя что, программа работает 24/7/365 ?


 
Stanislav ©   (2004-12-22 15:33) [7]

Stanislav ©   (22.12.04 15:19) [5]

Т.е. 24*3600*1000


 
UVV ©   (2004-12-22 15:39) [8]

2 Alexander Panov
Да



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

Форум: "Основная";
Текущий архив: 2005.01.09;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.03 c
1-1103535409
Neznaika
2004-12-20 12:36
2005.01.09
Приоретет


1-1103714004
Автор333
2004-12-22 14:13
2005.01.09
Переход между компонентами?


1-1103623777
opel
2004-12-21 13:09
2005.01.09
как вставить символ в таблицу


14-1103712543
Beglec
2004-12-22 13:49
2005.01.09
Работоспособность форума.


3-1102576526
VadimKV
2004-12-09 10:15
2005.01.09
Откат группы изменений в БД





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский