Content-Type: text/plain;
    charset="iso-8859-1"

X-MIME-Autoconverted: from 8bit to quoted-printable by ul1.satlink.com id OAA08910

Alejo:

Te mando un control .OCX que desarrollé para evaluar expresiones.

Propiedades:
Expresion: String que se desea evaluar
Resultado: Valor resultante (Variant). Puede devolver Numeros, Fechas,
string, etc.
Error: Texto del error en la expresión o evaluación.

Eventos:
EvaluarFuncion(NombreDeFuncion As String, Param() As Variant, CantParam As
Integer, Resultado As Variant)

Este evento se llama cada vez que el parser encuentra un símbolo que no
reconoce. La forma de usarlo es interpretar el símbolo, tomar los
parámetros, evaluar dentro del evento y devolver el resultado:
p.e:

    Select Case NombreDeFuncion
        Case "x": Resultado = 10
    End Select

Este evento no funciona en tiempo de diseño.

Las funciones que soporta son:

pi, now, date, time, sin, cos, tan, exp, atn, abs, fix, int, log, rnd, sgn,
sqr, asc, chr, format, hex, oct, str, val, iif

Hay un truco para evaluar usando el DAO:

    Dim DB As Database
    Dim RS As Recordset
    Set DB = opendatabase()
    Set RS = DB.OpenRecordset("select top 1 as resultado from
")
    Debug.Print RS("Resultado")
    RS.Close
    DB.Close

es una Base de Datos cualquiera
es una tabla cualquiera de la B.D.
es la expresión que deseas evaluar

Peky

 pkevalua.zip