计算当前日期位第几周公式

REM {求出 InputDay 是在当年的第几周};
InputDay:=@Today;
YD:=@TextToTime(@Text(@Year(InputDay))+"/01/01");

YS:=@Text(@Year(InputDay))+@Text((@Adjust(InputDay; 0; 0; - ( @Weekday( InputDay) - 2 ); 0; 0; 0 )-@Adjust( YD; 0; 0; - ( @Weekday(YD ) - 2 ); 0; 0; 0 ))/7/86400+1);

REM {设置格式为yyww};
@right (YS;4);