>>Is there a function to get the number of days in a month.
>>eg. the number of days in any month of any year.
>>
>>Thanks
>>Andrew
>
>As long as I know VFP does not have a function for this, but is very easy you can make your own such as this
>
>Function DaysOfMonth
>Lpara tnMonth, tnYear
>*-- have to pass the year also as parameter to find out if is a leap year
>
>do case
> case tnMonth=1
> return 31
> case tnMonth=2
> if mod(tnYear,4)=0 &&leap year
> return 29
> else
> return 28
> endif
> case tnMonth=3
> return 31
>etc...
>etc...
>endcase


I TOOK A PEAK AT WHAT I DID FOR #OFDAYS -
MY WAY, YOU MUST TAKE IN CONSIDERATION THE NEXT MONTH PAST 12
IS 1 IN NEW YEAR. THE CORRECT CODE (NOT WHAT I MENTIONED BEFORE):
dWHEN= {2/12/96}
? DAY(CTOD(str(IIF((Month(dWHEN)+1 > 12),1,(Month(dWHEN)+1)));
+"/01/";
+Alltrim(SUBSTR(STR(IIF((Month(dWHEN)+1 > 12),;
Year(dWHEN)+1,Year(dWHEN))),7,4)))-1)

PAULS RIGHT- BEWARE of how SET DATE

Ed B