Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Lukas
Три на выбор. Первая наверное удобнее, так как аргументом у нее маршрут:

Public Function funCustomChargeByWay(Way) As Currency     If InStr(1, Way, "Москва") > 0 Or InStr(1, Way, "Минск") > 0 Then         funCustomChargeByWay = 0     Else         funCustomChargeByWay = 5.5     End If End Function Public Function funCustomChargeByTown(Town) As Currency     If Town = "Москва" Or Town = "Минск" Then         funCustomChargeByTown = 0     Else         funCustomChargeByTown = 5.5     End If End Function Public Function funCustomCharge(Town)     Select Case Town         Case "Москва", "Минск"             funCustomCharge = 0         Case "Вильнюс", "Рига", "Харьков"             funCustomCharge = 5.5         Case Else             funCustomCharge = "Такого города не знаю"     End Select End Function