Constante EULER

[manus]

Buenas,

Puede que la pregunte sea fácil, pero no encuentro... como puedo obtener el valor de la constante Euler, en visual basic?.

Gracias

[alucard2011]

Como no hay un archivo ejemplo solo te pongo el codigo

Sub Euler()
    ActiveCell.FormulaR1C1 = "=EXP(1)"
End Sub[/php]

[ioyama]

Hola manus

¿Constante o número?

Si es el número la opción de alucard2011 te puede valer

Si se trata de la constante (gamma).... entre las funciones de excel está GAMMA.LN, pero no tengo ni idea de si es lo que buscas.

Un saludo desde Vitoria

[Antoni]

Te dejo esta función:

Function K_EULER()
    K_EULER = 0.577215664901532
End Function


[/code]

Saludos a todos

[jrgces]

Si es la constante, lo mejor es utilizar la función que ha puesto Macro Antonio, pero si por masoquismo, por curiosidad o por cualquier otro motivo se quiere calcular usando VBA, el código podría ser algo como:

Sub prueba()
    Dim k As Double, n As Long
    For n = 1 To 100000
        k = k + (1 / n) - Log(1 + (1 / n))
    Next n
    MsgBox "Resultado del cálculo: " & k & vbNewLine & "Constante de Euler:     0,577215664901532"
End Sub
[/code]

Aquí lo importante es el número que va después de "To", puesto que cuanto más grande sea más preciso será el resultado devuelto, pagando lógicamente el precio de más tiempo de proceso. El msgbox devuelve el valor calculado y el de la constante, para poder ver las diferencias.

Saludos.