ник: Lukas
Если немного изменить функцию, она будет возвращать не строку, а результат выражения:
Public Function funResultat(aValue, bValue, cValue, strFormula As String)
Dim strLitera As String
Dim i As Integer
Dim strResultat As String
If Len(strFormula) > 0 Then
For i = 1 To Len(strFormula)
strLitera = Mid(strFormula, i, 1)
Select Case strLitera
Case Is = "a"
strResultat = strResultat & aValue
Case Is = "b"
strResultat = strResultat & bValue
Case Is = "c"
strResultat = strResultat & cValue
Case Else
strResultat = strResultat & strLitera
End Select
Next i
funResultat = Eval(strResultat)
Else
funResultat = 0
End If
End Function
|
Обрабатывает так-же скобки и возведение в степень.