Progress - Cantidad de dias de un mes

Necesito el comando o una función para extraer el numero de de días de un mes.

/* Podrías hacer algo así: */

DEFINE VARIABLE dtFecha AS DATE NO-UNDO.
DEFINE VARIABLE iMes AS INTEGER NO-UNDO.
DEFINE VARIABLE iDia AS INTEGER NO-UNDO.
DEFINE VARIABLE iCont AS INTEGER NO-UNDO.

dtFecha = TODAY.
iMes = MONTH(dtFecha).
iDia = DAY(dtFecha).

DO iCont = iDia TO 31:
dtFecha = dtFecha + 1.
IF MONTH(dtFecha) <> iMes THEN DO:
iDia = iCont.
LEAVE.
END.
END.

MESSAGE "Los dias del mes " iMes " son " iDia
VIEW-AS ALERT-BOX INFO BUTTONS OK TITLE "Fecha".

/* Lo metes en un procedimiento o en una función y listo. */

Gracias, es lo andaba buscando.

/************ Visualiza los dias del mes de hoy *********/
DEF VAR DIAS-MES AS INT FORMAT "99" EXTENT 12
INITIAL [31,28,31,30,31,30,31,31,30,31,30,31] NO-UNDO.

display dias-mes[month(today)].

Muchas gracias.

/*------------------------------------------------------------------------
File : LastDay.p
Purpose : Permite dar el Día Ultimo del mes.
Deacuerdo a los parametros de Mes y Año.

Syntax : Run Func\LastDay.p (Mes,Año, Output LastDay).

Author(s) :Charly
Created :04/09/2000
Notes :
----------------------------------------------------------------------*/
/* This .W file was created with the Progress AppBuilder. */
/*----------------------------------------------------------------------*/

/* *************************** Definitions ************************** */
DEFINE INPUT PARAMETER pMes AS INTEGER NO-UNDO.
DEFINE INPUT PARAMETER pAnio AS INTEGER NO-UNDO.
DEFINE OUTPUT PARAMETER pFecha_Dia_Ultimo AS DATE NO-UNDO.

IF pMes = 12 THEN
ASSIGN pFecha_Dia_Ultimo = DATE(INTEGER(pMes), 31, INTEGER(pAnio)).
ELSE
ASSIGN pFecha_Dia_Ultimo = DATE(INTEGER(pMes) + 1, 1, INTEGER(pAnio)) - 1.

muchas gracias por la ayuda me sirvio de mucho.

DEF VAR fechaO AS date init date("15/02/2004").
des var fechaNueva as date.
int var dias as int.

fechaO = ADD-INTERVAL ( fechaO, 1, 'months').

fechaNueva = ADD-INTERVAL (date("01/" +month( fechaO) + "/" + year(fechaO) ), -1, 'days').

Este codigo funciona, considera que i-v define el mes, y para el año puede ser el año corriente o el que quieras...