时间_取时间间隔 - 精易论坛

子程序名	返回值类型	公开	备注
时间_取时间间隔	文本型		返回一个文本，表示“时间1”减去“时间2”之后间隔的天，时，分，秒。返回示例：3天13时56分27秒
参数名	类型	参考	可空	数组	备注
时间1	日期时间型
时间2	日期时间型

变量名	类型	静态	数组	备注
剩余秒数A	整数型
剩余秒数B	整数型
剩余天	整数型
剩余小时	整数型
剩余分钟	整数型
剩余秒	整数型
返回时间	文本型

' 源码出处：[url]https://125.confly.eu.org/thread-14315424-1-1.html[/url]
剩余秒数A ＝取时间间隔 (时间1, 时间2, 8)

如果真 (剩余秒数A ≤ 0)

返回时间＝ “-”

如果真 (剩余秒数A ＜ 0)

剩余秒数A ＝剩余秒数A × -1
剩余秒数B ＝剩余秒数A ％ 86400
剩余天＝ (剩余秒数A －剩余秒数B) ÷ 86400
剩余秒数A ＝剩余秒数B
剩余秒数B ＝剩余秒数A ％ 3600
剩余小时＝ (剩余秒数A －剩余秒数B) ÷ 3600
剩余秒数A ＝剩余秒数B
剩余秒数B ＝剩余秒数A ％ 60
剩余分钟＝ (剩余秒数A －剩余秒数B) ÷ 60
剩余秒＝剩余秒数B

如果真 (剩余天 ≠ 0)

返回时间＝返回时间＋到文本 (剩余天) ＋ “天”

如果真 (剩余小时 ≠ 0)

返回时间＝返回时间＋到文本 (剩余小时) ＋ “时”

如果真 (剩余分钟 ≠ 0)

返回时间＝返回时间＋到文本 (剩余分钟) ＋ “分”

如果真 (剩余秒 ≠ 0)

返回时间＝返回时间＋到文本 (剩余秒) ＋ “秒”
返回 (返回时间)

.版本 2<br />
<br />
.子程序 时间_取时间间隔, 文本型, 公开, 返回一个文本，表示“时间1”减去“时间2”之后间隔的天，时，分，秒。返回示例：3天13时56分27秒<br />
.参数 时间1, 日期时间型<br />
.参数 时间2, 日期时间型<br />
.局部变量 剩余秒数A, 整数型<br />
.局部变量 剩余秒数B, 整数型<br />
.局部变量 剩余天, 整数型<br />
.局部变量 剩余小时, 整数型<br />
.局部变量 剩余分钟, 整数型<br />
.局部变量 剩余秒, 整数型<br />
.局部变量 返回时间, 文本型<br />
<br />
' 源码出处：<a href="https://125.confly.eu.org/thread-14315424-1-1.html" target="_blank">https://125.confly.eu.org/thread-14315424-1-1.html</a><br />
剩余秒数A ＝ 取时间间隔 (时间1, 时间2, 8)<br />
.如果真 (剩余秒数A ≤ 0)<br />
    返回时间 ＝ “-”<br />
.如果真结束<br />
.如果真 (剩余秒数A ＜ 0)<br />
    剩余秒数A ＝ 剩余秒数A × -1<br />
.如果真结束<br />
剩余秒数B ＝ 剩余秒数A ％ 86400<br />
剩余天 ＝ (剩余秒数A － 剩余秒数B) ÷ 86400<br />
剩余秒数A ＝ 剩余秒数B<br />
剩余秒数B ＝ 剩余秒数A ％ 3600<br />
剩余小时 ＝ (剩余秒数A － 剩余秒数B) ÷ 3600<br />
剩余秒数A ＝ 剩余秒数B<br />
剩余秒数B ＝ 剩余秒数A ％ 60<br />
剩余分钟 ＝ (剩余秒数A － 剩余秒数B) ÷ 60<br />
剩余秒 ＝ 剩余秒数B<br />
.如果真 (剩余天 ≠ 0)<br />
    返回时间 ＝ 返回时间 ＋ 到文本 (剩余天) ＋ “天”<br />
.如果真结束<br />
.如果真 (剩余小时 ≠ 0)<br />
    返回时间 ＝ 返回时间 ＋ 到文本 (剩余小时) ＋ “时”<br />
.如果真结束<br />
.如果真 (剩余分钟 ≠ 0)<br />
    返回时间 ＝ 返回时间 ＋ 到文本 (剩余分钟) ＋ “分”<br />
.如果真结束<br />
.如果真 (剩余秒 ≠ 0)<br />
    返回时间 ＝ 返回时间 ＋ 到文本 (剩余秒) ＋ “秒”<br />
.如果真结束<br />
返回 (返回时间)