Mensajes

[@79137913]

Mi función y la de 79137913 solo es valida hasta 46340... (estoy trabajando en ello)

@79137913
Las varibles donde estan declaradas?

@BlackZer0x

Tu funcion tiene Horrores de logica básica ( Conversion de un Double a un Integer ).

Creo que te equivocas, lo que hago es comprobar si el resultado es un número exacto o no, de esta manera :

Si tengo el numero 234.365 seria :

Código (vb) [Seleccionar] Expandir


234.365 - 234 = 0 ' Falso (el número 234.365 NO es entero)
Pero si es el numero 456 :

Código (vb) [Seleccionar] Expandir


456 - 456 = 0 ' Verdadero (el número 456 es entero)

DoEvents!

Feliz San Calentín!

DoEvents!

Ya, pero bueno, con funciones, los resultados son más o menos coherentes...
Será cosa del CallByNameEx() !

DoEvents!

Caca!, si testeo con CTiming me gana... mi clase esta mal (?)
Quizas hacer una funcion que llame a la clase perdia tiempo asi??

DoEvents!

[@Karcrack]

@Karcrack
Mismos resutlados... 

DoEvents!

Lo pongo así:

Código (vb) [Seleccionar] Expandir


Private c As New Class1

Public Function GetFilevbspeed(ByRef s As String) As String
   GetFilevbspeed = c.GetFile05(s)
End Function

Y estos son los resultados:

Código [Seleccionar] Expandir

================================================================================
º Contest Name : ObtenerNombreArchivo
º Explanation  : Mas claro, hechale agua
º Arguments    : C:\Documents and Settings\Llamazares\Mis documentos\Downloads\SexoDeRanas.avi
º Loops        : 10000
º Date & Hour  : 02-14-2011 <-> 21:23:28
================================================================================
Results [compiled] :
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1.- MrFrogGetFileFast                                   -> 67,317405 msec
2.- SacarFilenameE_Cv2                                  -> 69,679881 msec
3.- SacarFilenameE_C                                    -> 76,798269 msec
4.- getFileNameIgnorante                                -> 78,093355 msec
5.- getFileNameIgnoranteMODSeba                         -> 85,564123 msec
6.- GetFilename123                                      -> 95,046462 msec
7.- GetFilevbspeed                                      -> 102,299685 msec
8.- Reto_GetPatchInfo                                   -> 117,060663 msec
9.- nombre_archivoGrester                               -> 129,081305 msec
10.- Fn7913                               -> 1818,863233 msec
================================================================================
º The following functions returns incorrect results :
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1.- StripPathSeba
================================================================================
>>> Test made by cFrogContest.cls <-> Visit foro.elhacker.net <<<
================================================================================
¿No debería ser más rápida?

DoEvents!

Aquí dejo la mía:

Código (vb) [Seleccionar] Expandir

Public Static Function IsFibonacciMrFrog(ByVal lngNumber As Long) As Boolean
Dim dblRaised                                       As Double
Dim dblSum                                          As Double
Dim dblSqr                                          As Double

   dblRaised = lngNumber * lngNumber
   dblSum = dblRaised + dblRaised + dblRaised + dblRaised + dblRaised + &H4
   dblSqr = Sqr(dblSum)
   IsFibonacciMrFrog = (dblSqr - CLong(dblSqr) = &H0)
   If IsFibonacciMrFrog Then Exit Function
   dblSum = dblSum - &H8
   dblSqr = Sqr(dblSum)
   IsFibonacciMrFrog = (dblSqr - CLong(dblSqr) = &H0)
End Function

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim x           As Long
Dim s           As String

   For x = 0 To 100
       If IsFibonacciMrFrog(x) Then
           s = s & x & " "
       End If
   Next
   Debug.Print s
End Sub

Resultado:

Código [Seleccionar] Expandir

0 1 2 3 5 8 13 21 34 55 89

DoEvents!

Que malos sois justo mañana tengo examen y me poneis retos!
No me podré resistir, asi que si no es hoy por mi noche o mañana posteo algo.
Está interesante!

DoEvents!

[1 Right()2 Len()1 InstrRev()]

@Elemental Code:
No hice nada raro, compilé, ejecute y eso salió. El resultado puede tener pequeñas variaciones. Lo puedes ver tambien en el test de Black.
Repetí el test y me sale mas rápida tu segunda.

Debes tener en cuenta que a mayor número de funciones utilizadas, generalmente emplearás más tiempo.

2ª función :

Código (vb) [Seleccionar] Expandir

Right$(sPath, Len(sPath) - InStrRev(sPath, "\", Len(sPath), vbBinaryCompare))
Funciones utilizadas:
1 Right()
2 Len()
1 InstrRev()
Total : 4

1ª función :

Código (vb) [Seleccionar] Expandir

StrReverse$(Left$(StrReverse$(sPath), InStr(1, StrReverse(sPath), "\", vbBinaryCompare) - 1))
Funciones utilizadas:
3 StrReverse()
1 Left()
1 Instr()
Total : 5

DoEvents!

[@Black]

@Black
Siento no haber puesto tu función, no me fije al no poner el codigo directo en el hilo...
El inconveniente de mi clase es que todas las funciones deben tener los mismos argumentos.
Únicamente añadí la mia al test de Elemental Code.
Igual se me ocurre una version aún más rápida de hacerlo

DoEvents!