一个关于计算时间的简单问题

曼巴精神8

获取当前的时间   并且计算出距离下一个完整的15分钟的还有多少秒     

比如当前程序执行的时间是 8:12:06   那么下一个完整的15分钟是 8:15:00  那么时间差就是 174秒（3分钟-6秒）

比如当前程序执行的时间是 8:16:12   那么下一个完整的15分钟是 8:30:00  那么时间差就是 228秒（4分钟-12秒）

fireandice

  

子程序名	返回值类型	公开	备 注
剩余秒数	整数型

变量名	类 型	静态	数组	备 注
时间	日期时间型

时间 ＝ 取现行时间 ()
返回 (900 － 取秒 (时间) ��� (取分钟 (时间) ％ 15) × 60)

.版本 2<br /> <br /> .子程序 剩余秒数, 整数型<br /> .局部变量 时间, 日期时间型<br /> <br /> 时间 ＝ 取现行时间 ()<br /> 返回 (900 － 取秒 (时间) － (取分钟 (时间) ％ 15) × 60)

补充内容 (2025-7-16 09:02):
.版本 2

.子程序 剩余秒数, 整数型
.局部变量 时间, 日期时间型

时间 ＝ 取现行时间 ()
返回 (900 － 取秒 (时间) － (取分钟 (时间) ％ 15) × 60)

fireandice

  

子程序名	返回值类型	公开	备 注
剩余秒数	整数型
参数名	类 型	参考	可空	数组	备 注
分钟	整数型
秒数	整数型

返回 (900 － 秒数 － 分钟 × 60)

.版本 2<br /> <br /> .子程序 剩余秒数, 整数型<br /> .参数 分钟, 整数型<br /> .参数 秒数, 整数型<br /> <br /> 返回 (900 － 秒数 － 分钟 × 60)

补充内容 (2025-7-16 08:47):
返回 (900 － 秒数 － (分钟 ％ 15) × 60)

曼巴精神8

fireandice 发表于 2025-7-16 08:43
[e=0].版本 2

.子程序 剩余秒数, 整数型

参数怎么搞 易语言当前的分钟秒数  求来个完整的

designer

  

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

变量名	类 型	静态	数组	备 注
nowDate_	日期时间型
startDateTime_	长整数型			开始时间
endDateTime_	长整数型			结束时间
curMin_	整数型			当前分钟
curSecond_	整数型			当前秒
nextMin_	整数型

nowDate_ ＝ 取现行时间 ()
startDateTime_ ＝ 到长整数 (时间_到时间戳 (nowDate_, 真, 真))
curMin_ ＝ 取分钟 (nowDate_)
curSecond_ ＝ 取秒 (nowDate_)
nextMin_ ＝ curMin_
循环判断首 ()
nextMin_ ＝ nextMin_ ＋ 1
nowDate_ ＝ 增减时间 (nowDate_, 7, 1)
循环判断尾 (nextMin_ ％ 15 ≠ 0)
nowDate_ ＝ 增减时间 (nowDate_, 8, －curSecond_)
endDateTime_ ＝ 到长整数 (时间_到时间戳 (nowDate_, 真, 真))
调试输出 (“开始时间=>” ＋ 时间_时间戳转文本 (到文本 (startDateTime_) ＋ “000”))
调试输出 (“结束时间=>” ＋ 时间_时间戳转文本 (到文本 (endDateTime_) ＋ “000”))
调试输出 (“相差秒时间=>” ＋ 到文本 (endDateTime_ － startDateTime_))

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 test3<br /> .局部变量 nowDate_, 日期时间型<br /> .局部变量 startDateTime_, 长整数型, , , 开始时间<br /> .局部变量 endDateTime_, 长整数型, , , 结束时间<br /> .局部变量 curMin_, 整数型, , , 当前分钟<br /> .局部变量 curSecond_, 整数型, , , 当前秒<br /> .局部变量 nextMin_, 整数型<br /> <br /> nowDate_ ＝ 取现行时间 ()<br /> startDateTime_ ＝ 到长整数 (时间_到时间戳 (nowDate_, 真, 真))<br /> <br /> curMin_ ＝ 取分钟 (nowDate_)<br /> curSecond_ ＝ 取秒 (nowDate_)<br /> nextMin_ ＝ curMin_<br /> .循环判断首 ()<br />     nextMin_ ＝ nextMin_ ＋ 1<br />     nowDate_ ＝ 增减时间 (nowDate_, 7, 1)<br /> .循环判断尾 (nextMin_ ％ 15 ≠ 0)<br /> nowDate_ ＝ 增减时间 (nowDate_, 8, －curSecond_)<br /> endDateTime_ ＝ 到长整数 (时间_到时间戳 (nowDate_, 真, 真))<br /> 调试输出 (“开始时间=>” ＋ 时间_时间戳转文本 (到文本 (startDateTime_) ＋ “000”))<br /> 调试输出 (“结束时间=>” ＋ 时间_时间戳转文本 (到文本 (endDateTime_) ＋ “000”))<br /> 调试输出 (“相差秒时间=>” ＋ 到文本 (endDateTime_ － startDateTime_))

zhengcp

  

子程序名	返回值类型	公开	备 注
计算误差秒数

变量名	类 型	静态	数组	备 注
当前时间	日期时间型
总秒数	整数型

当前时间 ＝ 取现行时间 ()
总秒数 ＝ 900 ��� ( (取分钟 (当前时间) ％ 15) × 60 ＋ 取秒 (当前时间))

.版本 2<br /> <br /> .子程序 计算误差秒数<br /> .局部变量 当前时间, 日期时间型<br /> .局部变量 总秒数, 整数型<br /> <br /> 当前时间 ＝ 取现行时间 ()<br /> 总秒数 ＝ 900 － ((取分钟 (当前时间) ％ 15) × 60 ＋ 取秒 (当前时间))

zhengcp

用这个，前面发的有些乱码


.版本 2

.子程序 计算误差秒数
.局部变量 当前时间, 日期时间型
.局部变量 总秒数, 整数型

当前时间 ＝ 取现行时间 ()
总秒数 ＝ 900 － ((取分钟 (当前时间) ％ 15) × 60 ＋ 取秒 (当前时间))

曼巴精神8

fireandice 发表于 2025-7-16 09:01
[e=0].版本 2

.子程序 剩余秒数, 整数型

YYDS 666666666666666