Visual Basic - Problema con Fecha

Life is soft - evento anual de software empresarial
   
Vista:

Problema con Fecha

Publicado por CaloxVnZ (35 intervenciones) el 25/03/2011 17:16:43
Buenas amigos !! tengo un problema con las fechas ! Uso un control llamado DTpicker uso una instruccion para validar q el usuario no eliga fechas anteriores q la de hoy pero al introducir la fecha actual me lo toma como si fuec menor, me explico con la instruccion

Private Sub DTFecha_LostFocus()
If DTFecha < Now Then
MsgBox "La Fecha No Puede Ser Inferior a la de Hoy...!", vbInformation, "Aviso"
DTFecha.SetFocus
End If
End Sub


Cualquier ayuda posible se les agradec !!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de A.H.H

Problema con Fecha

Publicado por A.H.H (116 intervenciones) el 25/03/2011 20:19:35
Hola esto te servira en el evento change:



Private Sub DTFecha_Change()
If DTFecha < Now Then
MsgBox "La Fecha No Puede Ser Inferior a la de Hoy...!", vbInformation, "Aviso"
DTFecha.Value = Now
End If
End Sub

salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de A.H.H

Problema con Fecha

Publicado por A.H.H (116 intervenciones) el 25/03/2011 22:06:49
Vale, creo que entendi que tambien quieres que cuando se despliega el calendario no se pueda elegir una fecha menor que la de la actual, en ese caso tambien tienes que usar el evento click y poner lo mismo, te he hecho unos cambios, y los dos eventos te quedarian asi:

Private Sub DTFecha_Change()
If DTFecha < Now Then
DTFecha.Value = Now
MsgBox "La Fecha No Puede Ser Inferior a la de Hoy...!", vbInformation, "Aviso"
Else
DTFecha.Value = DTFecha.Value
End If
End Sub

Private Sub DTFecha_Click()
If DTFecha < Now Then
DTFecha.Value = Now
MsgBox "La Fecha No Puede Ser Inferior a la de Hoy...!", vbInformation, "Aviso"
Else
DTFecha.Value = DTFecha.Value
End If
End Sub


espero te sirva....si es menor no te deja pero si es mayor o igual a la actual si te deja......
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problema con Fecha

Publicado por CaloxVnZ (35 intervenciones) el 25/03/2011 20:25:21
Muchas gracias.. Pero aun no funciona.. de esa forma me da el mensaje "La Fecha No Puede Ser Inferior a la de Hoy...!", y me permite colocar todas las fecha !!

Q otra idea se te ocurre ????

salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de A.H.H

Problema con Fecha

Publicado por A.H.H (116 intervenciones) el 25/03/2011 22:10:03
Vale, creo que entendi que tambien quieres que cuando se despliega el calendario no se pueda elegir una fecha menor que la de la actual, en ese caso tambien tienes que usar el evento click y poner lo mismo, te he hecho unos cambios, y los dos eventos te quedarian asi:

Private Sub DTFecha_Change()
If DTFecha < Now Then
DTFecha.Value = Now
MsgBox "La Fecha No Puede Ser Inferior a la de Hoy...!", vbInformation, "Aviso"
Else
DTFecha.Value = DTFecha.Value
End If
End Sub

Private Sub DTFecha_Click()
If DTFecha < Now Then
DTFecha.Value = Now
MsgBox "La Fecha No Puede Ser Inferior a la de Hoy...!", vbInformation, "Aviso"
Else
DTFecha.Value = DTFecha.Value
End If
End Sub


espero te sirva....si es menor no te deja pero si es mayor o igual a la actual si te deja......
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problema con Fecha

Publicado por CaloxVnZ (35 intervenciones) el 26/03/2011 03:08:00
Aunque escojo la fecha y me aparec el mensaje pero me permite continuar , me fue muy util tu ayuda muchas Gracias, desde Venezuela se te saluda y agradec tu ayuda.. !!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de A.H.H

Problema con Fecha

Publicado por A.H.H (116 intervenciones) el 26/03/2011 09:09:04
Hola, a que te refieres con me deja continuar.....
Segun lo que te entendi es que deseas que el usuario elige fechas mayores a la del dia actual, y segun el codigo que te mostre, no le deja al usuario escoger fechas inferiores.
Si quisieras salir de la subrutina usa un exit sub dentro del IF.


SALU2 desde IRUN (España)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problema con Fecha

Publicado por CaloxVnZ (35 intervenciones) el 26/03/2011 23:04:13
Todo esta bien ! a lo q me refiero es q cuando ingreso la fecha actual me manda el mensaje como cuando inserto una fecha inferior.. El problema lo solucione con tu respuesta.. Me sirvio de mucho
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problema con Fecha

Publicado por Pedro Luis (128 intervenciones) el 28/03/2011 09:03:53
No entiendo por usas Now usa Date
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problema con Fecha

Publicado por CaloxVnZ (35 intervenciones) el 30/03/2011 05:27:44
Todo bien ya solucione con tu ayuda ! Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar