VBA中数组的百分比

Question

我想计算VBA中数组的百分位数。请帮助我

Function PercentileXl (Returns() as double, Confidence_level as double) as double 
    PercentileXl = application.worksheetfunction.percentile_exc(Returns,Confidence_level ) 
End Function