Domino计算当前日期是这一年的第几周，以及计算任意一周都分别是哪七天？

最近用domino做了一个一周工作日志安排的项目，需要用户在表上填写每天的工作日志，不想把表中的日期写死，所以用函数把一周的开始/结束日期算出来，下面是程序代码：

 

以下为转载，来源至百度搜索

 

说明一下，我这里是以星期日作为一周的开始

思路如下：
首先要计算今天离元旦相差多少天，然后除以7就得出今天离元旦多少个星期了。
这里要判断有无余数，如果有余数，则把商加1，就得出今天相距元旦多少个星期了。

程序代码

REM {获取元旦};
yuandan := @ToTime(@Text(@Year(@Now))+"-01-01");
x:= @Integer(((@Today-yuandan)/(3600*24)+1)/7);
y:=((@Today-yuandan)/(3600*24)+1)/7;
@If(y-x>0;x+1;x)

但目前算出的只是今天相距元旦的星期数，并不是真正的周次。

因为每年元旦并不都是星期日，例如2006年的元旦是星期日，则本年的第一周是完整的一周（有7天）。
如果元旦不是星期日，则本年的第一周就只有（7-星期数）天。
例如2005年的元旦是星期六，则本年的第一周只有1天，1月2号就是第二周的开始了。

所以如果只用上面的四行代码，是不符合实际情况的。
而且上面的代码还有bug，如果@Today是元旦，那会输出0。

要计算真正的周次，就要从第二周开始算起。
第一周的天数是7减元旦的星期数，
如果元旦是星期日， @Weekday(yuandan)返回1，星期一返回2。
所以星期数要减一。代码如下：

程序代码

yuandan := @ToTime(@Text(@Year(@Now))+"-01-01");
wd := @Weekday(yuandan);
t := 7-(wd-1);

用@Today 减元旦，再减第一周天数t，再加一，就是@Today到第二周开始的天数t1。
这里要做个判断，
If @Today 就是第一周里的，那得出的结果t1就会是负数，我们可以直接输出@Today 所在周次是第一周。
Else  用 t1除以7，得出@Today 距离第二周有多少周。 然后加上1,就是加上第一周。就得出实际的周次了。

这里还有个需求就是，一年365天，就等于52周加1天。每年的第53周与下一年的第一周其实是同一周，
所以这里的周报只算52周，如果算到第53周，就改为下一年的第一周。
具体实现就是把53改为1，然后把年份那个域的值加1。

程序代码

@If(z=53;z:=1;z);

完整代码如下：

程序代码

REM {获取元旦};
yuandan := @ToTime(@Text(@Year(@Now))+"-01-01");
REM {判断元旦是否sunday,@Weekday(sunday)=1};
wd := @Weekday(yuandan);
@If(wd=1;
@Do(
x:= @Integer(((@Today-yuandan)/(3600*24)+1)/7);
y:=((@Today-yuandan)/(3600*24)+1)/7;
@If(y-x>0;x+1;x)
);
@Do(
t := 7-(wd-1);
t1 := (@Today-yuandan)/(3600*24)-t+1;
@If(t1>0;
@Do(
x:=@Integer(t1/7);
y:=t1/7;
@If(y-x>0;z:=x+2;z:=x+1);
@If(z=53;z:=1;z);
z
);
@Do(
1
))
)
)

 

 

以下为原创

1.计算当天所在周从周一到周日的天数

weekstart:=@Adjust(@Today;0;0;-(@Weekday(@Today)-2);0;0;0);
weekend:=@Adjust(weekstart;0;0;6;0;0;0);

Text(weekstart)+"至"+@Text(weekend)

2.计算当天所在周每一天的日期
星期一:

weekstart:=@Adjust(@Today;0;0;-(@Weekday(@Today)-2);0;0;0);
@Text(weekstart;"D2")

星期二:

weekstart:=@Adjust(@Today;0;0;-(@Weekday(@Today)-2);0;0;0);
week:=@Adjust(weekstart;0;0;1;0;0;0);
@Text(week;"D2")

星期三:

weekstart:=@Adjust(@Today;0;0;-(@Weekday(@Today)-2);0;0;0);
week:=@Adjust(weekstart;0;0;2;0;0;0);
@Text(week;"D2")

星期四:

weekstart:=@Adjust(@Today;0;0;-(@Weekday(@Today)-2);0;0;0);
week:=@Adjust(weekstart;0;0;3;0;0;0);
@Text(week;"D2")

星期五:

weekstart:=@Adjust(@Today;0;0;-(@Weekday(@Today)-2);0;0;0);
week:=@Adjust(weekstart;0;0;4;0;0;0);
@Text(week;"D2")

星期六:

weekstart:=@Adjust(@Today;0;0;-(@Weekday(@Today)-2);0;0;0);
week:=@Adjust(weekstart;0;0;5;0;0;0);
@Text(week;"D2")

星期天:

weekstart:=@Adjust(@Today;0;0;-(@Weekday(@Today)-2);0;0;0);
week:=@Adjust(weekstart;0;0;6;0;0;0);
@Text(week;"D2")

3.计算任意一周的周一至周日

很简单，假设当周为CurrentWeekNo; 任意一周为:WeekNo;要计算任意一周的周一至周日公式就是：

tmp:=CurrentWeekNo-WeekNo;

step:=2-tmp*7;

rem {任意一周的周一，得到周一，那二/三/四...就很轻松得到};

weekstart:=@Adjust(@Today;0;0;-(@Weekday(@Today)-step);0;0;0);

---------------------------------------------------------------

下面就是最近做的一个日志模块的图，图中所有的日期都是通过上面的算法算出来的，还不错吧