23/10/2006, 10:45
|
| | | Fecha de Ingreso: octubre-2006 Ubicación: En la mitad del mundo
Mensajes: 37
Antigüedad: 18 años, 6 meses Puntos: 0 | |
| Hola roortiz. Bueno, esto es lo más que te puedo ayudar.
Defines la siguiente función:
Private Function MyVal(s As String) As Double
Dim xl As Object
Set xl = CreateObject("excel.application")
xl.Workbooks.Add
xl.ActiveCell.Formula = "=" & s
MyVal = xl.ActiveCell.Value
xl.ActiveWorkbook.Close savechanges:=False
xl.Quit
Set xl = Nothing
End Function
y al llamarle le envias como parámetro la expresion que quieres evaluar, el único problema es que no se la puedes enviar directamente como
viene de la BD, sino que tienes que enviarle los valores numericos que quieres calcular (Ejm: "2+3").
No sería más fácil si guardaras en tu BD las variables y el operador(es) por separado?
Puedes encontrar la información completa referente a esta función en :
"//support.microsoft.com/default.aspx?scid=kb%3Bes%3B159974"
anteponiendo el "http", lo que sucede es que todavia no puedo enviar enlaces.
Saludos |