24 de febrero de 2002

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

No hay comentarios. :

Publicar un comentario