每当时间分钟为5时就执行一次代码解决思路
每当时间分钟为5时就执行一次代码
比如:
如何让以上代码 每当当前时间分钟为5时就执行一次?
------解决方案--------------------
加一个周期为10秒的定时器,触发时 判断当前时间是不是分钟为5,上次执行时间与它是否不同,
不同则:执行,且把上次执行时间改为它
------解决方案--------------------
http://blog.****.net/asce1885/article/details/5746521
直接设置绝对时间来进行等待。
------解决方案--------------------
添加一个timer时钟,interval设置成300000。
在ontimer事件里写如下代码:
begin
Label1.Caption := '你好';
end;
------解决方案--------------------
规律 5,10,15,20,25,30,25,40,45...
时间判断,能被5整除,但是不能被10整除。
------解决方案--------------------
抱歉理解错,有函数,TimetoStr(now);可得到一个关于时间的字符串,从中分离出分钟数就可以,再结合Timer……
------解决方案--------------------
LZ的要求不是“当前时间分钟为5时就执行一次? ”,那#3的代码成立的前提是从某个分钟数为5的时间开始计时。
------解决方案--------------------
貌似LZ的意思是 当前分钟为5的时候,即5,15,25,35,55 的时候,此时时间执行。
------解决方案--------------------
定时器,每多少秒,就触发一次,
比如:
procedure TForm1.Button3Click(Sender: TObject);
begin
Label1.Caption := '你好';
end;
如何让以上代码 每当当前时间分钟为5时就执行一次?
------解决方案--------------------
加一个周期为10秒的定时器,触发时 判断当前时间是不是分钟为5,上次执行时间与它是否不同,
不同则:执行,且把上次执行时间改为它
------解决方案--------------------
http://blog.****.net/asce1885/article/details/5746521
直接设置绝对时间来进行等待。
------解决方案--------------------
添加一个timer时钟,interval设置成300000。
在ontimer事件里写如下代码:
begin
Label1.Caption := '你好';
end;
------解决方案--------------------
规律 5,10,15,20,25,30,25,40,45...
时间判断,能被5整除,但是不能被10整除。
//uses DataUtils
var
t: Word;
begin
t := DateUtils.MinuteOf(Now);
// t := DateUtils.SecondOf(Now); //以秒来测试
if (t mod 5 = 0) and (t mod 10 <> 0) then //以被5整除,且不能被10整除。
OutputDebugString(PWideChar(IntToStr(t)));
------解决方案--------------------
抱歉理解错,有函数,TimetoStr(now);可得到一个关于时间的字符串,从中分离出分钟数就可以,再结合Timer……
------解决方案--------------------
LZ的要求不是“当前时间分钟为5时就执行一次? ”,那#3的代码成立的前提是从某个分钟数为5的时间开始计时。
------解决方案--------------------
貌似LZ的意思是 当前分钟为5的时候,即5,15,25,35,55 的时候,此时时间执行。
------解决方案--------------------
定时器,每多少秒,就触发一次,