* VFP9 CAST(DTOS(dDate) AS int) * Pre VFP9 INT(VAL(DTOS(dDate)))>
> > >PROCEDURE DTONUM() > LPARAMETERS dDate > LOCAL cDate > IF !EMPTY(m.dDate) > m.cDate = STR(YEAR(dDate),4,0) + PADL(ALLTRIM(STR(MONTH(m.dDate))),2,"0") + PADL(ALLTRIM(STR(day(m.dDate))),2,"0") > ELSE > m.cDate = "00000000" > ENDIF > RETURN VAL(m.cDate) > >ENDPROC > >