sebastian
01 de Julio del 2004

hola, nesecito solucionar el siguente problema:

tengo un text donde semuestran uno por ves distintos numeros. ejemplo: 1,2,3,4,5,6,7,8,9,0.
el problema esta en que nesecito que si el text es igual a 1 digito que le agrege un sero adelante, asi queda , ejemplo: 01,02,03,etc. pero que no lo haga con un 10, 45, 199, etc.

gracias

jhon
01 de Julio del 2004

haber que te parece:

Private Sub Command1_Click()
dim num as string
num=cstr(text1.text)

if len(num)=1 then
num= "0" & num
end if
text1.text=num
end sub

Saludos

Luis
01 de Julio del 2004

Exelente, pero lo trato de hacer con una máscara y no me resulta (con un rut, o sea, por ejemplo: 11.111.111-1 pero poner un 0 delante cuando sea _1.111.111-1 y que quede 01.111.111-1)

sebastian
01 de Julio del 2004

Gracias. funciona una joya !!!!