Board logo

标题: delphi中,请问如何转换成format时间格式? [打印本页]

作者: xiangxyx    时间: 2006-5-24 17:36     标题: delphi中,请问如何转换成format时间格式?

delphi中,请问如何转换成format时间格式?


var
  Form1: TForm1;
  EditTime : Integer = 7200;      //全局定义变量

implementation

procedure TForm1.Timer1Timer(Sender: TObject);
var
  h : Integer;
  m : Integer;
  s : Integer;
  NowTime : Integer;
  tt : String;
  tTime : String;
begin
  EditTime := EditTime - 1;

  NowTime := EditTime;
  h := NowTime div 3600;                 //将秒化成小时
  m := (NowTime - h * 3600) div 60;      //将秒化成分钟
  s := NowTime - h * 3600 - m * 60;      //将总的时间(秒)- 用去的时间(小时) - 用去的分钟(秒) = 现在的秒
  tt:= IntToStr(h) + ':' + IntToStr(m) + ':' + IntToStr(s);
  tTime := FormatDateTime('hh:nn:ss',StrToInt(tt));
  Label1.Caption :=  tTime;   //  IntToStr(h) + ':' + IntToStr(m) + ':' + IntToStr(s);
end;

这么写为何不能将tt时间(h:m:s)化成format格式(hh:nn:ss)的时间?
谢谢!




欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/) Powered by Discuz! 6.0.0