求易语言刷新时间源码

破洞的钱包包

如基于2000年10月10日10分    每增加10天为单位    效果如 2000年10月20日10分    2000年10月30日10分     2000年11月10日10分    .............
然后只显示取现行时间（）最近的日期   且是未来时间      如今天是2000年10月18日10分      那么就显示2000年10月20日10分的时间     2000年10月19日也是如此      2000年10月21日就显示2000年10月30日
   也就是每隔10天刷新一次，且取离当前时间最近的时间，且是未来的，不是过去的



补充内容 (2023-10-18 19:31):
每十天刷新一次，标签.标题只显示一个刷新日期       如2000年10月10日 我起点，   每隔10天刷新 ，我要看的就是取现行时间（）下一个刷新时间是多少

b0y

  

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

调试输出 (取最近未来时间 ())

子程序名	返回值类型	公开	备 注
取最近未来时间	日期时间型
参数名	类 型	参考	可空	数组	备 注
起始时间	日期时间型				如果为空 默认为[2000年10月10日10分]
增加天数	整数型				如果为空 默认为10天

变量名	类 型	静态	数组	备 注
当前时间	日期时间型
间隔天数	整数型
补充天数	整数型
返回时间	日期时间型

如果真 (是否为空 (起始时间))
起始时间 ＝ [2000年10月10日10时10分]
如果真 (是否为空 (增加天数))
增加天数 ＝ 10
当前时间 ＝ 取现行时间 ()
间隔天数 ＝ 取时间间隔 (取日期 (当前时间), 取日期 (起始时间), #日 )
如果真 (间隔天数 ％ 增加天数 ＞ 0)
补充天数 ＝ 10 － 间隔天数 ％ 增加天数
返回时间 ＝ 指定时间 (取年份 (当前时间), 取年份 (当前时间), 取日 (当前时间), 取小时 (起始时间), 取分钟 (起始时间), )
返回时间 ＝ 增减时间 (返回时间, #日, 补充天数)
返回 (返回时间)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (取最近未来时间 ())<br /> <br /> .子程序 取最近未来时间, 日期时间型<br /> .参数 起始时间, 日期时间型, 可空, 如果为空 默认为[2000年10月10日10分]<br /> .参数 增加天数, 整数型, 可空, 如果为空 默认为10天<br /> .局部变量 当前时间, 日期时间型<br /> .局部变量 间隔天数, 整数型<br /> .局部变量 补充天数, 整数型<br /> .局部变量 返回时间, 日期时间型<br /> <br /> .如果真 (是否为空 (起始时间))<br />     起始时间 ＝ [2000年10月10日10时10分]<br /> .如果真结束<br /> .如果真 (是否为空 (增加天数))<br />     增加天数 ＝ 10<br /> .如果真结束<br /> 当前时间 ＝ 取现行时间 ()<br /> 间隔天数 ＝ 取时间间隔 (取日期 (当前时间), 取日期 (起始时间), #日)<br /> .如果真 (间隔天数 ％ 增加天数 ＞ 0)<br />     补充天数 ＝ 10 － 间隔天数 ％ 增加天数<br /> .如果真结束<br /> 返回时间 ＝ 指定时间 (取年份 (当前时间), 取年份 (当前时间), 取日 (当前时间), 取小时 (起始时间), 取分钟 (起始时间), )<br /> 返回时间 ＝ 增减时间 (返回时间, #日, 补充天数)<br /> 返回 (返回时间)

补充内容 (2023-10-19 08:50):
开始运行被调试程序
* [2023年12月20日10时10分]
被调试易程序运行完毕

鹏书

增减时间 (, #日, 10)

破洞的钱包包

具体怎么实现啊，增减一个时间容易   但是怎么做到每十天刷新一次呢

蛀牙

  

子程序名	返回值类型	公开	备 注
取楼主时间	日期时间型
参数名	类 型	参考	可空	数组	备 注
原时间	日期时间型

判断循环首 (原时间 ＜ 到时间 (“2000年10月10日10分”) 或 取日 (原时间) ％ 10 ＞ 0)
' 输出调试文本 (原时间, 取日 (原时间) ％ 10 ＞ 0)
原时间 ＝ 增减时间 (原时间, 5, 1)
判断循环尾 ()
返回 (原时间)

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

输出调试文本 (取楼主时间 (到时间 (“2000年10月9日”)))  ' 基于2000年10月10日10分 即不能小于这个时间
输出调试文本 (取楼主时间 (到时间 (“2000年10月19日”)))
输出调试文本 (取楼主时间 (到时间 (“2000年10月20日”)))
输出调试文本 (取楼主时间 (到时间 (“2000年10月21日”)))
输出调试文本 (取楼主时间 (到时间 (“2000年10月31日”)))
输出调试文本 (取楼主时间 (到时间 (“2023年10月18日”)))

.版本 2<br /> <br /> .子程序 取楼主时间, 日期时间型<br /> .参数 原时间, 日期时间型<br /> <br /> .判断循环首 (原时间 ＜ 到时间 (“2000年10月10日10分”) 或 取日 (原时间) ％ 10 ＞ 0)<br />     ' 输出调试文本 (原时间, 取日 (原时间) ％ 10 ＞ 0)<br />     原时间 ＝ 增减时间 (原时间, 5, 1)<br /> .判断循环尾 ()<br /> 返回 (原时间)<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 输出调试文本 (取楼主时间 (到时间 (“2000年10月9日”)))  ' 基于2000年10月10日10分 即不能小于这个时间<br /> 输出调试文本 (取楼主时间 (到时间 (“2000年10月19日”)))<br /> 输出调试文本 (取楼主时间 (到时间 (“2000年10月20日”)))<br /> 输出调试文本 (取楼主时间 (到时间 (“2000年10月21日”)))<br /> 输出调试文本 (取楼主时间 (到时间 (“2000年10月31日”)))<br /> 输出调试文本 (取楼主时间 (到时间 (“2023年10月18日”)))

楼主的意思如果是就要10 20 30这3个日的话就用上边的

破洞的钱包包

蛀牙 发表于 2023-10-18 18:55
[e=1].版本 2

.子程序 取楼主时间, 日期时间型

怎么做到只显示一个时间    就是我写的要求    我把你的源码复制过去   但是不知道怎么做到只显示我要求的时间     用标签.标题显示吧     且是自动的      在标签.标题里面每隔十天显示一个取现行时间最近的未来时间      界面就是一个标签.标题       足够我看时间了    谢谢你的回答   再帮我修改下     

破洞的钱包包

蛀牙 发表于 2023-10-18 18:55
[e=1].版本 2

.子程序 取楼主时间, 日期时间型

蛀牙 发表于 2023-10-18 18:55
[e=1].版本 2

.子程序 取楼主时间, 日期时间型

怎么做到只显示一个时间    就是我写的要求    我把你的源码复制过去   但是不知道怎么做到只显示我要求的时间     用标签.标题显示吧     且是自动的      在标签.标题里面每隔十天显示一个取现行时间最近的未来时间      界面就是一个标签.标题       足够我看时间了    谢谢你的回答   再帮我修改下     

蛀牙

demo.e (3.67 KB, 下载次数: 0)

2023-10-18 19:36 上传

点击文件名下载附件

补充内容 (2023-10-18 19:37):
传错，是8楼那个

蛀牙

demo1.e (3.48 KB, 下载次数: 4)

2023-10-18 19:36 上传

点击文件名下载附件

破洞的钱包包

蛀牙 发表于 2023-10-18 19:36

好像要成功了，取楼主时间    这里我该用什么表达方式    我写了2023\10\17    不可以   然后用  到时间（2023年10月17日替换也不行）     不能替换你写的 这句 取楼主时间    会报错     指教一下