Cantidad de días de un mes

Función para calcular la cantidad de días de un mes, pasando como parámetro una fecha correspondiente a dicho mes.

Ejemplo:

? DiasDelMes(DATE(2014,10,07))
? 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
*------------------------------------------------

Luis María Guayán