Saltar al contenido

Constante EULER

publicado

Buenas,

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

Gracias ;)

Featured Replies

publicado

Como no hay un archivo ejemplo solo te pongo el codigo

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

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

publicado

Te dejo esta función:

Function K_EULER()
K_EULER = 0.577215664901532
End Function


[/code]

Saludos a todos

publicado

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.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.