增减时间后怎么减去现行时间，用日期时间显示呢？

下弦月♩

liling199 发表于 2023-8-16 20:41
不取间隔。我是想弄一个倒计时，把增加后的时间存为变量，然后减去现在的时间，每秒循环一次，然后把这个 ...

是这个意思嘛!~~

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
间隔	整数型
i	整数型
间隔1	整数型
时间	文本型

间隔 ＝ 到整数 (编辑框1.内容)
计次循环首 (间隔, i)
程序_延时 (1000, )
间隔1 ＝ 间隔 － i
' 时间 ＝ 到时间 (到整数 (时间_取现行时间戳 (真)) ＋ 间隔1)
时间 ＝ 时间_时间戳转文本 (到文本 (到长整数 (时间_取现行时间戳 ()) ＋ 间隔1 × 1000), 2)
标题 ＝ 到文本 (时间) ＋ “  倒计时:” ＋ 到文本 (间隔1) ＋ “ 秒”
计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 间隔, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 间隔1, 整数型<br /> .局部变量 时间, 文本型<br /> <br /> 间隔 ＝ 到整数 (编辑框1.内容)<br /> .计次循环首 (间隔, i)<br />     程序_延时 (1000, )<br />     间隔1 ＝ 间隔 － i<br />     ' 时间 ＝ 到时间 (到整数 (时间_取现行时间戳 (真)) ＋ 间隔1)<br />     时间 ＝ 时间_时间戳转文本 (到文本 (到长整数 (时间_取现行时间戳 ()) ＋ 间隔1 × 1000), 2)<br />     标题 ＝ 到文本 (时间) ＋ “  倒计时:” ＋ 到文本 (间隔1) ＋ “ 秒”<br /> <br /> .计次循环尾 ()

补充内容 (2023-8-16 22:01):
忘记加个跳出循环了,设置个程序集变量,关闭窗口则为假,为假跳出循环即可~不对勿喷~~哈哈

idbucunzai

取间隔时间（）