数字转换成时间格式 ( 积分: 50 )

W

wh88

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-11

• #1

例如数字14515　转换成时间是12：05

算法是14515*3秒，再将秒换成时间格式。

请大侠帮忙做个函数。

 

W

wh88

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-11

• #2

例如数字14515　转换成时间是12：05

算法是14515*3秒，再将秒换成时间格式。

请大侠帮忙做个函数。

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-11

• #3

Procedure ConvertTime(AiData : Integer; Out AoHour, AoMin, AoSec : Integer);
Var
iSec : Integer;
Begin
iSec := AiData * 3;
AoSec := iSec Mod 60;
iSec := iSec Div 60;
AoMin := iSec Mod 60;
AoHour := iSec Div 60;
End;

procedure TForm1.Button1Click(Sender: TObject);
Var
iHour, iMin, iSec : Integer;
begin
ConvertTime(14515, iHour, iMin, iSec);
Edit1.Text := Format('%d:%d:%d', [iHour, iMin, iSec]);
end;

 

T

twos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-11

• #4

var
tmpDT: TDateTime;
tmpDT := ( value * 3 ) / 3600 / 24;
FormatDateTime( 'HH:NN:SS', tmpDT );

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-11

• #5

uses
DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
v_date:TDateTime;
begin
v_date:=0;
v_date:=IncSecond(v_date,60*3);
ShowMessage(FormatDateTime( 'HH:NN:SS', v_date));
end;

 

I

islet8

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-11

• #6

twos说的对极了

 

W

wh88

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-11

• #7

twos说的对极了