*-- Ejemplo: ? DiasDelMes({07/10/2002}) ? DiasDelMes(DATE()) *------------------------------------------------ * FUNCTION DiasDelMes(dFecha) *------------------------------------------------ * Retorna los días de un mes. *------------------------------------------------ FUNCTION DiasDelMes(dFecha) LOCAL ld ld = GOMONTH(dFecha,1) RETURN DAY(ld - DAY(ld)) ENDFUNC *------------------------------------------------