如何用timer设置固定时间执行事件(小问题)(20分)

Z

zz770813

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-07

• #1

如何用timer设置固定时间执行事件,例如:8:30,执行一次,11:30,执行一次,13:30,17:30..............

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-07

• #2

var
Present: TDateTime;
Hour, Min, Sec, MSec: Word;
BEGIN
Present:= Now;
DecodeTime(Present, Hour, Min, Sec, MSec);
if Hour>17 then
begin
close;
end;
END;

 

怡

怡.梦

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-07

• #3

procedure TmainForm.Timer2Timer(Sender: TObject);
begin
aa:=formatdatetime('hh:mm:ss',now) ;
if aa=xx or aa=xxx then
begin
//事件
end;
end;

 

B

bjdribllec

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-07

• #4

var mh:byte;

// Timer1.InterVal in [50..59000]
procedure Timer1OnTimer();
var sh:byte;
begin
if (MinuteOf(Time)=30) then begin
sh:=HourOf(Time);
if (sh in [8,11,13,17])and(mh<>sh) then begin
mh:=sh;
// your codes
end;
end;
end;

 

Z

zz770813

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-07

• #5

多人接受答案了。