编程开发论坛 - Powered by Discuz! Board

标题: 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/)