dateVar array LastDatesArray := [ date( 2011 , 06 , 30 ), date( 2011 , 07 , 31 )]

numbervar i;
for i := 2010   to  2015  step  1  do 
(
i;
);

EvaluateAfter({@WPC_Date});
WhilePrintingRecords;
Shared DateVar Array ListLastDayOfMonths;
Local numberVar ArrNum:= 0 ;
Local numberVar yyyy;
Local numberVar mm;

for yyyy:=year({@WPC_Date})- 1  to year({@WPC_Date}) do
    (
        for mm:= 1  to  12  do
        (
            if (yyyy < year({@WPC_Date})) or (yyyy = year({@WPC_Date}) and month({@WPC_Date}) > mm) then
                (
                    ArrNum:= ArrNum+ 1 ;
                    Redim Preserve ListLastDayOfMonths[ArrNum];
                    ListLastDayOfMonths[ArrNum]:=date(DateAdd ('m' , 1 , date("01."+cstr(mm,0,"")+"."+cstr(yyyy,0,"")) - day(date("01."+cstr(mm,0,"")+"."+cstr(yyyy,0,""))) + 1) - 1);
                );
        )
    );