 Autor
|
Tema: Recortar número (Leído 5,036 veces)
|
Psyke1
Wiki
 Desconectado
Mensajes: 1.089
|
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$()?  Gracias!  DoEvents¡! 
|
|
|
|
« Última modificación: 10 Agosto 2010, 03:12 am por *PsYkE1* »
|
En línea
|
|
|
|
Sanlegas
Desconectado
Mensajes: 131
https://fbcdn-sphotos-e-a.akamaihd.net/hphotos-ak-
|
left, mid 
|
|
|
|
|
En línea
|
|
|
|
Psyke1
Wiki
Desconectado
Mensajes: 1.089
|
Que gracioso...  Espero ayuda coherente....  DoEvents¡! |
|
|
|
|
En línea
|
|
|
|
|
aaronduran2
|
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  |
|
|
|
|
En línea
|
|
|
|
|
|
|
aaronduran2
|
Leeré un poco más ese tema, no me había parado a verlo detenidamente. Un saludo |
|
|
|
|
En línea
|
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
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...
|
|
|
|
|
En línea
|
|
|
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
Si, es lo que estamos hablando, trabajar con numeros/bits en vez de con cadenas... el codigo que te he puesto trabaja con bits...
|
|
|
|
|
En línea
|
|
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
como recortar margenes a pdf
Dudas Generales
|
estenick
|
0
|
5,987
|
22 Mayo 2011, 15:45 pm
por estenick
|
|
|
|
[RETO] Recortar cadena.
« 1 2 »
Programación Visual Basic
|
Psyke1
|
14
|
7,699
|
29 Octubre 2011, 02:22 am
por BlackZeroX
|
|
|
|
El Gobierno planea recortar drásticamente el número de canales en la TDT
« 1 2 »
Noticias
|
wolfbcn
|
12
|
5,536
|
28 Marzo 2012, 01:00 am
por B€T€B€
|
|
|
|
Recortar caracteres
« 1 2 »
.NET (C#, VB.NET, ASP)
|
Eliza_loaeza
|
11
|
8,889
|
23 Octubre 2015, 10:56 am
por Eleкtro
|
|
|
|
Recortar imagenes
Diseño Gráfico
|
huerto123
|
1
|
6,254
|
12 Octubre 2020, 01:14 am
por EdePC
|
 |
