(语法问题自己处理) lastrq,lastrq2 : longint;function today:longint; 取当前日期 function now:integer; 取当前时间 可将6:30转换为 630处理Timer() begin rq:=today; if rq<>lastrq1 and now>6:30 begin lastrq1=rq; //execute other end; if rq<>lastrq2 and now>18:30 begin lastrq2=rq; //execute other end;
surfguy(冲浪小子) 你们说的方法怎么实现啊,有代码吗,[email protected],谁有简单的代码啊
lastrq,lastrq2 : longint;function today:longint; 取当前日期
function now:integer; 取当前时间 可将6:30转换为 630处理Timer()
begin
rq:=today;
if rq<>lastrq1 and now>6:30
begin
lastrq1=rq;
//execute other
end;
if rq<>lastrq2 and now>18:30
begin
lastrq2=rq;
//execute other
end;
end;