6 de marzo de 2000

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

No hay comentarios. :

Publicar un comentario