求在任意时间段里有几个星期六
求在任意时间段里有几个星期六
程序代码:
DATE1={^2013.05.12} DATE2={^2013.08.10} NDOW=0 && 存储星期六的天数 FOR I=MONTH(DATE1) TO MONTH(DATE2) FOR J=1 TO 31 IF BETWEEN(DATE(2013,I,J),DATE1,DATE2) AND DOW(DATE(2013,I,J),2)=6 NDOW=NDOW+1 ENDIF ENDFOR ENDFOR ?[时间段:]+TRANSFORM(DATE1)+[-]+TRANSFORM(DATE2)+[中,共有星期六的天数:]+TRANSFORM(NDOW)