Programación General > Visual Basic 6.0 e inferiores

 Como Valido La Fecha Ingresada En Un Texbox

(1/2) > >>

neorent:
hola a todos agradeceria mucho si me pueden ayudar

bueno tengo un formulario y un textbox el cual ingresan fecha en este formato dd/mm/aa y me gustaria que me explicaran o mostraran como hacer un codigo que valide que la fecha que ingresan esta bien y que no ingresen cualqui cosa
se los agradesco mucho un saludos a todos adios
 :comp:

Roll:

--- Código: Text ---If IsDate(text1.text) Then End If 
Saludos  :comp:

cpmario:
La siguientes rutinas, cambia de color al textbox, regresa al usuario al mismo TextBox y le permite solo se equivoque 2 veces, si esto sucede entonces en forma predeterminada escribe la fecha actual.


--- Código: Text --- Private Sub txtFechaDeLaHistoria_GotFocus()    txtFechaDeLaHistoria.BackColor = &HC0FFFFEnd Sub Private Sub txtFechaDeLaHistoria_LostFocus()    Static Cnt As Integer    If Not IsDate(txtFechaDeLaHistoria.Text) Then        gstrMsg = "La fecha de la nota de consulta no es válida. Ejemplo: 24/12/2005 (día/mes/año)"        MsgBox gstrMsg, vbCritical, gstrAppTitle        If txtFechaDeLaHistoria.Text = "" Then            txtFechaDeLaHistoria.Text = Format(Date, "dd/mm/yyyy")        End If        If Cnt >= 1 Then            txtFechaDeLaHistoria.Text = Format(Date, "dd/mm/yyyy")            Cnt = 0        End If        Cnt = Cnt + 1        txtFechaDeLaHistoria.SetFocus        Exit Sub    End If    txtFechaDeLaHistoria.BackColor = &H80000005End Sub  
-----------------------------------------------------------

neorent:

--- Cita de: "cpmario" --- La siguientes rutinas, cambia de color al textbox, regresa al usuario al mismo TextBox y le permite solo se equivoque 2 veces, si esto sucede entonces en forma predeterminada escribe la fecha actual.


--- Código: Text --- Private Sub txtFechaDeLaHistoria_GotFocus()    txtFechaDeLaHistoria.BackColor = &HC0FFFFEnd Sub Private Sub txtFechaDeLaHistoria_LostFocus()    Static Cnt As Integer    If Not IsDate(txtFechaDeLaHistoria.Text) Then        gstrMsg = "La fecha de la nota de consulta no es válida. Ejemplo: 24/12/2005 (día/mes/año)"        MsgBox gstrMsg, vbCritical, gstrAppTitle        If txtFechaDeLaHistoria.Text = "" Then            txtFechaDeLaHistoria.Text = Format(Date, "dd/mm/yyyy")        End If        If Cnt >= 1 Then            txtFechaDeLaHistoria.Text = Format(Date, "dd/mm/yyyy")            Cnt = 0        End If        Cnt = Cnt + 1        txtFechaDeLaHistoria.SetFocus        Exit Sub    End If    txtFechaDeLaHistoria.BackColor = &H80000005End Sub  
-----------------------------------------------------------

--- Fin de la cita ---
hola cpmario
muchas gracias por tu ayuda pero sabes solo soy un aprendis en visual y no se mucho, me gustaria si es existe la posiblidad de que mas o menos me expliques el codigo pk igual se entiende pero no se como ocuparlo jajaja :P  te agradeciria mucho si pudieses hacer algo te lo agradeceria mucho hasta luego qeu estes muy bien y gracias
 :comp:

cpmario:
Te elaboré un pequeño proyecto que muestra como funciona. Te lo adjunto en un zip.
Solo haz un clic en el botón salir.
--------------------------------------------------

 

Navegación

[0] Índice de Mensajes

[#] Página Siguiente