秒数转时分秒格式

jingyi11023995 · 发表于 2016-12-29 07:37:36

窗口程序集名	保留	保留	备注
程序集1

子程序名	返回值类型	公开	备注
_启动子程序	整数型		本子程序在程序启动后最先执行

测试 ()
返回 (0) ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备注
秒数转时分秒格式	文本型
参数名	类型	参考	可空	数组	备注
intTime	整数型

变量名	类型	静态	数组	备注
时	整数型
分	整数型
秒	整数型
时文本	文本型
分文本	文本型
秒文本	文本型

时＝到整数 (intTime ÷ 3600)
分＝到整数 ( (intTime －时 × 3600) ÷ 60)
秒＝到整数 (intTime －时 × 3600 －分 × 60)

判断 (时＜ 10)

时文本＝ “0” ＋到文本 (时)

时文本＝到文本 (时)

判断 (分＜ 10)

分文本＝ “0” ＋到文本 (分)

分文本＝到文本 (分)

判断 (秒＜ 10)

秒文本＝ “0” ＋到文本 (秒)

秒文本＝到文本 (秒)

返回 (时文本＋ “:” ＋分文本＋ “:” ＋秒文本)

子程序名	返回值类型	公开	备注
测试

变量名	类型	静态	数组	备注
n	整数型
i	整数型

n ＝ 120

计次循环首 (n, i)

调试输出 (秒数转时分秒格式 (i))

延时 (100)

计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

jingyi11023995 · 发表于 2020-7-9 20:00:30

本帖最后由 jingyi11023995 于 2020-7-9 20:22 编辑

相反的转换
VX截图_20200709195958.png

返回(0)改一下，改为：返回(-1)

jingyi11023995 · 发表于 2017-1-8 10:03:47

379061296 发表于 2017-1-8 08:48
你这样测试一下你的，没楼主的运算速度快，楼主的耗时200毫秒，你这个耗时600毫秒

[e=0].版本 2

谢谢支持，文本操作速度肯定比不上整数操作的。

379061296 · 发表于 2017-1-8 08:48:02

本帖最后由 379061296 于 2017-1-8 08:50 编辑

福仔发表于 2016-12-29 09:39

你这样测试一下你的，没楼主的运算速度快，楼主的耗时200毫秒，你这个耗时600毫秒

子程序名	返回值类型	公开	备注
测试

变量名	类型	静态	数组	备注
n	整数型
i	整数型
x	整数型

n ＝ 100000
x ＝取启动时间 ()

计次循环首 (n, i)

秒数转时分秒格式 (i)

计次循环尾 ()
调试输出 (取启动时间 () － x)

i支持库列表	支持库注释
spec	特殊功能支持库

jingyi11023995 · 发表于 2017-1-4 23:09:50

2446789312 发表于 2016-12-29 13:11
有没有.e的源码例子！这样还要复制！

第一行就有一个“复制代码”的按钮。

jingyi11023995 · 发表于 2017-1-4 23:07:16

福仔发表于 2016-12-29 09:40
[e=1]
.版本 2

是可以这样写的，但你有没有考虑到一点：如果超过99小时呢？

22shiji · 发表于 2016-12-30 01:52:24

学习学习谢谢分享

我叫落年 · 发表于 2016-12-29 19:34:45

感谢分享

2446789312 · 发表于 2016-12-29 13:11:04

有没有.e的源码例子！这样还要复制！

千玄 · 发表于 2016-12-29 13:05:24

感谢分享

易风雪 · 发表于 2016-12-29 11:18:40

看起来很强势啊

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

[易源码分享] 秒数转时分秒格式

评分

本帖被以下淘专辑推荐: