再求助：按日历统计数据

cc = ''
For ii = 1 to 31
    cc = cc + '+j' + Ltrim(Str(ii))
EndFor
cc = Substr(cc,2)
Select num, nina, yue, &cc as jx from ffff into cursor ggg
Select num, nina, yue, Occurs('探',jx) hj, At('探',jx) st, Rat('探',jx) et from ggg into cursor ggg
Select num, nina, yue, Sum(hj) as hj, Min(st) st, Max(et) et from ggg where st > 0 group by num,nina,yue into cursor ggg
Select num, nina, yue, hj, 1+Int((st-1)/4) st, 1+Int((et-1)/4) et from ggg into cursor ggg
Select num, nina, hj, Date(nina,yue,st) st, Date(nina,yue,et) et from ggg into cursor ggg
Select num, nina, Min(st) as st, Max(et) et, Sum(hj) jh from ggg group by num, nina into cursor ggg
Browse

CLOSE DATABASES
USE gg IN 0
ZAP
SELECT num, nina FROM ffff GROUP BY 1, 2 INTO CURSOR temp

SCAN
    SELECT * FROM ffff WHERE num = temp.num AND nina = temp.nina ORDER BY num, ny INTO CURSOR temp1
    lncnt = 0
    SCAN
        FOR ln = 5 TO FCOUNT() - 2
            IF ALLTRIM(EVALUATE(FIELD(ln))) == "探"
                lncnt = lncnt + 1
                IF lncnt = 1
                    lcny = TRANSFORM(ny) + PADL(SUBSTR(FIELD(ln), 2), 2, "0")
                ENDIF
                lcny1 = TRANSFORM(ny) + PADL(SUBSTR(FIELD(ln), 2), 2, "0")
            ENDIF
        ENDFOR
    ENDSCAN
    lcny = CHRTRAN("abcd,ef,gh", 'abcdefgh', lcny)
    lcny1 = CHRTRAN("abcd,ef,gh", 'abcdefgh', lcny1)
    INSERT INTO gg VALUES (temp.num, VAL(LEFT(lcny1, 4)),DATE(&lcny), DATE(&lcny1), lncnt)
ENDSCAN
SELECT gg
BROWSE