Programación General > Visual Basic 6.0 e inferiores

 Ayuda!! No Coinciden Tipos?

<< < (2/2)

althenna:
aaaaaaaah ya hice esos cambios pero sigo teniendo problemas pero creo saber ke puedo hacer, tengo que agregar ceros a la izqquiera para que tengan la misma longitud

mil gracias

edit perdon por el doble post me esta fallando el internet T_T por favor algguien borre el otro

F_Tanori:
Puedes usar FORMAT

Ej.


--- Código: Text --- Private Sub Command1_Click()Numero=200 resultado = Format(Numero, &#34;00000000&#34;) End Sub 
Saludos

althenna:
nunca eh usado el format y lo aplique como tu ejemplo pero siguen los mismos problemas T_T que lata

--- Código: Text --- nami = num1.Textnamy = num2.Text     nami2 = Format(nami, &#34;0000000000&#34;)    namy2 = Format(namy, &#34;0000000000&#34;)  
por que no nos lo pidieron en delphi  :(  ya lo ubiera terminado (no es que sea fregona pero esto es facil a mi parecer sabiendo las funciones)

F_Tanori:
La variable que resulta  debe ser cadena

dim nami2 as string

nami2 = Format(nami, "0000000000")

porque si es numerico y le agregas ceros a la izquierda los elimina :P


Saludos

althenna:
XD gracias pero tambien hize otro codigo para rellenar los espacios jeje igual gracias <3


--- Código: Text --- long1 = Len(num1.Text)long2 = Len(num2.Text)tempo = 0  ' se les agrega un extra 0 por signotempichan.Text = 0tempichan2.Text = 0  nami = num1.Text namy = num2.Text  If long1 &#60; long2 Then     grande = long2     dife = long2 - long1       For ini = 1 To dife         tempichan.Text = tempichan.Text & 0       Next Else      grande = long1      dife = long1 - long2       For ini = 1 To dife         tempichan2.Text = tempichan2.Text & 0       Next End If  tempichan.Text = tempichan.Text & nami tempichan2.Text = tempichan2.Text & namy  
siendo tempichan y tempichan2 nuevos textbox  no podia esperar ;)

Navegación

[0] Índice de Mensajes

[*] Página Anterior