弄了一个秒数转化为天数的函数,也不知道有没有用

yanmo · 发表于 2019-12-11 15:51:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[按键精灵] 纯文本查看 复制代码

Function 秒数转换(秒数)
    Dim 天,时,分,秒
    天 = int(秒数 / 86400)
    时 = int((秒数 mod 86400)/3600)
    分 = int(((秒数 mod 86400) mod 3600)/60)
    秒 = (((秒数 mod 86400) mod 3600) mod 60)
    TracePrint 天 & "天" & 时 & "时" & 分 & "分" & 秒 & "秒"
End Function
Call 秒数转换(123456)

yanmo · 发表于 2019-12-11 15:52:12

pc的好像也可以用

		自动登录	找回密码
密码			立即注册

[教程源码] 弄了一个秒数转化为天数的函数,也不知道有没有用

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。