Supressing current month's data for February in a leap year 1

[jeffm777]

Hey guys. I need to supress the current month from a report so it only shows completed months on the report. I have this in my record selection but how do I compensate
for February on leap years?

local datevar endDate;
if month(currentdate) = 1 then
endDate := date(year(currentdate)-1,12,31)
else
if month(currentdate) = 2 then
endDate := date(year(currentdate),1,31)
else
if month(currentdate) = 3 then
endDate := date(year(currentdate),2,28)
else
if month(currentdate) = 4 then
endDate := date(year(currentdate),3,31)
else
if month(currentdate) = 5 then
endDate := date(year(currentdate),4,30)
else
if month(currentdate) = 6 then
endDate := date(year(currentdate),5,31)
else
if month(currentdate) = 7 then
endDate := date(year(currentdate),6,30)
else
if month(currentdate) = 8 then
endDate := date(year(currentdate),7,31)
else
if month(currentdate) = 9 then
endDate := date(year(currentdate),8,31)
else
if month(currentdate) = 10 then
endDate := date(year(currentdate),9,30)
else
if month(currentdate) = 11 then
endDate := date(year(currentdate),10,31)
else
if month(currentdate) = 12 then
endDate := date(year(currentdate),11,30);

{SalesClass.RecDate} >= Date (Year(currentdate)-3, 01, 01) and {SalesClass.RecDate} <= endDate

 

[IanWaterman]

Change your formula to

endDate := dateadd("m", 1,date(year(currentdate), month(currentdate),01))-1

No need to test for each month.

Ian

 

[jeffm777]

It's not working...says the remaining text does not appear to be part of the formula. Here is my complete record selection...

local datevar endDate;

endDate := dateadd("m", 1,date(year(currentdate), month(currentdate),01))-1

{SalesClass.RecDate} >= Date (Year(currentdate)-3, 01, 01) and {SalesClass.RecDate} <= endDate and
{SalesClass.HomeYard} = {?Yard} and
{SalesClass.DeptNum} = {?Departments}

 

[fisheromacse]

you need an 'AND' after Ian's formula & before your {SalesClass.......

 

[IanWaterman]

YOu need a semi colon ; at the end of my formula.

Ian

 

[fisheromacse]

DoH!
ignore my post.
i need to caffeinate before posting.
sorry

 

[IanWaterman]

Also you do not reall have to use a variable

{SalesClass.RecDate} >= Date (Year(currentdate)-3, 01, 01) and
{SalesClass.RecDate} <= dateadd("m", 1,date(year(currentdate), month(currentdate),01))-1
and
{SalesClass.HomeYard} = {?Yard} and
{SalesClass.DeptNum} = {?Departments}

 

[jeffm777]

Worked perfectly!!! Thanks Ian!