时间_取第几周

xintian

精易模块6.6
时间_取第几周
感觉这个命令有点单一.实际方面有的是从星期天有的是从星期一开始算了.水平有限.下面我写的有些多.

  

子程序名	返回值类型	公开	备 注
取_周期	整数型
参数名	类 型	参考	可空	数组	备 注
参_日期	日期时间型
参_标准计算	逻辑型				真=星期天始,假=星期一始

变量名	类 型	静态	数组	备 注
年日期	日期时间型
星期几	整数型
第一周天数	整数型
第几周	整数型
相隔天数	整数型
t	整数型

参_日期 ＝ 选择 (是否为空 (参_日期), 取现行时间 (), 参_日期)
年日期 ＝ 到时间 (到文本 (取年份 (参_日期)) ＋ “/01/01”)
星期几 ＝ 取星期几 (年日期)  ' 返回一个值为 1 到 7 之间的整数，表示一个星期中的某一日。星期日为 1，星期一为 2，
如果 (参_标准计算 ＝ 真)
判断 (星期几 ＝ 1)
第一周天数 ＝ 7
判断 (星期几 ＝ 2)
第一周天数 ＝ 6
判断 (星期几 ＝ 3)
第一周天数 ＝ 5
判断 (星期几 ＝ 4)
第一周天数 ＝ 4
判断 (星期几 ＝ 5)
第一周天数 ＝ 3
判断 (星期几 ＝ 6)
第一周天数 ＝ 2
判断 (星期几 ＝ 7)
第一周天数 ＝ 1





判断 (星期几 ＝ 2)
第一周天数 ＝ 7
判断 (星期几 ＝ 3)
第一周天数 ＝ 6
判断 (星期几 ＝ 4)
第一周天数 ＝ 5
判断 (星期几 ＝ 5)
第一周天数 ＝ 4
判断 (星期几 ＝ 6)
第一周天数 ＝ 3
判断 (星期几 ＝ 7)
第一周天数 ＝ 2
判断 (星期几 ＝ 1)
第一周天数 ＝ 1




相隔天数 ＝ 到整数 (取时间间隔 (参_日期, 年日期, #日 ))
相隔天数 ＝ 相隔天数 － 第一周天数 ＋ 7
第几周 ＝ 相隔天数 ÷ 7
t ＝ 相隔天数 ％ 7
如果真 (t ≥ 0)
第几周 ＝ 第几周 ＋ 1

返回 (第几周)

.版本 2<br /> <br /> .子程序 取_周期, 整数型<br /> .参数 参_日期, 日期时间型, 可空<br /> .参数 参_标准计算, 逻辑型, , 真=星期天始,假=星期一始<br /> .局部变量 年日期, 日期时间型<br /> .局部变量 星期几, 整数型<br /> .局部变量 第一周天数, 整数型<br /> .局部变量 第几周, 整数型<br /> .局部变量 相隔天数, 整数型<br /> .局部变量 t, 整数型<br /> <br /> 参_日期 ＝ 选择 (是否为空 (参_日期), 取现行时间 (), 参_日期)<br /> 年日期 ＝ 到时间 (到文本 (取年份 (参_日期)) ＋ “/01/01”)<br /> 星期几 ＝ 取星期几 (年日期)  ' 返回一个值为 1 到 7 之间的整数，表示一个星期中的某一日。星期日为 1，星期一为 2，<br /> .如果 (参_标准计算 ＝ 真)<br />     .判断开始 (星期几 ＝ 1)<br />         第一周天数 ＝ 7<br />     .判断 (星期几 ＝ 2)<br />         第一周天数 ＝ 6<br />     .判断 (星期几 ＝ 3)<br />         第一周天数 ＝ 5<br />     .判断 (星期几 ＝ 4)<br />         第一周天数 ＝ 4<br />     .判断 (星期几 ＝ 5)<br />         第一周天数 ＝ 3<br />     .判断 (星期几 ＝ 6)<br />         第一周天数 ＝ 2<br />     .判断 (星期几 ＝ 7)<br />         第一周天数 ＝ 1<br />     .默认<br /> <br />     .判断结束<br /> <br /> .否则<br /> <br />     .判断开始 (星期几 ＝ 2)<br />         第一周天数 ＝ 7<br />     .判断 (星期几 ＝ 3)<br />         第一周天数 ＝ 6<br />     .判断 (星期几 ＝ 4)<br />         第一周天数 ＝ 5<br />     .判断 (星期几 ＝ 5)<br />         第一周天数 ＝ 4<br />     .判断 (星期几 ＝ 6)<br />         第一周天数 ＝ 3<br />     .判断 (星期几 ＝ 7)<br />         第一周天数 ＝ 2<br />     .判断 (星期几 ＝ 1)<br />         第一周天数 ＝ 1<br />     .默认<br /> <br />     .判断结束<br /> <br /> .如果结束<br /> <br /> 相隔天数 ＝ 到整数 (取时间间隔 (参_日期, 年日期, #日))<br /> 相隔天数 ＝ 相隔天数 － 第一周天数 ＋ 7<br /> <br /> 第几周 ＝ 相隔天数 ÷ 7<br /> t ＝ 相隔天数 ％ 7<br /> .如果真 (t ≥ 0)<br />     第几周 ＝ 第几周 ＋ 1<br /> .如果真结束<br /> <br /> 返回 (第几周)

项目部002

从元旦算起的一年中 指定时间是第几周，不是日历上显示排序的第几周，从不同日历显示来算第几周并不准确

明天会更美好

什么情况，不太清楚