<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<meta name="description" content="VB6Parse Library Reference - partition - Graphics">
<title>partition - Graphics - VB6Parse Library Reference</title>
<link rel="stylesheet" href="../../../assets/css/style.css">
<link rel="stylesheet" href="../../../assets/css/docs-style.css">
<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/highlight.js/11.9.0/styles/github-dark.min.css">
<script src="../../../assets/js/theme-switcher.js"></script>
<script src="https://cdnjs.cloudflare.com/ajax/libs/highlight.js/11.9.0/highlight.min.js"></script>
<script src="https://cdnjs.cloudflare.com/ajax/libs/highlight.js/11.9.0/languages/vbnet.min.js"></script>
<script>hljs.highlightAll();</script>
</head>
<body>
<header class="docs-header">
<div class="container">
<h1><a href="../../../index.html">VB6Parse</a> / <a href="../../../library/index.html">Library</a> / <a href="../../../library/functions/graphics/index.html">Graphics</a> / partition</h1>
<p class="tagline">VB6 Library Reference</p>
</div>
</header>
<nav class="docs-nav">
<div class="container">
<a href="../../../index.html">Home</a>
<a href="../../../library/index.html">Library Reference</a>
<a href="../../../documentation.html">Documentation</a>
<a href="https://docs.rs/vb6parse" target="_blank">API Docs</a>
<a href="https://github.com/scriptandcompile/vb6parse" target="_blank">GitHub</a>
<button id="theme-toggle" class="theme-toggle" aria-label="Toggle theme">
<span class="theme-icon">🌙</span>
</button>
</div>
</nav>
<main class="container">
<article class="library-item">
<h1 id="partition-function">Partition Function</h1>
<p>Returns a String indicating where a number occurs within a calculated series of ranges.</p>
<h2 id="syntax">Syntax</h2>
<pre><code class="language-vbnet">Partition(number, start, stop, interval)</code></pre>
<h2 id="parameters">Parameters</h2>
<ul>
<li><code>number</code> - Required. Whole number that you want to locate within one of the ranges.</li>
<li><code>start</code> - Required. Whole number that is the start of the overall range of numbers. Cannot be less than 0.</li>
<li><code>stop</code> - Required. Whole number that is the end of the overall range of numbers. Cannot be equal to or less than <code>start</code>.</li>
<li><code>interval</code> - Required. Whole number that indicates the size of each range from <code>start</code> to <code>stop</code>. Cannot be less than 1.</li>
</ul>
<h2 id="return-value">Return Value</h2>
<p>Returns a <code>String</code> describing the range in which <code>number</code> falls. The format is:
- <code>"lowerbound:upperbound"</code> for ranges within the series
- <code>" :lowerbound-1"</code> for values less than <code>start</code>
- <code>"upperbound+1: "</code> for values greater than <code>stop</code></p>
<h2 id="remarks">Remarks</h2>
<p>The <code>Partition</code> function divides a range of numbers into smaller intervals and returns a string
describing which interval contains a given number. This is particularly useful for creating
frequency distributions, histograms, and grouping data into bins.
The function creates ranges starting at <code>start</code> and ending at <code>stop</code>, with each range having
a width of <code>interval</code>. The returned string always has the same width for both the lower and
upper boundaries, padded with leading spaces as needed. This ensures consistent formatting
when building reports or tables.
For example, if <code>start</code> is 0, <code>stop</code> is 100, and <code>interval</code> is 10, the function creates
ranges: 0:9, 10:19, 20:29, etc., plus special ranges for values below 0 (":–1") and
above 100 ("101:").
The width of each number in the returned string is calculated based on the number of digits
in <code>stop</code> plus 1. This ensures all ranges align properly in columnar displays.</p>
<h2 id="typical-uses">Typical Uses</h2>
<ol>
<li><strong>Frequency Distribution</strong>: Creating frequency tables for statistical analysis</li>
<li><strong>Histogram Generation</strong>: Grouping data into bins for histogram charts</li>
<li><strong>Age Group Analysis</strong>: Categorizing people into age brackets (0-9, 10-19, etc.)</li>
<li><strong>Sales Range Reports</strong>: Grouping sales figures into ranges for analysis</li>
<li><strong>Performance Banding</strong>: Categorizing test scores or metrics into performance bands</li>
<li><strong>Data Binning</strong>: Organizing continuous data into discrete categories</li>
<li><strong>Time Period Grouping</strong>: Grouping timestamps into hour, day, or week ranges</li>
<li><strong>Price Range Analysis</strong>: Categorizing products by price ranges</li>
</ol>
<h2 id="basic-examples">Basic Examples</h2>
<h3 id="example-1-simple-partition">Example 1: Simple Partition</h3>
<pre><code class="language-vbnet">Dim range As String
range = Partition(15, 0, 100, 10) ' Returns " 10: 19"
range = Partition(5, 0, 100, 10) ' Returns " 0: 9"
range = Partition(95, 0, 100, 10) ' Returns " 90: 99"</code></pre>
<h3 id="example-2-frequency-distribution">Example 2: Frequency Distribution</h3>
<pre><code class="language-vbnet">' Count how many values fall in each range
Dim values(100) As Integer
Dim frequency As Collection
Dim i As Integer
Dim range As String
Set frequency = New Collection
' Populate with sample data
For i = 0 To 100
values(i) = Int(Rnd * 100)
Next i
' Count frequencies
For i = 0 To 100
range = Partition(values(i), 0, 99, 10)
' Increment count for this range
Next i</code></pre>
<h3 id="example-3-age-grouping">Example 3: Age Grouping</h3>
<pre><code class="language-vbnet">Function GetAgeGroup(age As Integer) As String
' Group ages into decades
GetAgeGroup = Partition(age, 0, 100, 10)
End Function
' Usage
Debug.Print GetAgeGroup(25) ' Returns " 20: 29"
Debug.Print GetAgeGroup(5) ' Returns " 0: 9"</code></pre>
<h3 id="example-4-out-of-range-values">Example 4: Out of Range Values</h3>
<pre><code class="language-vbnet">Dim range As String
range = Partition(-5, 0, 100, 10) ' Returns " : -1" (below start)
range = Partition(150, 0, 100, 10) ' Returns "101: " (above stop)</code></pre>
<h2 id="common-patterns">Common Patterns</h2>
<h3 id="pattern-1-buildfrequencytable">Pattern 1: <code>BuildFrequencyTable</code></h3>
<pre><code class="language-vbnet">Function BuildFrequencyTable(values() As Integer, start As Long, _
stop As Long, interval As Long) As Collection
Dim i As Integer
Dim range As String
Dim count As Long
Dim freq As Collection
Set freq = New Collection
' Initialize all ranges to 0
For i = start To stop Step interval
range = Partition(i, start, stop, interval)
On Error Resume Next
freq.Add 0, range
On Error GoTo 0
Next i
' Count occurrences
For i = LBound(values) To UBound(values)
range = Partition(values(i), start, stop, interval)
On Error Resume Next
count = freq(range)
freq.Remove range
freq.Add count + 1, range
On Error GoTo 0
Next i
Set BuildFrequencyTable = freq
End Function</code></pre>
<h3 id="pattern-2-generatehistogram">Pattern 2: <code>GenerateHistogram</code></h3>
<pre><code class="language-vbnet">Sub GenerateHistogram(values() As Integer, start As Long, _
stop As Long, interval As Long)
Dim i As Integer
Dim range As String
Dim counts As Object
Dim currentRange As String
Set counts = CreateObject("Scripting.Dictionary")
' Count frequencies
For i = LBound(values) To UBound(values)
range = Partition(values(i), start, stop, interval)
If Not counts.Exists(range) Then
counts.Add range, 0
End If
counts(range) = counts(range) + 1
Next i
' Display histogram
Debug.Print "Range", "Count", "Chart"
Debug.Print String(50, "-")
For Each currentRange In counts.Keys
Debug.Print currentRange, counts(currentRange), _
String(counts(currentRange), "*")
Next currentRange
End Sub</code></pre>
<h3 id="pattern-3-classifyvalue">Pattern 3: <code>ClassifyValue</code></h3>
<pre><code class="language-vbnet">Function ClassifyValue(value As Long, start As Long, _
stop As Long, interval As Long) As String
Dim range As String
range = Partition(value, start, stop, interval)
If InStr(range, ":") = 1 Then
ClassifyValue = "Below Range"
ElseIf Right(range, 1) = ":" Then
ClassifyValue = "Above Range"
Else
ClassifyValue = "In Range: " & Trim(range)
End If
End Function</code></pre>
<h3 id="pattern-4-getrangeboundaries">Pattern 4: <code>GetRangeBoundaries</code></h3>
<pre><code class="language-vbnet">Sub GetRangeBoundaries(partitionStr As String, _
ByRef lower As Long, ByRef upper As Long)
Dim parts() As String
parts = Split(partitionStr, ":")
If UBound(parts) = 1 Then
On Error Resume Next
lower = CLng(Trim(parts(0)))
upper = CLng(Trim(parts(1)))
On Error GoTo 0
End If
End Sub
' Usage: GetRangeBoundaries(" 20: 29", lower, upper) ' lower=20, upper=29</code></pre>
<h3 id="pattern-5-analyzedatadistribution">Pattern 5: <code>AnalyzeDataDistribution</code></h3>
<pre><code class="language-vbnet">Function AnalyzeDataDistribution(data() As Variant) As String
Dim minVal As Long, maxVal As Long
Dim i As Long
Dim report As String
Dim range As String
Dim counts As Object
' Find min and max
minVal = data(LBound(data))
maxVal = data(LBound(data))
For i = LBound(data) + 1 To UBound(data)
If data(i) < minVal Then minVal = data(i)
If data(i) > maxVal Then maxVal = data(i)
Next i
' Build frequency table
Set counts = CreateObject("Scripting.Dictionary")
For i = LBound(data) To UBound(data)
range = Partition(data(i), minVal, maxVal, (maxVal - minVal) \ 10)
If Not counts.Exists(range) Then counts.Add range, 0
counts(range) = counts(range) + 1
Next i
' Build report
report = "Data Distribution:" & vbCrLf
For Each range In counts.Keys
report = report & range & ": " & counts(range) & vbCrLf
Next range
AnalyzeDataDistribution = report
End Function</code></pre>
<h3 id="pattern-6-validatepartitionparameters">Pattern 6: <code>ValidatePartitionParameters</code></h3>
<pre><code class="language-vbnet">Function ValidatePartitionParameters(start As Long, stop As Long, _
interval As Long) As Boolean
ValidatePartitionParameters = False
If start < 0 Then
MsgBox "Start must be >= 0"
Exit Function
End If
If stop <= start Then
MsgBox "Stop must be > start"
Exit Function
End If
If interval < 1 Then
MsgBox "Interval must be >= 1"
Exit Function
End If
ValidatePartitionParameters = True
End Function</code></pre>
<h3 id="pattern-7-createrangelabels">Pattern 7: <code>CreateRangeLabels</code></h3>
<pre><code class="language-vbnet">Function CreateRangeLabels(start As Long, stop As Long, _
interval As Long) As String()
Dim labels() As String
Dim count As Long
Dim i As Long
Dim index As Long
count = (stop - start) \ interval + 3 ' +3 for below, above, and safety
ReDim labels(0 To count)
index = 0
For i = start To stop Step interval
labels(index) = Partition(i, start, stop, interval)
index = index + 1
Next i
ReDim Preserve labels(0 To index - 1)
CreateRangeLabels = labels
End Function</code></pre>
<h3 id="pattern-8-countinrange">Pattern 8: <code>CountInRange</code></h3>
<pre><code class="language-vbnet">Function CountInRange(values() As Variant, targetRange As String, _
start As Long, stop As Long, interval As Long) As Long
Dim i As Long
Dim count As Long
count = 0
For i = LBound(values) To UBound(values)
If Partition(values(i), start, stop, interval) = targetRange Then
count = count + 1
End If
Next i
CountInRange = count
End Function</code></pre>
<h3 id="pattern-9-getrangemidpoint">Pattern 9: <code>GetRangeMidpoint</code></h3>
<pre><code class="language-vbnet">Function GetRangeMidpoint(partitionStr As String) As Double
Dim lower As Long, upper As Long
Dim parts() As String
parts = Split(partitionStr, ":")
If UBound(parts) = 1 Then
On Error Resume Next
lower = CLng(Trim(parts(0)))
upper = CLng(Trim(parts(1)))
If Err.Number = 0 Then
GetRangeMidpoint = (lower + upper) / 2
End If
On Error GoTo 0
End If
End Function</code></pre>
<h3 id="pattern-10-groupbyrange">Pattern 10: <code>GroupByRange</code></h3>
<pre><code class="language-vbnet">Function GroupByRange(values() As Variant, start As Long, _
stop As Long, interval As Long) As Object
Dim groups As Object
Dim i As Long
Dim range As String
Dim groupItems As Collection
Set groups = CreateObject("Scripting.Dictionary")
For i = LBound(values) To UBound(values)
range = Partition(values(i), start, stop, interval)
If Not groups.Exists(range) Then
Set groupItems = New Collection
groups.Add range, groupItems
End If
groups(range).Add values(i)
Next i
Set GroupByRange = groups
End Function</code></pre>
<h2 id="advanced-usage">Advanced Usage</h2>
<h3 id="example-1-statistical-analysis-tool">Example 1: Statistical Analysis Tool</h3>
<pre><code class="language-vbnet">' Comprehensive statistical analysis using Partition
Class StatisticalAnalyzer
Private m_data() As Double
Private m_binCount As Long
Private m_minValue As Double
Private m_maxValue As Double
Public Sub LoadData(data() As Double)
Dim i As Long
ReDim m_data(LBound(data) To UBound(data))
m_minValue = data(LBound(data))
m_maxValue = data(LBound(data))
For i = LBound(data) To UBound(data)
m_data(i) = data(i)
If data(i) < m_minValue Then m_minValue = data(i)
If data(i) > m_maxValue Then m_maxValue = data(i)
Next i
End Sub
Public Property Let BinCount(value As Long)
If value > 0 Then m_binCount = value
End Property
Public Function GetFrequencyDistribution() As Object
Dim freq As Object
Dim i As Long
Dim interval As Long
Dim range As String
Dim start As Long, stop As Long
Set freq = CreateObject("Scripting.Dictionary")
start = Int(m_minValue)
stop = Int(m_maxValue)
interval = (stop - start) \ m_binCount
If interval < 1 Then interval = 1
For i = LBound(m_data) To UBound(m_data)
range = Partition(Int(m_data(i)), start, stop, interval)
If Not freq.Exists(range) Then
freq.Add range, 0
End If
freq(range) = freq(range) + 1
Next i
Set GetFrequencyDistribution = freq
End Function
Public Function GetHistogramData() As Object
Dim histogram As Object
Dim freq As Object
Dim range As Variant
Dim item As Object
Set freq = GetFrequencyDistribution()
Set histogram = CreateObject("Scripting.Dictionary")
For Each range In freq.Keys
Set item = CreateObject("Scripting.Dictionary")
item.Add "Range", range
item.Add "Count", freq(range)
item.Add "Percentage", (freq(range) / UBound(m_data)) * 100
histogram.Add range, item
Next range
Set GetHistogramData = histogram
End Function
Public Function GenerateReport() As String
Dim report As String
Dim histogram As Object
Dim range As Variant
Dim maxCount As Long
Dim barWidth As Long
Set histogram = GetHistogramData()
' Find max count for scaling
maxCount = 0
For Each range In histogram.Keys
If histogram(range)("Count") > maxCount Then
maxCount = histogram(range)("Count")
End If
Next range
report = "Frequency Distribution Report" & vbCrLf
report = report & String(60, "=") & vbCrLf
report = report & "Data Points: " & UBound(m_data) + 1 & vbCrLf
report = report & "Min Value: " & m_minValue & vbCrLf
report = report & "Max Value: " & m_maxValue & vbCrLf
report = report & String(60, "-") & vbCrLf
report = report & "Range Count Pct Chart" & vbCrLf
report = report & String(60, "-") & vbCrLf
For Each range In histogram.Keys
barWidth = Int((histogram(range)("Count") / maxCount) * 30)
report = report & range & " " & _
Format(histogram(range)("Count"), "0000") & " " & _
Format(histogram(range)("Percentage"), "00.0") & "% " & _
String(barWidth, "#") & vbCrLf
Next range
GenerateReport = report
End Function
Public Function GetModeRange() As String
' Find the range with the highest frequency
Dim freq As Object
Dim range As Variant
Dim maxCount As Long
Dim modeRange As String
Set freq = GetFrequencyDistribution()
maxCount = 0
For Each range In freq.Keys
If freq(range) > maxCount Then
maxCount = freq(range)
modeRange = range
End If
Next range
GetModeRange = modeRange
End Function
End Class</code></pre>
<h3 id="example-2-sales-performance-analyzer">Example 2: Sales Performance Analyzer</h3>
<pre><code class="language-vbnet">' Analyze sales performance by grouping into performance bands
Module SalesAnalyzer
Private Type SalesRecord
SalesPerson As String
Amount As Currency
Date As Date
End Type
Public Function AnalyzeSalesPerformance(sales() As SalesRecord) As String
Dim i As Long
Dim minSale As Currency, maxSale As Currency
Dim interval As Currency
Dim performanceBands As Object
Dim range As String
Dim report As String
Dim totalSales As Long
' Find range
minSale = sales(LBound(sales)).Amount
maxSale = sales(LBound(sales)).Amount
For i = LBound(sales) To UBound(sales)
If sales(i).Amount < minSale Then minSale = sales(i).Amount
If sales(i).Amount > maxSale Then maxSale = sales(i).Amount
Next i
' Create 5 performance bands
interval = Int((maxSale - minSale) / 5)
If interval < 1 Then interval = 1
Set performanceBands = CreateObject("Scripting.Dictionary")
' Categorize sales
totalSales = UBound(sales) - LBound(sales) + 1
For i = LBound(sales) To UBound(sales)
range = Partition(Int(sales(i).Amount), Int(minSale), _
Int(maxSale), interval)
If Not performanceBands.Exists(range) Then
performanceBands.Add range, 0
End If
performanceBands(range) = performanceBands(range) + 1
Next i
' Generate report
report = "Sales Performance Analysis" & vbCrLf
report = report & String(50, "=") & vbCrLf
report = report & "Total Sales: " & totalSales & vbCrLf
report = report & "Range: $" & Format(minSale, "#,##0") & _
" - $" & Format(maxSale, "#,##0") & vbCrLf
report = report & String(50, "-") & vbCrLf
For Each range In performanceBands.Keys
report = report & "Range " & range & ": " & _
performanceBands(range) & " sales (" & _
Format((performanceBands(range) / totalSales) * 100, "0.0") & _
"%)" & vbCrLf
Next range
AnalyzeSalesPerformance = report
End Function
Public Function GetPerformanceLevel(amount As Currency, _
minAmount As Currency, _
maxAmount As Currency) As String
Dim range As String
Dim interval As Currency
interval = (maxAmount - minAmount) / 5
range = Partition(Int(amount), Int(minAmount), Int(maxAmount), Int(interval))
' Convert to performance labels
Dim parts() As String
Dim lowerBound As Long
parts = Split(range, ":")
On Error Resume Next
lowerBound = CLng(Trim(parts(0)))
On Error GoTo 0
If lowerBound <= minAmount + interval Then
GetPerformanceLevel = "Needs Improvement"
ElseIf lowerBound <= minAmount + interval * 2 Then
GetPerformanceLevel = "Below Average"
ElseIf lowerBound <= minAmount + interval * 3 Then
GetPerformanceLevel = "Average"
ElseIf lowerBound <= minAmount + interval * 4 Then
GetPerformanceLevel = "Above Average"
Else
GetPerformanceLevel = "Excellent"
End If
End Function
End Module</code></pre>
<h3 id="example-3-age-demographics-tool">Example 3: Age Demographics Tool</h3>
<pre><code class="language-vbnet">' Tool for analyzing age demographics with Partition
Class AgeDemographicsAnalyzer
Private m_ages() As Integer
Private m_ageGroupSize As Integer
Public Sub Initialize(ages() As Integer, groupSize As Integer)
Dim i As Long
ReDim m_ages(LBound(ages) To UBound(ages))
For i = LBound(ages) To UBound(ages)
m_ages(i) = ages(i)
Next i
m_ageGroupSize = groupSize
End Sub
Public Function GetAgeDistribution() As Object
Dim dist As Object
Dim i As Long
Dim range As String
Set dist = CreateObject("Scripting.Dictionary")
For i = LBound(m_ages) To UBound(m_ages)
range = Partition(m_ages(i), 0, 120, m_ageGroupSize)
If Not dist.Exists(range) Then
dist.Add range, 0
End If
dist(range) = dist(range) + 1
Next i
Set GetAgeDistribution = dist
End Function
Public Function GetAgeGroupName(age As Integer) As String
Dim range As String
range = Partition(age, 0, 120, m_ageGroupSize)
Select Case m_ageGroupSize
Case 10
' Decades
If InStr(range, " 0:") > 0 Then
GetAgeGroupName = "Children (0-9)"
ElseIf InStr(range, "10:") > 0 Then
GetAgeGroupName = "Teens (10-19)"
ElseIf InStr(range, "20:") > 0 Then
GetAgeGroupName = "Twenties (20-29)"
ElseIf InStr(range, "30:") > 0 Then
GetAgeGroupName = "Thirties (30-39)"
ElseIf InStr(range, "40:") > 0 Then
GetAgeGroupName = "Forties (40-49)"
ElseIf InStr(range, "50:") > 0 Then
GetAgeGroupName = "Fifties (50-59)"
ElseIf InStr(range, "60:") > 0 Then
GetAgeGroupName = "Sixties (60-69)"
Else
GetAgeGroupName = "70+"
End If
Case Else
GetAgeGroupName = Trim(range)
End Select
End Function
Public Function GenerateDemographicsReport() As String
Dim report As String
Dim dist As Object
Dim range As Variant
Dim total As Long
Set dist = GetAgeDistribution()
total = UBound(m_ages) - LBound(m_ages) + 1
report = "Age Demographics Report" & vbCrLf
report = report & String(50, "=") & vbCrLf
report = report & "Total Population: " & total & vbCrLf
report = report & "Age Group Size: " & m_ageGroupSize & " years" & vbCrLf
report = report & String(50, "-") & vbCrLf
report = report & "Age Range Count Percentage" & vbCrLf
report = report & String(50, "-") & vbCrLf
For Each range In dist.Keys
report = report & range & " " & _
Format(dist(range), "0000") & " " & _
Format((dist(range) / total) * 100, "00.0") & "%" & vbCrLf
Next range
GenerateDemographicsReport = report
End Function
Public Function GetMedianAgeRange() As String
' Find the range containing the median age
Dim sortedAges() As Integer
Dim i As Long
Dim medianAge As Integer
' Copy and sort ages
ReDim sortedAges(LBound(m_ages) To UBound(m_ages))
For i = LBound(m_ages) To UBound(m_ages)
sortedAges(i) = m_ages(i)
Next i
' Simple bubble sort (for demonstration)
Dim temp As Integer, j As Long
For i = LBound(sortedAges) To UBound(sortedAges) - 1
For j = i + 1 To UBound(sortedAges)
If sortedAges(i) > sortedAges(j) Then
temp = sortedAges(i)
sortedAges(i) = sortedAges(j)
sortedAges(j) = temp
End If
Next j
Next i
' Get median
medianAge = sortedAges((LBound(sortedAges) + UBound(sortedAges)) \ 2)
GetMedianAgeRange = Partition(medianAge, 0, 120, m_ageGroupSize)
End Function
End Class</code></pre>
<h3 id="example-4-test-score-grading-system">Example 4: Test Score Grading System</h3>
<pre><code class="language-vbnet">' Automatic grading system using Partition
Module GradingSystem
Public Function GetLetterGrade(score As Integer) As String
Dim range As String
' Use Partition to determine grade range (0-100, intervals of 10)
range = Partition(score, 0, 100, 10)
' Convert range to letter grade
If score >= 90 Then
GetLetterGrade = "A"
ElseIf score >= 80 Then
GetLetterGrade = "B"
ElseIf score >= 70 Then
GetLetterGrade = "C"
ElseIf score >= 60 Then
GetLetterGrade = "D"
Else
GetLetterGrade = "F"
End If
End Function
Public Function AnalyzeClassScores(scores() As Integer) As String
Dim gradeDistribution As Object
Dim i As Long
Dim range As String
Dim report As String
Dim total As Long
Set gradeDistribution = CreateObject("Scripting.Dictionary")
total = UBound(scores) - LBound(scores) + 1
' Count scores in each range
For i = LBound(scores) To UBound(scores)
range = Partition(scores(i), 0, 100, 10)
If Not gradeDistribution.Exists(range) Then
gradeDistribution.Add range, 0
End If
gradeDistribution(range) = gradeDistribution(range) + 1
Next i
' Build report
report = "Class Score Distribution" & vbCrLf
report = report & String(40, "=") & vbCrLf
report = report & "Total Students: " & total & vbCrLf
report = report & String(40, "-") & vbCrLf
For Each range In gradeDistribution.Keys
report = report & range & ": " & gradeDistribution(range) & _
" (" & Format((gradeDistribution(range) / total) * 100, "0.0") & _
"%)" & vbCrLf
Next range
AnalyzeClassScores = report
End Function
Public Function GetClassStatistics(scores() As Integer) As Object
Dim stats As Object
Dim dist As Object
Dim i As Long
Dim range As String
Dim sum As Long
Dim passingCount As Long
Set stats = CreateObject("Scripting.Dictionary")
Set dist = CreateObject("Scripting.Dictionary")
sum = 0
passingCount = 0
For i = LBound(scores) To UBound(scores)
sum = sum + scores(i)
If scores(i) >= 60 Then passingCount = passingCount + 1
range = Partition(scores(i), 0, 100, 10)
If Not dist.Exists(range) Then dist.Add range, 0
dist(range) = dist(range) + 1
Next i
stats.Add "Average", sum / (UBound(scores) - LBound(scores) + 1)
stats.Add "PassingRate", (passingCount / (UBound(scores) - LBound(scores) + 1)) * 100
stats.Add "Distribution", dist
Set GetClassStatistics = stats
End Function
End Module</code></pre>
<h2 id="error-handling">Error Handling</h2>
<p>The <code>Partition</code> function can raise errors in the following situations:
- <strong>Invalid Procedure Call (Error 5)</strong>: When:
- <code>start</code> is less than 0
- <code>stop</code> is less than or equal to <code>start</code>
- <code>interval</code> is less than 1
- <strong>Type Mismatch (Error 13)</strong>: When arguments cannot be converted to whole numbers
- <strong>Overflow (Error 6)</strong>: When calculated values exceed data type limits
Always validate parameters before calling <code>Partition</code>:</p>
<pre><code class="language-vbnet">If start >= 0 And stop > start And interval >= 1 Then
range = Partition(value, start, stop, interval)
Else
MsgBox "Invalid partition parameters"
End If</code></pre>
<h2 id="performance-considerations">Performance Considerations</h2>
<ul>
<li>The <code>Partition</code> function is very fast for individual calls</li>
<li>String formatting overhead is minimal but can add up with millions of calls</li>
<li>For large datasets, consider caching partition ranges if the same parameters are used</li>
<li>Dictionary/Collection operations for frequency counting are generally efficient</li>
<li>Sorting large arrays for statistical analysis can be slow; consider alternative algorithms</li>
</ul>
<h2 id="best-practices">Best Practices</h2>
<ol>
<li><strong>Validate Parameters</strong>: Always check that start >= 0, stop > start, and interval >= 1</li>
<li><strong>Choose Appropriate Intervals</strong>: Select interval sizes that create meaningful groups</li>
<li><strong>Handle Edge Cases</strong>: Account for values below start and above stop</li>
<li><strong>Use Consistent Formatting</strong>: Leverage the automatic padding for aligned displays</li>
<li><strong>Parse Results Carefully</strong>: Remember the format includes spaces and colons</li>
<li><strong>Consider Alternatives</strong>: For simple range checks, If statements may be clearer</li>
<li><strong>Document Ranges</strong>: Clearly document the meaning of each partition range</li>
<li><strong>Test Boundaries</strong>: Verify behavior at start, stop, and interval boundaries</li>
<li><strong>Cache When Possible</strong>: If using same parameters repeatedly, cache the range labels</li>
<li><strong>Combine with Collections</strong>: Use Dictionary or Collection for frequency counting</li>
</ol>
<h2 id="comparison-with-related-functions">Comparison with Related Functions</h2>
<table>
<thead>
<tr>
<th>Function</th>
<th>Purpose</th>
<th>Returns</th>
<th>Use Case</th>
</tr>
</thead>
<tbody>
<tr>
<td><strong>Partition</strong></td>
<td>Create range labels</td>
<td>String (range description)</td>
<td>Frequency distributions, histograms</td>
</tr>
<tr>
<td><strong>Switch</strong></td>
<td>Choose from value pairs</td>
<td>Variant (matched value)</td>
<td>Simple value mapping</td>
</tr>
<tr>
<td><strong>Choose</strong></td>
<td>Pick from list by index</td>
<td>Variant (indexed item)</td>
<td>Select from fixed options</td>
</tr>
<tr>
<td><strong><code>IIf</code></strong></td>
<td>Conditional expression</td>
<td>Variant (true/false result)</td>
<td>Simple binary choices</td>
</tr>
<tr>
<td><strong>Select Case</strong></td>
<td>Multi-way branching</td>
<td>N/A (statement)</td>
<td>Complex conditional logic</td>
</tr>
</tbody>
</table>
<h2 id="platform-and-version-notes">Platform and Version Notes</h2>
<ul>
<li>Available in VBA and VB6</li>
<li>Behavior is consistent across Windows platforms</li>
<li>The returned string format is fixed and cannot be customized</li>
<li>All parameters must be whole numbers (fractional parts are truncated)</li>
<li>Maximum values limited by Long data type (approximately ±2 billion)</li>
</ul>
<h2 id="limitations">Limitations</h2>
<ul>
<li>Only works with whole numbers; fractional values are truncated</li>
<li>Cannot customize the output format (padding, separators, etc.)</li>
<li>Parameters must fit in Long data type range</li>
<li>No built-in frequency counting; must implement separately</li>
<li>String result requires parsing to extract numeric boundaries</li>
<li>Cannot specify custom labels for ranges</li>
<li>All ranges must have equal intervals (except first/last special cases)</li>
</ul>
<h2 id="related-functions">Related Functions</h2>
<ul>
<li><code>Switch</code>: Evaluates a list of expressions and returns associated value</li>
<li><code>Choose</code>: Returns a value from a list based on position</li>
<li><code>IIf</code>: Returns one of two values based on a condition</li>
<li><code>Format</code>: Formats values as strings with custom patterns</li>
<li><code>InStr</code>: Searches for substring within a string (useful for parsing Partition results)</li>
</ul>
</article>
<div style="margin-top: 3rem; padding-top: 2rem; border-top: 1px solid var(--border-color);">
<p>
<a href="index.html">← Back to Graphics</a> |
<a href="../index.html">View all functions</a>
</p>
</div>
</main>
<footer>
<div class="container">
<p>© 2024-2026 VB6Parse Contributors. Licensed under the MIT License.</p>
</div>
</footer>
</body>
</html>