Question

PB中如何取当前日期所在周的每天日期

知不知道PB函数中如何取当前日期所在的周
如今天5-17 取本周的第一天5-17 本周的第二天5-18 ...本周的周末5-23

Answer 1

string msg
date nd
int n,t

//----取得并处理本日在本周的序数，周一为0，周日为6----
t=daynumber(today()) -2
if t=-1 then t=6
//--------------------------------------

for n=t to 0 step -1//循环取得本周今日之前的日期（含今日）
nd=relativedate(today(),-n)
msg+=string(nd,'yyyy年mm月dd日')+'~n~n'
next

for n=1 to 6 -t//循环取得本周今日之后的日期（不含今日）
nd=relativedate(today(),n)
msg+=string(nd,'yyyy年mm月dd日')+'~n~n'
next

messagebox('',msg)