Thanks Mario -
We need to take into account the day, this is the problem. I do however believe we have an answer.

This is what we have done:
check_out="N"
e_date=m.enterdate
t_date=m.trandate
incr_month=0
Do while check_out="N"
testMonth=Gomonth(e_date,incr_month)
If testMonth >= t_date
if testMonth = t_date
incr_month=incr_month +1
endif
if incr_month=0
incr_month=1
endif
Out="Y"
Exit
else
incr_month=incr_month +1
Loop
endif
Enddo
new_profile=incr_month


Larry