formato de fecha en un textbox

[edel_junior]

hola
necesito controlar el formato de la fecha en un texbos asi
el formato de fecha para el campo en la base de datos es dd/mm/aa
y lo que quiero es controlar que el usuario no tenga necesidad de digitar los / es decir que si el usuario digita los primeros dos numero estos que en este caso deverian corresponder al dia entonces aparesca enseguida el / y asi el usuario teclee el mes osea lo basico es que el usuario notenga que teclear los /
por ejemplo para digitar 20/09/85 el usuario solo tenga que digitar 200985
pero aparesca en el textbox asi 20/09/85
no se si tengo que utilizar otro control pero no tengo la mas minima idea de como hacerlo ok
si existe algun control para los formatos de fecha entonces ense;enme que para eso estamos
chao y gracias

[David]

Iniciado por edel_junior

hola
necesito controlar el formato de la fecha en un texbos asi
el formato de fecha para el campo en la base de datos es dd/mm/aa
y lo que quiero es controlar que el usuario no tenga necesidad de digitar los / es decir que si el usuario digita los primeros dos numero estos que en este caso deverian corresponder al dia entonces aparesca enseguida el / y asi el usuario teclee el mes osea lo basico es que el usuario notenga que teclear los /
por ejemplo para digitar 20/09/85 el usuario solo tenga que digitar 200985
pero aparesca en el textbox asi 20/09/85
no se si tengo que utilizar otro control pero no tengo la mas minima idea de como hacerlo ok
si existe algun control para los formatos de fecha entonces ense;enme que para eso estamos
chao y gracias

Es demasiado fácil, hazlo así:

Código:

Private Sub Text1_Change()
If Len(Text1) = 2 Or Len(Text1) = 5 Then
      Text1 = Text1 & "/"
      Text1.SelStart = Len(Text1)
End If
End Sub

Nos vemos....

[David]

O también puedes hacerlo con Format.....

[GeoAvila]

podes intentar con un maskedit.. tambien y colocar el formato de fecha que queres, aunque el format me suena mejor a mi..

nos vemos..

[lucasiramos]

O si no, utilizar un DTPicker... No necesitas de validación y es mas intuitivo...

Saludos. Lucas

[edel_junior]

hola muy bien ya consegui solucionar ese problemaahora quisiera hacer esto.....
por ejemplo
el mes tiene 31 dias maxiomos como hago para controlar que no pase de eso lo mismo en el mes no puede sobrepasar el 12 ahora tambien quiero que cuando el usuario digite un digito asi que digite 4 inmediatamente se rellenea la izquierda con 0 deve quedar 04 ok o asi si se requiere que digite 6 caracteres en un textbox y el digita el numero 12 se deve completar automaticamente los demas caracteres a la izquierda con 0 (000012) ok espero que me entiendan y respondan
bye

[David]

Iniciado por edel_junior

hola muy bien ya consegui solucionar ese problemaahora quisiera hacer esto.....
por ejemplo
el mes tiene 31 dias maxiomos como hago para controlar que no pase de eso lo mismo en el mes no puede sobrepasar el 12 ahora tambien quiero que cuando el usuario digite un digito asi que digite 4 inmediatamente se rellenea la izquierda con 0 deve quedar 04 ok o asi si se requiere que digite 6 caracteres en un textbox y el digita el numero 12 se deve completar automaticamente los demas caracteres a la izquierda con 0 (000012) ok espero que me entiendan y respondan
bye

Primero dime si quieres aplicar el formato que dijiste (por ejemplo el del 000012) mientras el usuario escribe o al pasarlo a la Bd....

[edel_junior]

es cuando el usuario esta digitando porque existe un control en el text para que solo acpte 6 caracteres ni mas ni menos y se tiene que rellenar con cero si escribe 20 osea esa es la idea

[David]

Espera un momento que te busco la solución....

[hernanmdq]

Por si no te diste cuenta, Podes usar DTPicher, que es un control en el cual no tenes que controlar nada, solo lo usas y listo el problema. El componete que agregas es el "Microsoft Windows Common Control-2 6.0", o si todabia seguis con la idea, mandame un mail y te mando un control en el cual escribis la fecha manualmente, seguro lo viste en algun programa es mas o menos asi --/--/-- y a medida que escribis las barra se mantiene, mientras se llenan los espacios.

Saludos. Hernan

[edel_junior]

que huvo ya le mande el correo a hotmail espero queme envie el control y ademas como logro rellenar con 0 ala izquierda asi el campo admite solamente 4 digitos pero si digita tres tendria que rellenar el primero con cero entiende
gracias

[lucasiramos]

Iniciado por hernanmdq

Podes usar DTPicher

Aja? Y sirve para jugar al beisbol?
Jejeje, bromita Hernan, bromita.

[jballnet]

usa esto
privae sub text1_lostfocus ()
if Len(text1.text)< 4 then
String(4 - Len(text1.text), "0") & text1.text
end if
end sub
No es malo no saber lo malo es no preguntar