FUNCTION DateDiff
lparameters dStart,dEnd,lExcludeWE
LOCAL lnCount,lnDays
lnCount=0
lnDays=dEnd-dStart
IF lExcludeWE
FOR X = 1 TO lnDays
IF DOW((dStart + X),2) <= 5
lnCount=1+lnCount
ENDIF
ENDFOR
ELSE
lnCount=lnDays
ENDIF
RETURN lnCount Jon Hawkins
jonscott8@yahoo.com
The World Is Headed For Mutiny,
When All We Want Is Unity. - Creed