*------------------------------------------------ FUNCTION _EOM(dFecha) *------------------------------------------------ * Return EndOfMonth * USO: _EOM(DATE()) * RETURN: Date *------------------------------------------------ LOCAL ld ld = GOMONTH(dFecha,1) RETURN ld - day(ld) ENDFUNC *------------------------------------------------