- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]秒转为时间（已解决） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57494)
-- 发布时间：2014/9/25 16:05:00
-- [求助]秒转为时间（已解决）
论坛上一段秒转换代码，好像有误！求正解，请各位老师指教。谢谢！
Dim N,h,m,s As Integer
Dim sj As Date
N = 5
h = N \\ 3600
m = (N Mod 3600) \\ 60
s = N Mod 360
sj = Format(new Date(1,1,1,h,m,s), "hh:mm:ss")
MessageBox.Show(sj)
此主题相关图片如下：捕获.jpg
Dim N,h,m,s As Integer
Dim sj As Date
N = 555
h = N \\ 3600
m = (N Mod 3600) \\ 60
s = N Mod 360
sj = Format(new Date(1,1,1,h,m,s), "hh:mm:ss")
MessageBox.Show(sj)
此主题相关图片如下：捕获2.jpg
[此贴子已经被作者于2014-9-25 16:26:29编辑过]
-- 发布时间：2014/9/25 16:09:00
--
测试正常
Dim N,h,m,s As Integer
Dim sj As Date
N = 555
h = N \\ 3600
m = (N Mod 3600) \\ 60
s = N Mod 60
sj = Format(new Date(1,1,1,h,m,s), "HH:mm:ss")
MessageBox.Show(sj)
[此贴子已经被作者于2014-9-25 16:10:32编辑过]
-- 发布时间：2014/9/25 16:11:00
--
简单改一下
Dim N,h,m,s As Integer
Dim sj As Date
N = 555
h = N \\ 3600
m = (N Mod 3600) \\ 60
s = N Mod 60
sj = Format(new Date(1,1,1,h,m,s), "HH:mm:ss")
MessageBox.Show(sj)
-- 发布时间：2014/9/25 16:16:00
--
谢谢甜老师的指教，小时应该用“HH”。那么大于60秒，会报错，如何解决，还请指教，谢谢！！
-- 发布时间：2014/9/25 16:18:00
--
Dim N,h,m,s As Integer
Dim sj As Date
N = 555
h = N \\ 3600
m = (N Mod 3600) \\ 60
s = N Mod 60
sj = Format(new Date(1,1,1,h,m,s), "HH:mm:ss")
MessageBox.Show(sj)
-- 发布时间：2014/9/25 16:26:00
--
谢谢甜老师的指教，问题解决了，再次衷心感谢！！