Доброго времени суток, уважаемые форумчане. В работе регулярно использую найденную на просторах сети функцию сортировки массива:
все работает нормально, достаточно в коде указать номер столбца по которому производится сортировка (Sort_Array Arr, 2 ) и все ОК. Но сейчас мне потребовалась отсортировать массив в обратном порядке, чтобы даты (во 2 столбце) располагались по убыванию. И вот никак не могу понять что надо изменить в коде (помимо имени функции) чтобы так было?
Заранее спасибо всем откликнувшимся.
Код |
---|
Function Sort_Array(ByRef x(), n As Long) 'функция сортировки массивов Dim st As Long, d As Long, f As Long, u As Long, v As Variant If IsArray(x) Then f = LBound(x): d = f For u = f + 1 To UBound(x) If x(u, n) < x(d, n) Then For st = 1 To UBound(x, 2) v = x(d, st): x(d, st) = x(u, st): x(u, st) = v Next st u = d - 1: d = u - 1: If u < f Then d = u: u = f End If d = d + 1 Next u End If End Function |
Заранее спасибо всем откликнувшимся.