Try this:

function MonthDays(tdDate)
local lnRetval

lnRetval = -1
if vartype(tdDate) = 'D'
  lnRetval = DAY(GOMONTH(tdDATE(),1)-DAY(GOMONTH(tdDATE(),1)))
endif
return lnRetval

Glenn

>Hi all,
>
>Which function have to employ to know the number of one month days?
>Example 01/01/2002 gives 31 days
>Thank you in advance for the assistance brought....
>
>bernhart