Quizas sea muy simple, pero en fin:
Imaginemos que tengo esto:
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$()? :huh:
Gracias! ;D
DoEvents¡! :P
left, mid :xD
Que gracioso... :¬¬
Espero ayuda coherente.... :silbar:
DoEvents¡! :P
Chapucero, pero es cuestión de probar:
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 ;)
Gracias aaronduran2! ;)
Pero obvio que asi tambien lo se hacer... :P
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¡! :P
Leeré un poco más ese tema, no me había parado a verlo detenidamente.
Un saludo ;)
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...
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
Citar/
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?¿ :huh:
Gracias! ;)
DoEvents¡! :P
Si, es lo que estamos hablando, trabajar con numeros/bits en vez de con cadenas... el codigo que te he puesto trabaja con bits...
Ok gracias, me informare!! ;)
Te debo muchas! :-* :laugh:
DoEvents¡! :P
y si usas split? :P
Tambien, pero la duda ya esta resuelta queria hacerlo como puso Karcrack ;)
DoEvents¡! :P