安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access将秒数转化为时分秒00:00:00的格式

2017-12-29 16:46:00
Trynew
转贴
923

有时我们在其他软件中导出得到一串秒数。希望把改秒数转化为时分秒00:00:00的格式

这里需要自定义一个函数去转换

Function SecToTime(dblSecond As Double) As String
    SecToTime = Format((Int(dblSecond) / 60 / 60 / 24), "HH:MM:SS")
    If Int(dblSecond) <> dblSecond Then SecToTime = SecToTime & Round(dblSecond - Int(dblSecond), 2)
    SecToTime = IIf(Left(SecToTime, 6) = "00:00:", Mid(SecToTime, 7), IIf(Left(SecToTime, 3) = "00:", Mid(SecToTime, 4), SecToTime))
End Function



在窗体中调用该函数

Private Sub Command4_Click()
    Me.Text2 = SecToTime(Me.Text0)
End Sub



效果图:

    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:8.00MB
    PHP 执行时间:0.2
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
    招财锦鲤纹身手稿腿部 热力宝石彩金 葫芦兄弟高清壁纸 疯狂维京海盗游戏 灵猴献瑞紫砂壶 圣诞奇迹官网 重庆时时彩计划178 五骑士游戏 幸运飞艇pk10开奖记录 印加祖玛弹珠游戏