Recortar número

[Psyke1]

Quizas sea muy simple, pero en fin:

Imaginemos que tengo esto:

Código (vb) [Seleccionar] Expandir


Dim a As Integer
Dim b as Integer

a = 2345
b = CInt(Right$(CStr(a),2))

msgbox a
msgbox b

¿Como obtengo el mismo resultado, peeeeeero sin utilizar Right$()?

Gracias!

DoEvents¡!

[Sanlegas]

left, mid  

[Psyke1]

Que gracioso...
Espero ayuda coherente....

DoEvents¡!

[aaronduran2]

Chapucero, pero es cuestión de probar:

Código (vb) [Seleccionar] Expandir

Dim a As Integer
Dim b As Integer
a = 2345
b = Mid(a, Len(a) + 1)
MsgBox b

Un saludo.

PD: ya te agregué al MSN

[Psyke1]

Gracias aaronduran2!
Pero obvio que asi tambien lo se hacer... 
Pero me referia a lo que dice Karcrack aqui:
http://foro.elhacker.net/programacion_visual_basic/snippetreto_isitprime_comprobar_si_un_numero_es_primo-t298929.0.html;msg1483010#msg1483010

DoEvents¡!

[aaronduran2]

Leeré un poco más ese tema, no me había parado a verlo detenidamente.

Un saludo

[Karcrack]

Código [Seleccionar] Expandir

    Dim a As Integer
    Dim b As Integer
     
    a = &H2345
    b = a And &HFF
     
    MsgBox Hex$(a)
    MsgBox Hex$(b)
No se si es esto lo que pides.... Este codigo lo que hace es obtener el LoByte de un Word... es decir... si el Integer es 0xBEBA devuelve 0xBA...

[Psyke1]

mmmm
No, es que me acorde de lo que me dijiste aqui:
http://foro.elhacker.net/programacion_visual_basic/snippetreto_isitprime_comprobar_si_un_numero_es_primo-t298929.0.html;msg1483010#msg1483010

/
Debes comprobar la velocidad con el proyecto compilado, si no no es de fiar... por ejemplo, el codigo de Cobein era un poco mas rapido que el mio cuando lo prove...

Para hacer tu codigo mas rapido deberias hacer la comprobacion trabajando con los bits... voy a ver si puedo hacer algo sin pasarlo a String... que eso consume mucho

Quizas ni te entendi bien, hacias referencia a lo que estoy preguntando?¿ 

Gracias! 

DoEvents¡!

[Karcrack]

Si, es lo que estamos hablando, trabajar con numeros/bits en vez de con cadenas... el codigo que te he puesto trabaja con bits...

[Psyke1]

Ok gracias, me informare!!
Te debo muchas! 

DoEvents¡!