怎样判断过了5天

往事如风0

软件打开后每间隔5天  弹出一个信息框 怎么实现求助大神

真冬

这边我设置10秒来方便测试效果。
可以把 #秒 改成  1、#年份； 2、#季度； 3、#月份； 4、#周； 5、#日； 6、#小时； 7、#分钟； 8、#秒。

  

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

变量名	类 型	静态	数组	备 注
间隔时间	整数型
设置间隔值	整数型

设置间隔值 ＝ 10
间隔时间 ＝ 判断过了多少时间 (读环境变量 (“temp”) ＋ “\保存时间.shijian”, #秒, 设置间隔值)
判断 (间隔时间 ≥ 设置间隔值)
信息框 (“间隔” ＋ 到文本 (间隔时间) ＋ “秒了”, 0, , )
判断 (间隔时间 ＜ 0)
信息框 (“第一次打开”, 0, , )
调试输出 (“还未到间隔时间”, 间隔时间)
结束 ()

子程序名	返回值类型	公开	备 注
判断过了多少时间	整数型		返回过了多少时间，-1则是第一次。“时间单位”和“间隔值”留空时清空记录时间。
参数名	类 型	参考	可空	数组	备 注
参数_时间保存文件路径	文本型
参数_时间单位	整数型				1、#年份； 2、#季度； 3、#月份； 4、#周； 5、#日； 6、#小时； 7、#分钟； 8、#秒。
参数_间隔值	整数型

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

如果真 (参数_时间单位 ＝ 0 且 参数_间隔值 ＝ 0)
写到文件 (参数_时间保存文件路径, {  })
调试输出 (“清空记录时间”)
返回 (-1)
当前时间 ＝ 取现行时间 ()
之前时间 ＝ 取字节集数据 (读入文件 (参数_时间保存文件路径), #日期时间型, )
调试输出 (之前时间)
如果真 (之前时间 ＜ [1970年1月1日])
写到文件 (参数_时间保存文件路径, 到字节集 (当前时间))
调试输出 (“第一次记录时间”)
返回 (-1)
间隔时间 ＝ 取时间间隔 (当前时间, 之前时间, 参数_时间单位)
如果真 (取时间间隔 (当前时间, 之前时间, 参数_时间单位) ≥ 参数_间隔值)
写到文件 (参数_时间保存文件路径, 到字节集 (当前时间))
调试输出 (“超过间隔时间”)
返回 (间隔时间)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 间隔时间, 整数型<br /> .局部变量 设置间隔值, 整数型<br /> <br /> 设置间隔值 ＝ 10<br /> 间隔时间 ＝ 判断过了多少时间 (读环境变量 (“temp”) ＋ “\保存时间.shijian”, #秒, 设置间隔值)<br /> .判断开始 (间隔时间 ≥ 设置间隔值)<br />     信息框 (“间隔” ＋ 到文本 (间隔时间) ＋ “秒了”, 0, , )<br /> .判断 (间隔时间 ＜ 0)<br />     信息框 (“第一次打开”, 0, , )<br /> .默认<br />     调试输出 (“还未到间隔时间”, 间隔时间)<br /> .判断结束<br /> 结束 ()<br /> <br /> .子程序 判断过了多少时间, 整数型, , 返回过了多少时间，-1则是第一次。“时间单位”和“间隔值”留空时清空记录时间。<br /> .参数 参数_时间保存文件路径, 文本型<br /> .参数 参数_时间单位, 整数型, 可空, 1、#年份； 2、#季度； 3、#月份； 4、#周； 5、#日； 6、#小时； 7、#分钟； 8、#秒。<br /> .参数 参数_间隔值, 整数型, 可空<br /> .局部变量 之前时间, 日期时间型<br /> .局部变量 当前时间, 日期时间型<br /> .局部变量 间隔时间, 整数型<br /> <br /> .如果真 (参数_时间单位 ＝ 0 且 参数_间隔值 ＝ 0)<br />     写到文件 (参数_时间保存文件路径, {  })<br />     调试输出 (“清空记录时间”)<br />     返回 (-1)<br /> .如果真结束<br /> 当前时间 ＝ 取现行时间 ()<br /> 之前时间 ＝ 取字节集数据 (读入文件 (参数_时间保存文件路径), #日期时间型, )<br /> 调试输出 (之前时间)<br /> .如果真 (之前时间 ＜ [1970年1月1日])<br />     写到文件 (参数_时间保存文件路径, 到字节集 (当前时间))<br />     调试输出 (“第一次记录时间”)<br />     返回 (-1)<br /> .如果真结束<br /> 间隔时间 ＝ 取时间间隔 (当前时间, 之前时间, 参数_时间单位)<br /> .如果真 (取时间间隔 (当前时间, 之前时间, 参数_时间单位) ≥ 参数_间隔值)<br />     写到文件 (参数_时间保存文件路径, 到字节集 (当前时间))<br />     调试输出 (“超过间隔时间”)<br /> .如果真结束<br /> 返回 (间隔时间)

fire9

第一次打开的瞬间 记录时间戳，写入到本地配置文件或者啥，然后每次5 * 24 * 60 * 60 写入到文件中: 这样加一下。  开启软件的时候先读。不等于就不弹。

东山小道童

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
启动时间	日期时间型

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

子程序1 ()

子程序名	返回值类型	公开	备 注
子程序1			这个子程序加一个计时器来一直判断,比如间隔多长时间判断一次

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

启动时间 ＝ [2024年3月28日23时41分1秒]
当前时间 ＝ 取现行时间 ()
调试输出 (启动时间)
调试输出 (当前时间)
如果真 (到整数 (取时间间隔 (当前时间, 启动时间, #日 )) ≥ 5)
信息框 (“到5天了!”, 0, , )
启动时间 ＝ 当前时间  ' 到了5天后,把启动时间重置为当前时间以便下次对比是否又到了5天

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 启动时间, 日期时间型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 子程序1 ()<br /> <br /> .子程序 子程序1, , , 这个子程序加一个计时器来一直判断,比如间隔多长时间判断一次<br /> .局部变量 当前时间, 日期时间型<br /> <br /> 启动时间 ＝ [2024年3月28日23时41分1秒]<br /> 当前时间 ＝ 取现行时间 ()<br /> 调试输出 (启动时间)<br /> 调试输出 (当前时间)<br /> .如果真 (到整数 (取时间间隔 (当前时间, 启动时间, #日)) ≥ 5)<br />     信息框 (“到5天了!”, 0, , )<br />     启动时间 ＝ 当前时间  ' 到了5天后,把启动时间重置为当前时间以便下次对比是否又到了5天<br /> .如果真结束

补充内容 (2024-4-2 23:47):
这样写的前提是你的程序不会中途关闭,如果中途要关,可以把启动时间写进配置文件,反正在这个代码上延伸就行了

一线之隔

取时间间隔(取现行时间(),时间2,#天)=5

走一回

每间隔5天，就是自动到5天、10天、15天……都要弹出信息框，那只能抱歉了，信息框一弹出来就会暂停运行的。

pshq123

666666666