Godziny

0

Jak wykonać procedure xxx dokladnie o danej godzinie???--KrzysieQ

0

W tym celu musisz skorzystać z komponentu TTimer. Będzie on co sekunde sprawdzał, która jest godzina. Jeżeli będzie to np. 09.30 to wykona jakąś operacje.

procedure TForm1.TimerTimer(Sender: TObject);
var
Present : TDateTime;
Hour, Min, Sek, MSec : Word;
begin
Present := Now;
DecodeTime(Present, Hour, Min, Sek, MSec);
if (Hour = 09) and (Min = 31) and (Sek = 0) then
ShowMessage('Jest godz: 9.30'); { &lt- Uruchomi sie o godz. 9.31 }
end;

0

http://www.4programmers.net/view_faq.php?id=143
:P

--
Umiem troche, ale nie wszystko :) a na koncu i tak BLUE SCREEN

0

adaś napisał:
W tym celu musisz skorzystać z komponentu TTimer. Będzie on co sekunde sprawdzał, która jest godzina. Jeżeli będzie to np. 09.30 to wykona jakąś operacje.
&gt
&gtprocedure TForm1.TimerTimer(Sender: TObject);
&gtvar
&gt Present : TDateTime;
&gt Hour, Min, Sek, MSec : Word;
&gtbegin
&gt Present := Now;
&gt DecodeTime(Present, Hour, Min, Sek, MSec);
&gt if (Hour = 09) and (Min = 31) and (Sek = 0) then
&gt ShowMessage('Jest godz: 9.30'); { &lt- Uruchomi sie o godz. 9.31 }
&gtend;
dzieki a da sie do tego jeszce włączyć kalendrz tak by można było zaplanować aby w określonym dniu o określonej godzinie coś sie stalo?--KrzysieQ

0

adaś napisał:
W tym celu musisz skorzystać z komponentu TTimer. Będzie on co sekunde sprawdzał, która jest godzina. Jeżeli będzie to np. 09.30 to wykona jakąś operacje.
&gt
&gtprocedure TForm1.TimerTimer(Sender: TObject);
&gtvar
&gt Present : TDateTime;
&gt Hour, Min, Sek, MSec : Word;
&gtbegin
&gt Present := Now;
&gt DecodeTime(Present, Hour, Min, Sek, MSec);
&gt if (Hour = 09) and (Min = 31) and (Sek = 0) then
&gt ShowMessage('Jest godz: 9.30'); { &lt- Uruchomi sie o godz. 9.31 }
&gtend;
a jak zrobić to tak aby czas o której miała być wykonana procedura była pobrany kolejno godziny Edit1 minuty z Edit2 sekundy Edit3--KrzysieQ

1 użytkowników online, w tym zalogowanych: 0, gości: 1