改进 时间_秒到时分秒格式

shituo

  

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

变量名	类 型	静态	数组	备 注
局_临时时间	整数型
局_返回时间	文本型
秒数	整数型

' 例程来自： [url=https://bbs.125.la/thread-14345691-1-1.html]https://bbs.125.la/thread-14345691-1-1.html[/url]
秒数 ＝ 参数_总秒数
如果真 (参数_总秒数 ≥ 31536000)  ' 一年的秒数
局_临时时间 ＝ 秒数 ＼ 31536000  ' 31104000 31536000
秒数 ＝ 秒数 － 局_临时时间 × 31536000
局_返回时间 ＝ 到文本 (局_临时时间) ＋ “年”
如果真 (参数_总秒数 ≥ 2592000)
局_临时时间 ＝ 秒数 ＼ 2592000  ' 2592000
秒数 ＝ 秒数 － 局_临时时间 × 2592000
局_返回时间 ＝ 局_返回时间 ＋ 到文本 (局_临时时间) ＋ “月”
如果真 (参数_总秒数 ≥ 86400)  ' 86400
局_临时时间 ＝ 秒数 ＼ 86400
秒数 ＝ 秒数 － 局_临时时间
局_返回时间 ＝ 局_返回时间 ＋ 到文本 (局_临时时间) ＋ “日”
如果真 (参数_总秒数 ≥ 3600)  ' 3600
局_临时时间 ＝ 秒数 ＼ 3600
秒数 ＝ 秒数 － 局_临时时间 × 3600
局_返回时间 ＝ 局_返回时间 ＋ 到文本 (局_临时时间) ＋ “时”
如果真 (参数_总秒数 ≥ 60)
局_临时时间 ＝ 秒数 ＼ 60
秒数 ＝ 秒数 － 局_临时时间 × 60
局_返回时间 ＝ 局_返回时间 ＋ 到文本 (局_临时时间) ＋ “分”
' 局_秒 ＝ 秒数
' 局_返回秒 ＝ 文本_自动补零 (到文本 (局_秒), 2)
局_返回时间 ＝ 局_返回时间 ＋ 到文本 (秒数) ＋ “秒”
返回 (局_返回时间)

.版本 2<br /> <br /> .子程序 时间_秒到时间格式, 文本型, 公开, 秒到时分秒格式<br /> .参数 参数_总秒数, 整数型<br /> .局部变量 局_临时时间, 整数型<br /> .局部变量 局_返回时间, 文本型<br /> .局部变量 秒数, 整数型<br /> <br /> ' 例程来自： <a href="https://bbs.125.la/thread-14345691-1-1.html" target="_blank">https://bbs.125.la/thread-14345691-1-1.html</a><br /> 秒数 ＝ 参数_总秒数<br /> .如果真 (参数_总秒数 ≥ 31536000)  ' 一年的秒数<br />     局_临时时间 ＝ 秒数 ＼ 31536000  ' 31104000 31536000<br />     秒数 ＝ 秒数 － 局_临时时间 × 31536000<br />     局_返回时间 ＝ 到文本 (局_临时时间) ＋ “年”<br /> .如果真结束<br /> .如果真 (参数_总秒数 ≥ 2592000)<br />     局_临时时间 ＝ 秒数 ＼ 2592000  ' 2592000<br />     秒数 ＝ 秒数 － 局_临时时间 × 2592000<br />     局_返回时间 ＝ 局_返回时间 ＋ 到文本 (局_临时时间) ＋ “月”<br /> .如果真结束<br /> .如果真 (参数_总秒数 ≥ 86400)  ' 86400<br />     局_临时时间 ＝ 秒数 ＼ 86400<br />     秒数 ＝ 秒数 － 局_临时时间<br />     局_返回时间 ＝ 局_返回时间 ＋ 到文本 (局_临时时间) ＋ “日”<br /> .如果真结束<br /> .如果真 (参数_总秒数 ≥ 3600)  ' 3600<br />     局_临时时间 ＝ 秒数 ＼ 3600<br />     秒数 ＝ 秒数 － 局_临时时间 × 3600<br />     局_返回时间 ＝ 局_返回时间 ＋ 到文本 (局_临时时间) ＋ “时”<br /> .如果真结束<br /> .如果真 (参数_总秒数 ≥ 60)<br />     局_临时时间 ＝ 秒数 ＼ 60<br />     秒数 ＝ 秒数 － 局_临时时间 × 60<br />     局_返回时间 ＝ 局_返回时间 ＋ 到文本 (局_临时时间) ＋ “分”<br /> .如果真结束<br /> ' 局_秒 ＝ 秒数<br /> ' 局_返回秒 ＝ 文本_自动补零 (到文本 (局_秒), 2)<br /> 局_返回时间 ＝ 局_返回时间 ＋ 到文本 (秒数) ＋ “秒”<br /> 返回 (局_返回时间)

1.减少计算时间
2.减少变量的声明时间 一般变量越少程序运行速度越快
3.优化代码 一年按365天计算4.去掉时分秒补0，感觉没有必要

我觉得应该提高代码质量 ！

hanliguo115

你这个到整数是多余的 你变量是整数型的 他会自动转换的

项目部004

不是很准确！再说了，这个命令是秒到时分秒，年月基本算多余的，所以我觉得应该是这样才对！

  

子程序名	返回值类型	公开	备 注
时间_秒到时分秒格式	文本型		几天几小时几分几秒
参数名	类 型	参考	可空	数组	备 注
参_秒	整数型

变量名	类 型	静态	数组	备 注
局_天	整数型
局_小时	整数型
局_分	整数型
局_秒	整数型

局_秒 ＝ 参_秒
局_天 ＝ 到整数 (局_秒 ÷ 86400)
局_小时 ＝ 到整数 ( (局_秒 ％ 86400) ÷ 3600)
局_分 ＝ 到整数 ( (局_秒 ％ 86400 ％ 3600) ÷ 60)
局_秒 ＝ 局_秒 ％ 86400 ％ 3600 ％ 60
返回 (到文本 (局_天) ＋ “天” ＋ 到文本 (局_小时) ＋ “小时” ＋ 到文本 (局_分) ＋ “分” ＋ 到文本 (局_秒) ＋ “秒”)

.子程序 时间_秒到时分秒格式, 文本型, 公开, 几天几小时几分几秒<br /> .参数 参_秒, 整数型<br /> .局部变量 局_天, 整数型<br /> .局部变量 局_小时, 整数型<br /> .局部变量 局_分, 整数型<br /> .局部变量 局_秒, 整数型<br /> 局_秒 ＝ 参_秒<br /> 局_天 ＝ 到整数 (局_秒 ÷ 86400)<br /> 局_小时 ＝ 到整数 ((局_秒 ％ 86400) ÷ 3600)<br /> 局_分 ＝ 到整数 ((局_秒 ％ 86400 ％ 3600) ÷ 60)<br /> 局_秒 ＝ 局_秒 ％ 86400 ％ 3600 ％ 60<br /> 返回 (到文本 (局_天) ＋ “天” ＋ 到文本 (局_小时) ＋ “小时” ＋ 到文本 (局_分) ＋ “分” ＋ 到文本 (局_秒) ＋ “秒”)