rt!

解决方案 »

  1.   

    var
    a,b,c:integer;
    ss:longint;begin
    ss:=.....(为要变化的秒数)
    a:=ss div 3600;
    b:=(ss-ss div 3600 *3600) div 60;
    c:=ss mod 60;此时,a,b,c就是hh ,nn ,ss
      

  2.   

    formatDatetime('hh:mm:ss',now());
      

  3.   

    var
    a,b,c:integer;
    ss:longint;
    time:string;
    begin
    ss:=.....(为要变化的秒数)
    a:=ss div 3600;
    b:=(ss-ss div 3600 *3600) div 60;
    c:=ss mod 60;
    time=inttostr(a)+":"+inttostr(b)+":"+inttostr(c)