An error in the formula - it should be:

FUNCTION DayInMonth
LPARAMETERS pnMonth
RETURN DAY(GOMONTH(CTOD(TRANSFORM(pnMonth)+"/01/"+TRANSFORM(YEAR())),1)-1)

Should use CTOD() rather than DTOC()...