Compartir a través de

PCOUNT( ) (Función)

  • Artículo

Devuelve el número de parámetros pasados al programa, procedimiento o función definida por el usuario actualmente en uso.

PCOUNT( )

Valores devueltos

Numeric

Observaciones

PCOUNT( ) es muy útil para determinar cuantos parámetros se pasan al programa, procedimiento o función definida por el usuario actualmente en uso.

Ejemplos

El ejemplo 1 llama a un procedimiento y muestra en una ventana de espera el número de parámetros pasados.

El ejemplo 2 usa un procedimiento para mostrar el promedio de 4 valores.

Ejemplo 1

DO testpar WITH 1,2,3

PROCEDURE testpar
PARAMETERS gn1,gn2,gn3
gcMessage = 'PCOUNT( ) ='+ALLTRIM(STR(PCOUNT( )))
WAIT WINDOW (gcMessage)
RETURN

Ejemplo 2

SET TALK OFF
gnVal1 = 10
gnVal2 = 20
gnVal3 = 30
gnVal4 = 15
gnMin = getavg(gnVal1, gnVal2, gnVal3, gnVal4)
? 'Average value is '
?? gnMin

* This user-defined function permits up to 9 parameters to be passed.
* It uses the PCOUNT( ) function to determine how many
* were passed and returns the average value.

FUNCTION getavg
PARAMETERS gnPara1,gnPara2,gnPara3,gnPara4,gnPara5, ;
   gnPara6,gnPara7,gnPara8,gnPara9
IF PCOUNT( ) = 0
   RETURN 0
ENDIF
gnResult = 0
FOR gnCount = 1 to PARAMETERS( )
   gcCompare = 'gnPara' +(STR(gnCount,1))
   gnResult = gnResult + EVAL(gcCompare)
ENDFOR
gnResult = gnResult / (gnCount - 1)
RETURN gnResult

Vea también

DO | FUNCTION | LPARAMETERS | LOCAL | PARAMETERS | PARAMETERS( ) | PRIVATE | PROCEDURE | PUBLIC | SET UDFPARMS