timer控件！

Question

我想让计时器在每个小时的第十分钟去完成某事，请问：ontimer的语句怎么写

Answer 1

uses   DateUtils; 
if MinuteOfTheHour(now)=10 then
begin.....
end;

Answer 2

Timer.Interval := 1000;
...
{OnTimer}
if FormatDateTime('nnss',Now)='1000' then
   DoSomeThing;

Answer 3

FormatDateTime
nnss什么意思.?
\\
procedure   TForm1.Timer1Timer(Sender:   TObject);   
  var   
        NowTime:string;   
  begin   
        NowTime   :=   FormatDateTime('hh:mm:ss',Now);   
        if   Pos(':00:00',NowTime)>0   then   
        begin   
        showmessage('hello');   
    
        end;   
  end;
这是在网上找的一个例子,测试时有时好用有时不好用,有谁能解释一下吗...

Answer 4

"nnss"当中的"nn"表示两位数字表示的分钟.