秒数转时分秒格式

jingyi11023995

  

窗口程序集名	保 留	保 留	备 注
程序集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	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 测试 ()<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 秒数转时分秒格式, 文本型<br /> .参数 intTime, 整数型<br /> .局部变量 时, 整数型<br /> .局部变量 分, 整数型<br /> .局部变量 秒, 整数型<br /> .局部变量 时文本, 文本型<br /> .局部变量 分文本, 文本型<br /> .局部变量 秒文本, 文本型<br /> <br /> 时 ＝ 到整数 (intTime ÷ 3600)<br /> 分 ＝ 到整数 ((intTime － 时 × 3600) ÷ 60)<br /> 秒 ＝ 到整数 (intTime － 时 × 3600 － 分 × 60)<br /> <br /> .判断开始 (时 ＜ 10)<br />     时文本 ＝ “0” ＋ 到文本 (时)<br /> .默认<br />     时文本 ＝ 到文本 (时)<br /> .判断结束<br /> <br /> .判断开始 (分 ＜ 10)<br />     分文本 ＝ “0” ＋ 到文本 (分)<br /> .默认<br />     分文本 ＝ 到文本 (分)<br /> .判断结束<br /> <br /> .判断开始 (秒 ＜ 10)<br />     秒文本 ＝ “0” ＋ 到文本 (秒)<br /> .默认<br />     秒文本 ＝ 到文本 (秒)<br /> .判断结束<br /> <br /> 返回 (时文本 ＋ “:” ＋ 分文本 ＋ “:” ＋ 秒文本)<br /> <br /> .子程序 测试<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> <br /> n ＝ 120<br /> .计次循环首 (n, i)<br />     调试输出 (秒数转时分秒格式 (i))<br />     延时 (100)<br /> .计次循环尾 ()

福仔

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

输出调试文本 (子程序1 (4444))

子程序名	返回值类型	公开	备 注
子程序1	文本型
参数名	类 型	参考	可空	数组	备 注
时间	整数型

变量名	类 型	静态	数组	备 注
局部_小时	文本型
局部_分钟	文本型
局部_秒	文本型

局部_小时 ＝ 取文本右边 (“0” ＋ 到文本 (时间 ＼ 60 ＼ 60), 2)
局部_分钟 ＝ 取文本右边 (“0” ＋ 到文本 (时间 ＼ 60 ％ 60), 2)
局部_秒 ＝ 取文本右边 (“0” ＋ 到文本 (时间 ％ 60), 2)
返回 (局部_小时 ＋ “:” ＋ 局部_分钟 ＋ “:” ＋ 局部_秒)

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 输出调试文本 (子程序1 (4444))<br /> <br /> .子程序 子程序1, 文本型<br /> .参数 时间, 整数型<br /> .局部变量 局部_小时, 文本型<br /> .局部变量 局部_分钟, 文本型<br /> .局部变量 局部_秒, 文本型<br /> <br /> 局部_小时 ＝ 取文本右边 (“0” ＋ 到文本 (时间 ＼ 60 ＼ 60), 2)<br /> 局部_分钟 ＝ 取文本右边 (“0” ＋ 到文本 (时间 ＼ 60 ％ 60), 2)<br /> 局部_秒 ＝ 取文本右边 (“0” ＋ 到文本 (时间 ％ 60), 2)<br /> 返回 (局部_小时 ＋ “:” ＋ 局部_分钟 ＋ “:” ＋ 局部_秒)

我感觉这样更精简

福仔

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

输出调试文本 (子程序1 (4444))

子程序名	返回值类型	公开	备 注
子程序1	文本型
参数名	类 型	参考	可空	数组	备 注
时间	整数型

变量名	类 型	静态	数组	备 注
局部_小时	文本型
局部_分钟	文本型
局部_秒	文本型

局部_小时 ＝ 取文本右边 (“0” ＋ 到文本 (时间 ＼ 60 ＼ 60), 2)
局部_分钟 ＝ 取文本右边 (“0” ＋ 到文本 (时间 ＼ 60 ％ 60), 2)
局部_秒 ＝ 取文本右边 (“0” ＋ 到文本 (时间 ％ 60), 2)
返回 (局部_小时 ＋ “:” ＋ 局部_分钟 ＋ “:” ＋ 局部_秒)

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 输出调试文本 (子程序1 (4444))<br /> <br /> .子程序 子程序1, 文本型<br /> .参数 时间, 整数型<br /> .局部变量 局部_小时, 文本型<br /> .局部变量 局部_分钟, 文本型<br /> .局部变量 局部_秒, 文本型<br /> <br /> 局部_小时 ＝ 取文本右边 (“0” ＋ 到文本 (时间 ＼ 60 ＼ 60), 2)<br /> 局部_分钟 ＝ 取文本右边 (“0” ＋ 到文本 (时间 ＼ 60 ％ 60), 2)<br /> 局部_秒 ＝ 取文本右边 (“0” ＋ 到文本 (时间 ％ 60), 2)<br /> 返回 (局部_小时 ＋ “:” ＋ 局部_分钟 ＋ “:” ＋ 局部_秒)

我感觉这样更精简

xintian

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

沙发坐了，板凳也要坐啊.大神技术就是硬。膜拜大神。大神写的太高级，不是辣么容易看懂，需要仔细琢磨。楼主的写的比较让人一看就懂。

易风雪

看起来很强势啊

千玄

感谢分享

2446789312

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

我叫落年

感谢分享

22shiji

学习学习 谢谢分享

jingyi11023995

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

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