ник: АлексейЕ
Еще можно воспользоваться такой функцией
Public Function MaxValueInArr(strArr() As String) As String
Access.WizHook.SortStringArray strArr
MaxValueInArr = strArr(UBound(strArr))
End Function
|
Пользоваться так
Dim strMyArr() As String
strMyArr = Split("14;0;15;10;11;17;02;13", ";")
Debug.Print MaxValueInArr(strMyArr)
|
Замечание. Только для
строкового массива, т.е. как в выше указанном примере однозначные числа надо привести к двузначному формату ( 2 к 02) или же все к трехзначному...