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

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.03 c
14-1103667264
vecna
2004-12-22 01:14
2005.01.09
в продолжении темы профи/не профи...


3-1102576945
Helen
2004-12-09 10:22
2005.01.09
Работа с dBASE


3-1102661653
moor38
2004-12-10 09:54
2005.01.09
Excel в Paradox 7


14-1103455952
Cerberus
2004-12-19 14:32
2005.01.09
Самарцам


1-1103739456
Shamansky
2004-12-22 21:17
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский