程序代码：

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)