求一将秒转换成时间格式的函数！

sxgaobo · 发表于 2012-4-17 16:16:59

将若干秒转换成HH:NN:MM的格式，如80秒转换成0:01:20

yehf · 发表于 2012-4-17 16:48:46

Dim str
Dim h
Dim m
Dim s
str = 3610
h = Int(str / 3600)
m = (str / 60) Mod 60
s = str Mod 60
MsgBox Format(h, "00") & ":" & Format(m, "00") & ":" & Format(s, "00")

sxgaobo · 发表于 2012-4-19 21:16:53

{:soso_e179:}高手林立啊！！！谢谢~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

sxgaobo · 发表于 2012-4-17 17:02:08

{:soso_e179:}谢谢yehf ！！！

jj7769640 · 发表于 2012-4-18 11:23:40

谢谢你的楼主～～

zhuyiwen · 发表于 2012-4-19 02:59:33

可不可以这样

CDate(CDbl(#0:0:1#) * 输入的秒数)

复制代码

例如在立即窗口中执行：

?cdate(cdbl(#0:0:1#)*3685)

复制代码

得到：
1:01:25

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 求一将秒转换成时间格式的函数！

群介绍
主题无相 (随机显示版	同地区群块其他地区)