ISRefSeriesPercentile.Data

Example

Display the number of reference series, the number of sub series and some information about their percentiles, including the sequence of data values assigned to them.

Dim aReferenceSeriesCollection
Dim aReferenceSeries
Dim aRefSeriesSubSeries
Dim aRefSeriesPercentile
Dim aData
Dim aValuesStr  
Dim aMessage
Dim i, j, a, k     

Set aReferenceSeriesCollection = Profile.GetReferenceSeriesCollection

aMessage = "Reference Series Count = " & aReferenceSeriesCollection.Count & vbNewLine

for i = 0 to aReferenceSeriesCollection.Count - 1
  set aReferenceSeries = aReferenceSeriesCollection.Item (i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
    "Series Name: " & aReferenceSeries.SeriesName & " (" &_
    "SubSeries Count = " & aReferenceSeries.SubSeriesCount & ")" & vbNewLine 
  
  for j = 0 to aReferenceSeries.SubSeriesCount - 1
    set aRefSeriesSubSeries = aReferenceSeries.SubSeries(j)
    aMessage = aMessage  & "-" & (i + 1) & "." & (j + 1) &_
      " Name: " & aRefSeriesSubSeries.Name & " (Percentiles Count = " &_
      aRefSeriesSubSeries.PercentileCount & ")" & vbNewLine
            
    for a = 0 to aRefSeriesSubSeries.PercentileCount - 1
      set aRefSeriesPercentile = aRefSeriesSubSeries.Percentiles(a)
      set aData = aRefSeriesPercentile.Data
      
      aValuesStr = ""
     
      for k = 0 to aData.Count - 1
        aValuesStr = aValuesStr & aData.Values(k) & ", "
      next 'k       
            
      aMessage = aMessage & (i + 1) & "." & (j + 1) & "." & (a + 1) & ". " &_
        "Percentile Name: " & aRefSeriesPercentile.Name & vbNewLine &_
        "          Order: " & aRefSeriesPercentile.Order & vbNewLine &_
        "          Data Count: " & aData.Count & vbNewLine &_
        "          Data Values: " & aValuesStr & vbNewLine 
    next 'a  
  next 'j        
next 'i 

Profile.MsgBox(aMessage)