Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]秒转为时间（已解决）


  共有3277人关注过本帖平板打印复制链接

主题：[求助]秒转为时间（已解决）
帅哥哟，离线，有人找我吗？
yyzlxc
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00 		[求助]秒转为时间（已解决）  发帖心情 Post By：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编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.02734 秒, 5 次数据查询