Calcular el útimo día del mes

Rutina para calcular el útimo día del mes.

GOMONTH(CTOD("01/"+STR(MONTH(tdfecha),2)+"/"+STR(YEAR(tdfecha),4)),1)-1

Se puede implementar en una rutina de la siguiente manera:

FUNCTION ultiames
PARAMETERS tdfecha
LOCAL ldret
ldret = GOMONTH(CTOD("01/"+STR(MONTH(tdfecha),2)+"/"+STR(YEAR(tdfecha),4)),1)-1
RETURN ldret 
 

Pablo Roca