function ConvertTimeToTimestr（..）
var..
begin
.
.
.
end;
delphi //转化时间为时间串例如: 72秒 ==>> '00:01:12.000' 帮忙写一个function
答案:2 悬赏:0 手机版
解决时间 2021-03-09 08:52
- 提问者网友：我们很暧昧
- 2021-03-09 01:48
最佳答案
- 五星知识达人网友：等灯
- 2021-03-09 02:16
function ConvertTimeToTimestr（SS）
var
H,M,M1,S:int;
begin
if SS>60 //秒数是否大于60
begin
S:=SS mod 60;//区余秒。
M:=SS div 60;//取得分。
if M>60
begin
M1:=M mod 60;
H:=M div 60;
result:=Format('%.2d',[H])+':'+Format('%.2d',[M])+':'+Format('%.2d',[S])+'.000';
end
else
result:='00:'+Format('%.2d',[M])+':'+Format('%.2d',[S])+'.000';
end
else
result:='00:00:'+Format('%.2d',[SS])+'.000';
end;
var
H,M,M1,S:int;
begin
if SS>60 //秒数是否大于60
begin
S:=SS mod 60;//区余秒。
M:=SS div 60;//取得分。
if M>60
begin
M1:=M mod 60;
H:=M div 60;
result:=Format('%.2d',[H])+':'+Format('%.2d',[M])+':'+Format('%.2d',[S])+'.000';
end
else
result:='00:'+Format('%.2d',[M])+':'+Format('%.2d',[S])+'.000';
end
else
result:='00:00:'+Format('%.2d',[SS])+'.000';
end;
全部回答
- 1楼网友：孤独入客枕
- 2021-03-09 02:37
可以私聊我~
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯