Arraysort

Private Sub MultiDimSort(Arr(), intNumDim, intSortDim)
' Arr() e' una matrice multidimensionale

' intNumDim e' il numero di dimensioni che compongono la matrice

' intSortDim e' la dimensione sulla quale deve essere ordinata

' la matrice

Dim I As Integer
Dim J As Integer
Dim Z As Integer
Dim intFirst As Integer
Dim intLast As Integer
Dim vanValue() As Variant
'

ReDim vanValue(intNumDim)
intFirst = LBound(Arr, intSortDim)
intLast = UBound(Arr, intSortDim)
'

For I = intFirst To intLast - 1
For J = I + 1 To intLast
If Arr(I, intSortDim) < Arr(J, intSortDim) Then
For Z = 1 To intNumDim
vanValue(Z) = Arr(I, Z)
Next
For Z = 1 To intNumDim
Arr(I, Z) = Arr(J, Z)
Next
For Z = 1 To intNumDim
Arr(J, Z) = vanValue(Z)
Next
End If
Next
Next
End Sub