Visual Basic - fecha inteligente

Hola amigos

Nesito hacer un maskedbox que al colocar el dia y hacer enter me tire automaticamente el mes y el año con el siguiente formato dd-mm-yyyy

ojala pudieran ayudarme muchas gracias

Puedes apoyarte en las funciones:

Month(Now) y Year(Now).

Saludos

Creo que es facil. simplemente, utiliza la funcion Format y listo.
Como es:

Text1.text = Format(Date,"dd-mm-yyyy")

De esta manera, el codigo, enviara la fecha de hoy con la especificación dada.
si desea cambia la funcion Date por la variable de entrada que necesitas formatear.

Creo que es asi de facil. sin embargo, creo que es tan facil, que creo que no sea lo que preguntas.


Bueno, Acabo de releer de nuevo, y ya lo entendi.

este codigo esta en el evento key press del objeto. como lo hice en 2 min. te dejo a ti, la validacion de que se digite una fecha valida. por ejemplo: 31-09-2005 no es valido por que el mes 9 o tiene 31dias.

si no lo logras, escribeme de nuevo.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Not IsNumeric(Text1.Text) Then MsgBox "Debe digitar un numero", vbExclamation: Exit Sub
If Val(Text1.Text) < 1 Or Val(Text1.Text) > 31 Then MsgBox "Debe digitar un valor entre 1 y 31", vbExclamation: Exit Sub
Text1.Text = Text1.Text & "-" & Month(Date) & "-" & Year(Date)
SendKeys "{TAB}"
End If
End Sub

Andres-Loud_in
Medellin-Colombia

Hey como esta el clima?

Muchas gracias eso era lo que necesitaba hacer, pero hay una cosa mas:

quisiera colocar el mes de la siguiente forma 07
lo que pasa es que por ejemplo

mes = month(now) me da como resultado solo un numero por ejemplo 7

quise probar poniendole un format pero no me resulta
mes = Format(Month(Now), "mm")

ojala me puediran echar la ultima manito
gracias

Todo lo que tienes que hacer es:
mes = Format(Month(Now), "##")
Solo que este es un formato númerico que te rellena con ceros los espacios de digitos vacios.