怎样将毫秒转成时，分，秒的形式？(50分)

Y

yong2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-01

• #1

比如123456毫秒转换成xx小时xx分xx秒的形式,最好能给例子。

 

L

liuwen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-01

• #2

定义一个函数，用除以60的余数作为参数重新跌代。

 

L

leezero

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-01

• #3

同意

 

Y

yeath

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-01

• #4

兄弟用这个，下面是代码：
procedure TForm1.Button1Click(Sender: TObject);
var
d:integer;
t:TTime;
begin
d := 3710000;
t := encodetime(d div 3600000,(d mod 3600000) div 60000,((d mod 3600000) mod 60000) div 1000,((d mod 3600000) mod 60000) mod 1000);
showmessage(TimeToStr(t));
end;

 

Y

yong2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-01

• #5

接受答案了.