.
lee los temás pegados, sobre winsock cuando tengas una duda concreta se te ayudara, mas no se te hara.
Dulces Lunas!¡.
lee los temás pegados, sobre winsock cuando tengas una duda concreta se te ayudara, mas no se te hara.
Dulces Lunas!¡.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: 79137913 en 16 Febrero 2011, 12:05 PM
HOLA!!!
Creo que ya terminamos...
Comprobacion de numeros de Fibonacci Enteros (+/-):
Unico Participante 79137913
Call VBA.SaveSetting("InfraAPP", "Autor", "BlackZeroX", "Miguel Angel Ortega Avila")
MsgBox VBA.GetSetting("InfraAPP", "Autor", "BlackZeroX")
Cita de: tonomac3 en 15 Febrero 2011, 15:56 PM
Para ser un poco menos acido que mis anteriores, te doy un consejo. No uses exel con vb. Usa una base de datos(access)que va a andar mejor con vb y es mas dinamica
Public Function IsFibonacci_WithCache(ByRef vVal As Long) As Boolean
Dim lng_i As Long
Dim var_cache()
var_cache() = Array(0, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946, 17711, 28657, 46368, 75025, 121393, 196418, 317811, 514229, 832040, 1346269, 2178309, 3524578, 5702887, 9227465, 14930352, 24157817, 39088169, 63245986, 102334155, 165580141, 267914296, 433494437, 701408733, 1134903170, 1836311903)
For lng_i = 0 To UBound(var_cache)
If var_cache(lng_i) = vVal Then IsFibonacci_WithCache = True: Exit For
Next lng_i
End Function