hay una funcion cuartil o quartile en access?

[Joel]

Hola, alguien sabe si en ACCESS (i.e 2003) existe o se puede agregar la
función CUARTIL o QUARTILE?

Nota: Se que existe en EXCEL pero no la encuentro en ACCESS.

[Emilio]

--------------------------------------------------------------------------
¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
--------------------------------------------------------------------------
Hola!
no la hay, pero puedes usar la de Excel

'*******************************************************************************
'* Cuartil
'* devuelve el cuartil de un conjunto de datos
'* hay que establecer una referencia a Microsoft Excel 1X.0 Object Library
'* Argumentos: bytCuartil => indica el valor que se devolverá
'* 0 Valor mínimo
'* 1 El primer cuartil (percentil 25)
'* 2 El valor de la mediana (percentil 50)
'* 3 El tercer cuartil (percentil 75)
'* 4 Valor máximo
'* Datos() => Matriz de parámetros con los números a analizar
'* uso: Cuartil
'* ESH 11/06/08 23:46
'*******************************************************************************

Function Cuartil(bytCuartil As Byte, ParamArray Datos() As Variant) As
Single
Cuartil = WorksheetFunction.Quartile(Datos(), bytCuartil)
End Function ' Cuartil

Sub prueba()
Dim Datos() As Variant
Datos = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0)
Debug.Print Cuartil(4, Datos())
End Sub

Saludos a tod@s

Emilio [MS-MVP Access 2006/8]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"Joel" <Jo...@discussions.microsoft.com> escribió en el mensaje
news:DB1AA244-FA98-4F55...@microsoft.com...

[Joel]

Gracias Emilio, ya habia trabajado con esta función en Excel. Pero, ahora
quisiera usar esta función directo en access.

Saludos.
Joel.

[Emilio]

:-))

Saludos a tod@s

Emilio [MS-MVP Access 2006/8]
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio

"Joel" <Jo...@discussions.microsoft.com> escribió en el mensaje

news:1BDDF805-BEAD-4E24...@microsoft.com...