Hey..
I get a error from your code the error ocurr in thi line:
cThisMonth=PADL(INT((AT(cThisMonth,cMonths)-1)/3)+1,"0",2)
The error is:
The value, type or numbers argument is not valid for this function.
Where is the error...????