Aklin Nikzкод для VB6
1.
2.
3.
4.
5.
6.
Private Sub Command1_Click()
Dim e As Object
Set e = CreateObject("Excel.Application")
MsgBox e.Evaluate("1.5+2.5")
e.Quit
End Sub
для Excel VBA то же самое, только объект Excel создавать не надо
для Acces VBA использовать функцию Eval (по аналогии)
это: а) нечестно
б) привлекает внешние ресурсы
а) не согласен
б) да, это не есть хорошо, но почему бы нет?
своя функция - это бОльшая вероятность глюков, почему бы не использовать уже готовое/отлаженное решение? Тем более что совершенно не обязательно создавать объект excel каждый раз перед использованием evaluate и убивать после этого.
Можно создать его в Sub Main() и убивать при выгрузке главной формы...
И все будет работать достаточно быстро, а главное с малыми рисками поймать где нибудь единичку вместо нолика или сдвинутый разделитель разрядов...
