birthday.prg

来自「红狐VFP6通讯录V3.3,大家看看,可能会有帮助,好了」· PRG 代码 · 共 26 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: BIRTHDAY.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 CUR_YEAR = STR(YEAR(DATE()),4)
 SELECT XM , XB , JTDZ , CSRQ , TXL_ID WHERE  .NOT. EMPTY('csrq') ORDER BY CSRQ INTO  ;
      CURSOR birthday FROM y:\txl\txl
 SELECT BIRTHDAY
 DIMENSION BIRTHDAY_LIST( RECCOUNT() )
 N = 1
 GO TOP
 DO WHILE  .NOT. EOF()
    CUR_MONTH = STR(MONTH(CSRQ),2)
    CUR_DAY = STR(DAY(CSRQ),2)
    NEW_DATE = CTOD(CUR_MONTH + '/' + CUR_DAY + '/' + CUR_YEAR)
    IF NEW_DATE >= DATE() AND NEW_DATE <= DATE() + NDELAY_BIRTH
       BIRTHDAY_LIST( N ) = XM + XB + JTDZ + DTOC(CSRQ) + STR(TXL_ID)
       N = N + 1
    ENDIF 
    SKIP 
 ENDDO 
 CLEAR 
 DISPLAY MEMORY 
*