时间周期计算

楓哥哥

比如开始时间为 2025-09-13   8天一个周期的话 应该是
第1个周期:   9月13日-9月20日
第2个周期:   9月21日-9月28日
第3个周期:   9月29日-10月6日
第4个周期:   10月7日-10月14日
第5个周期:   10月15日-10月22日
第6个周期:   10月23日-10月30日
第7个周期:   10月31日-11月7日

这种怎么计算呢 比如开始时间为 2025-09-14  那这个周期时间就又不一样了

我需要计算当前的周期 比如今天10月24号  那计算出来的就是  10月23日-10月30日   这个内容


求大佬们给个 例程  谢谢!!!

石榴熟了

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 End, 日期时间型
.局部变量 Start, 日期时间型
.局部变量 today, 日期时间型
.局部变量 t, 双精度小数型

Start ＝ 到时间 (“2025-09-13”)
' 今天
today ＝ 到时间 (“2025-10-24”)
t ＝ 取时间间隔 (today, Start, 5) ÷ 8
.如果 (t ＞ 到整数 (t))
    t ＝ 到整数 (t) ＋ 1
.否则
    t ＝ 到整数 (t)
.如果结束
.计次循环首 (t, )
    End ＝ 增减时间 (Start, 5, 7)
    调试输出 (Start, End)
    Start ＝ 增减时间 (End, 5, 1)
.计次循环尾 ()

haoren1212

开始时间+7=结束时间
-----------------------------
二周及其他周
上周结束时间+1=这周开始时间
这周开始时间+7=这周结束时间

黑咖啡

  

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

今天 ＝ 到时间 (“2025-10-24”)
调试输出 (增减时间 (今天, #日, -7), 今天)

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 今天, 日期时间型<br /> <br /> 今天 ＝ 到时间 (“2025-10-24”)<br /> 调试输出 (增减时间 (今天, #日, -7), 今天)

石榴熟了

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 End, 日期时间型
.局部变量 Start, 日期时间型

Start ＝ 到时间 (“2025-09-13”)
.计次循环首 (7, )
    End ＝ 增减时间 (Start, 5, 7)
    调试输出 (Start, End)
    Start ＝ 增减时间 (End, 5, 1)
.计次循环尾 ()



开始运行被调试程序
* [2025年9月13日] | [2025年9月20日]
* [2025年9月21日] | [2025年9月28日]
* [2025年9月29日] | [2025年10月6日]
* [2025年10月7日] | [2025年10月14日]
* [2025年10月15日] | [2025年10月22日]
* [2025年10月23日] | [2025年10月30日]
* [2025年10月31日] | [2025年11月7日]
被调试易程序运行完毕

Ruang

  

子程序名	返回值类型	公开	备 注
功能_计算当前周期	文本型
参数名	类 型	参考	可空	数组	备 注
开始时间	日期时间型
周期天数	整数型
计算周期	整数型				计算几个周期

变量名	类 型	静态	数组	备 注
待返回	文本型
计次	整数型
当前时间	日期时间型

当前时间 ＝ 开始时间
计次循环首 (计算周期, 计次)
待返回 ＝ 待返回 ＋ 到文本 (取月份 (当前时间)) ＋ “月” ＋ 到文本 (取日 (当前时间)) ＋ “日”
当前时间 ＝ 增减时间 (当前时间, 5, 周期天数)
待返回 ＝ 待返回 ＋ “ - ” ＋ 到文本 (取月份 (当前时间)) ＋ “月” ＋ 到文本 (取日 (当前时间)) ＋ “日” ＋ #换行符
计次循环尾 ()
返回 (待返回)

.版本 2<br /> <br /> .子程序 功能_计算当前周期, 文本型<br /> .参数 开始时间, 日期时间型<br /> .参数 周期天数, 整数型<br /> .参数 计算周期, 整数型, , 计算几个周期<br /> .局部变量 待返回, 文本型<br /> .局部变量 计次, 整数型<br /> .局部变量 当前时间, 日期时间型<br /> <br /> 当前时间 ＝ 开始时间<br /> .计次循环首 (计算周期, 计次)<br />     待返回 ＝ 待返回 ＋ 到文本 (取月份 (当前时间)) ＋ “月” ＋ 到文本 (取日 (当前时间)) ＋ “日”<br />     当前时间 ＝ 增减时间 (当前时间, 5, 周期天数)<br />     待返回 ＝ 待返回 ＋ “ - ” ＋ 到文本 (取月份 (当前时间)) ＋ “月” ＋ 到文本 (取日 (当前时间)) ＋ “日” ＋ #换行符<br /> .计次循环尾 ()<br /> 返回 (待返回)

楓哥哥

Ruang 发表于 2025-10-24 17:55
[e=3].版本 2

.子程序 功能_计算当前周期, 文本型

大哥 第二个周期是从第二天开始计算,你发给我这个 第二个周期是从第一个周期的结尾那天开始计算的

石榴熟了

楓哥哥 发表于 2025-10-24 18:00
大哥 第二个周期是从第二天开始计算,你发给我这个 第二个周期是从第一个周期的结尾那天开始计算的 ...

我发的 没看到吗

楓哥哥

石榴熟了 发表于 2025-10-24 18:05
我发的 没看到吗

看到了 大哥 我正在研究

楓哥哥

石榴熟了 发表于 2025-10-24 17:45
.版本 2
.支持库 spec

我在研究哪个 几次循环的次数 怎么来的  还在看怎么能计算出哪个  7 次