按日历统计数据

close all
use ffff
go top
scan
   scatter fields j1,j2,j3,j4,j5,j6,j7,j8,j9,j10,j11,j12,j13,j14,j15,j16,j17,j18,j19,j20,j21,j22,j23,j24,j25,j26,j27,j28,j29,j30,j31 to arr  && 修改此处，可以限定统计日期范围
   nNum = 0
   zjs = alen(arr)
   for i = 1 to zjs
       if [探] $ arr(m.i)
          nNum = 1 + nNum
       endif
   endfor
   replace 备注 with alltrim(str(nNum))
endscan
select ffff
browse

USE ffff
SCAN
    SCATTER TO arr
    ret = ""
    ds = 0
    sd = ASCAN(arr,"探  ")
    ns = sd
    DO WHILE BETWEEN(ns,1,ALEN(arr))
        DO WHILE arr[ns]=="探  "
            ds = ds+1
            ns = ns+1
        ENDDO
        ret = ret + "," + PADL(sd-2,2,"0") + "-" + PADL(ns-3,2,"0")
        sd = ASCAN(arr,"探  ",ns)
        ns = sd
    ENDDO
    ? arr[1],arr[2], SUBSTR(ret,2), ds
ENDSCAN

CLOSE DATABASES
USE gg IN 0
ZAP
SELECT DISTINCT num FROM ffff INTO CURSOR temp
SCAN
    SELECT * FROM ffff WHERE num = temp.num ORDER BY num, ny INTO CURSOR temp1
    lncnt = 0
    SCAN
        FOR ln = 3 TO FCOUNT() - 1
            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 = CTOD(CHRTRAN("abcd-ef-gh", 'abcdefgh', lcny))
    lcny1 = CTOD(CHRTRAN("abcd-ef-gh", 'abcdefgh', lcny1))
    INSERT INTO gg VALUES (temp.num, lcny, lcny1, lncnt)
ENDSCAN
SELECT gg
BROWSE