计算本周一和上周一的时间

冰岛

我这个代码如果是周日cha询（08月10日），则会显示下周一（8月11日），如何修改？

  

子程序名	返回值类型	公开	备 注
取星期首日日期	日期时间型		以星期一为起点
参数名	类 型	参考	可空	数组	备 注
距离几周	整数型				0-本周 1-上周 2-上上周

变量名	类 型	静态	数组	备 注
局_当天日期	日期时间型
局_当天星期	整数型
本星期首日日期	日期时间型
上星期首日日期	日期时间型

局_当天日期 ＝ 取现行时间 ()
局_当天星期 ＝ 取星期几 (局_当天日期)
本星期首日日期 ＝ 增减时间 (局_当天日期, #日, －局_当天星期 ＋ 1 ＋ 1)
上星期首日日期 ＝ 增减时间 (本星期首日日期, #日, -7 × 距离几周)
返回 (上星期首日日期)

.版本 2<br /> <br /> .子程序 取星期首日日期, 日期时间型, , 以星期一为起点<br /> .参数 距离几周, 整数型, , 0-本周 1-上周 2-上上周<br /> .局部变量 局_当天日期, 日期时间型<br /> .局部变量 局_当天星期, 整数型<br /> .局部变量 本星期首日日期, 日期时间型<br /> .局部变量 上星期首日日期, 日期时间型<br /> <br /> 局_当天日期 ＝ 取现行时间 ()<br /> 局_当天星期 ＝ 取星期几 (局_当天日期)<br /> <br /> 本星期首日日期 ＝ 增减时间 (局_当天日期, #日, －局_当天星期 ＋ 1 ＋ 1)<br /> 上星期首日日期 ＝ 增减时间 (本星期首日日期, #日, -7 × 距离几周)<br /> 返回 (上星期首日日期)

柠檬不酸i

  

子程序名	返回值类型	公开	备 注
取星期首日日期	日期时间型		以星期一为起点
参数名	类 型	参考	可空	数组	备 注
距离几周	整数型				0-本周 1-上周 2-上上周

变量名	类 型	静态	数组	备 注
局_当天日期	日期时间型
本星期首日日期	日期时间型
上星期首日日期	日期时间型

' 局_当天日期 ＝ 取现行时间 ()
局_当天日期 ＝ 到时间 (“2025-08-10”)
本星期首日日期 ＝ 时间_星期几取日期 (局_当天日期, 1)
上星期首日日期 ＝ 增减时间 (本星期首日日期, #日, -7 × 距离几周)
返回 (上星期首日日期)

.版本 2<br /> <br /> .子程序 取星期首日日期, 日期时间型, , 以星期一为起点<br /> .参数 距离几周, 整数型, , 0-本周 1-上周 2-上上周<br /> .局部变量 局_当天日期, 日期时间型<br /> .局部变量 本星期首日日期, 日期时间型<br /> .局部变量 上星期首日日期, 日期时间型<br /> <br /> ' 局_当天日期 ＝ 取现行时间 ()<br /> 局_当天日期 ＝ 到时间 (“2025-08-10”)<br /> 本星期首日日期 ＝ 时间_星期几取日期 (局_当天日期, 1)<br /> 上星期首日日期 ＝ 增减时间 (本星期首日日期, #日, -7 × 距离几周)<br /> 返回 (上星期首日日期)

airaz

取今天星期几
7-今天星期几=差几天
本星期首日日期=今天日期-差几天
上星期首日日期=今天日期-差几天-7

许七分

你的意思是，如果当前cha询日期是周日，那么就返回下周一日期是吧。加个判断就行。

  

子程序名	返回值类型	公开	备 注
取星期首日日期	日期时间型		以星期一为起点
参数名	类 型	参考	可空	数组	备 注
距离几周	整数型				0-本周 1-上周 2-上上周

变量名	类 型	静态	数组	备 注
局_当天日期	日期时间型
局_当天星期	整数型
本星期首日日期	日期时间型
上星期首日日期	日期时间型

局_当天日期 ＝ 取现行时间 ()
局_当天星期 ＝ 取星期几 (局_当天日期)
如果真 (局_当天星期 ＝ 1)  ' 如果是周日cha询，那返回下周一日期
返回 (增减时间 (局_当天日期, #日, 1))
本星期首日日期 ＝ 增减时间 (局_当天日期, #日, －局_当天星期 ＋ 1 ＋ 1)
上星期首日日期 ＝ 增减时间 (本星期首日日期, #日, -7 × 距离几周)
返回 (上星期首日日期)

.版本 2<br /> <br /> .子程序 取星期首日日期, 日期时间型, , 以星期一为起点<br /> .参数 距离几周, 整数型, , 0-本周 1-上周 2-上上周<br /> .局部变量 局_当天日期, 日期时间型<br /> .局部变量 局_当天星期, 整数型<br /> .局部变量 本星期首日日期, 日期时间型<br /> .局部变量 上星期首日日期, 日期时间型<br /> <br /> 局_当天日期 ＝ 取现行时间 ()<br /> 局_当天星期 ＝ 取星期几 (局_当天日期)<br /> .如果真 (局_当天星期 ＝ 1)  ' 如果是周日cha询，那返回下周一日期<br />     返回 (增减时间 (局_当天日期, #日, 1))<br /> .如果真结束<br /> 本星期首日日期 ＝ 增减时间 (局_当天日期, #日, －局_当天星期 ＋ 1 ＋ 1)<br /> 上星期首日日期 ＝ 增减时间 (本星期首日日期, #日, -7 × 距离几周)<br /> 返回 (上星期首日日期)