Number of days into a month 1

[pmscraiova]

I want to find out the number of days into a month. For exemple, how many days are in february this year (but next year?). Sorry for my english...
Thank you, Eugen Fintina

 

[rgbean]

This seems to work:

*FUNCTION DatesinMonth
LPARAMETERS p_nYear, p_nMonth
LOCAL ldDate
IF PCOUNT() < 2 OR VARTYPE(p_nMonth) <> &quot;N&quot;
	p_nMonth = MONTH(DATE())
ENDIF
IF PCOUNT() < 1 OR VARTYPE(p_nYear) <> &quot;N&quot;
	p_nYear = YEAR(DATE())
ENDIF
ldDate = DATE(p_nYear, p_nMonth, 1)

RETURN (GOMONTH(ldDate,1)-ldDate)

examples:
?daysinmonth()
?daysinmonth(2002)
?daysinmonth(2000,2)
?daysinmonth(2001,2)
?daysinmonth(1900,2)

Rick

 

[pmscraiova]

Rick, thank you very much. It works...

 

[dgrewe]

Here is a smaller different version that operates off a date parameter

http://ibs.internationalbid.net/home/dave/code_html/mld.html

David W. Grewe
Dave@internationalbid.com

 

[Steve Bowman]

I just use:

day({03/01/2002}-1)

note {03/01/2002} I just use the first day of the next month minus 1 this will always return the last day of any month and will work for leap year and any other date business, even a small function that takes month,year would be

function daysofmonth
parameter n_month,n_year

rvalue=day(ctod(alltrim(str(n_month+1))+'/01/'+alltrim(str(n_year)))-1)

note we increase the passed month by one and always use the note first then -1 works every time a slight vareation
note would return the date of the end of the month for
note report dates that need to know the end of month date

return (rvalue)
endfunc
Steve Bowman
steve.bowman@wayservices.com

 

[rgbean]

Steve,
Doesn't this fail for Decembers?

Rick

 

[Steve Bowman]

you are correct, you would have to check for 12 then increase n_year by 1 and change n_month to 1

or just always return 31 if n_month=12
Thanks

function daysofmonth
parameter n_month,n_year

if n_month=12
n_year=n_year+1
n_month=1
endif

rvalue=day(ctod(alltrim(str(n_month+1))+'/01/'+alltrim(str(n_year)))-1)


return (rvalue)
endfunc

thanks
Steve Bowman
steve.bowman@wayservices.com