Здравствуйте!
Подскажите пож-та, в коде работаю с несколькими массивами, в последствии нужно отсортировать каждый. Хотел сделать через функцию, на входе массив, на выходе он же, но отсортированный (по определенному полю).
Вот код:
Private Type myType 'пользовательский тип данных
st As String
dt As Date
End Type
Private Sub CommandButton1_Click()
Dim mas_1() As myType, mas_2() As myType, mas_3() As myType
ReDim Preserve mas_1(2) As myType
mas_1(1).dt = "01.02.2023"
mas_1(1).st = "строка_1"
mas_1(2).dt = "01.01.2023"
mas_1(2).st = "строка_2"
mas_1 = sort_mas(mas_1)
End Sub
'функция сортировки массива по полю дата
Public Function sort_mas(ByRef mas As myType) As myType
Dim i As Byte
i = i
sort_mas = mas
End Function
компилятор выдает ошибку. Как правильно написать и можно ли передавать значения массивов функции?
Спасибо.