Нахождение max значения текстового поля

[IraPr]

Здравствуйте!помогите пожалуйста с текстовым полем в таблице, которое имеет значения:
1Т8/1
1Т8/2р
1Т8/54
1Т10/1
1Т10/6
5Г89/1
5Г89/2
5Г89/3
5Г89/4р
мне необходимо по заданным первым символам включая / найти максимальное значение, тоесть введя 1Т8/ какой-то переменной присваивалось максимальное значение этого поля - 1Т8/54!
незнаю как это реализовать, помогите пожалуйста!Заранее спасибо!

[R Dmitry]

Сообщение от IraPr

Здравствуйте!помогите пожалуйста с текстовым полем в таблице, которое имеет значения:
1Т8/1
1Т8/2р
1Т8/54
1Т10/1
1Т10/6
5Г89/1
5Г89/2
5Г89/3
5Г89/4р
мне необходимо по заданным первым символам включая / найти максимальное значение, тоесть введя 1Т8/ какой-то переменной присваивалось максимальное значение этого поля - 1Т8/54!
незнаю как это реализовать, помогите пожалуйста!Заранее спасибо!

Здравствуйте,IraPr
2р,4р-? это вроде не числа их игнорировать? и приложите пример
...да еще если будет 1Т8/55р -Это будет макс значением ?

[Teslenko_EA]

Здравствуйте IraPr.
Не совсем понятно (читать - совсем не понятно) что значит выражение: "..по заданным первым символам .. максимальное значение .. поля - 1Т8/54.."?

Евгений.

[IraPr]

Например, по заданному полю 1Т8/54-надо выбрать из все значение, которые начинаются на 1Т8/
и найти максимальное значение после /

1Т8/54 или 1Т8/5К- больше будет 1Т8/54
Букву последнюю не рассматриваем вообще, преобразуя в число.
s = заданное поле
k = InStr(s, "/")
t = Mid(s, k + 1)
p = Val(t)
незнаю как должно дальше!

[R Dmitry]

Сообщение от IraPr

Например, по заданному полю 1Т8/54-надо выбрать из все значение, которые начинаются на 1Т8/
и найти максимальное значение после /

1Т8/54 или 1Т8/5К- больше будет 1Т8/54
Букву последнюю не рассматриваем вообще, преобразуя в число.
s = заданное поле
k = InStr(s, "/")
t = Mid(s, k + 1)
p = Val(t)
незнаю как должно дальше!

последняя буква всегда р или есть варианты ?

[Teslenko_EA]

Здравствуйте IraPr.
задача решается с применением подобной функции:

Public Function toSort(F) As String
Const s0 = "000": F = F & ""
Dim v$(): toSort = s0
If IsArray(Split(F, "/")) Then v = Split(F, "/"): toSort = Right(s0 + v(1), 3)
End Function

используется подобным образом: select * from Table1 order by toSort(F1)

Евгений.