 IsrraelZaid
23 posts | | Tema: consulta entre dos dias - Fecha: 2007-11-22 17:27
Visto: 125 veces - Respuestas: 2 - Tema nº: 2483458 | Estado: Mensaje cerrado.
Características: Windows XP Profesional, Pentium IV Sempron AMD 3100 HDD 40GB 512RAM.
como puedo comparar dos horas especificas contenidas en dos cajas de texto? Lo que quiero hacer es especificar a mi programa (Control de Asistencia) lo siguiente:
Si llega antes de las 7:35 am = asistencia conforme
Si llega entre las 7:35 am y 7:40 am = tardanza
Si llega pasado las 7:40 am = falta
Estoy trabajando en visual basic y base de datos acces
Gracias
Saludos
Isrrael
que la hora de entraga es hasta las 7:30 de la mañana, si llega entre las 7:30 hasta la 7:35
|
 ebolo
1.304 posts | | Tema: consulta entre dos dias - Fecha: 2007-11-22 17:56
Hola de nuevo. Prueba a usar la función DateDiff(.....). Mira la ayuda del VB.
msgbox DateDiff("n", "07:35", "07:40")
te daría una diferencia de 5 minutos
msgbox DateDiff("n", "07:40", "07:35")
te daría una diferencia de -5 minutos
Es una idea más.
Un saludo.
|
IsrraelZaid
23 posts | | Tema: consulta entre dos dias - Fecha: 2007-11-28 00:55
Gracias por el apoyo, pero no pude utilizar la funcion que me sugirieron, pero quisiera dejar esta sugerencia para los que se encuentren con este problema.
Lo solucione asi:
LblHoraSis.Visible = False
LblHoraSis.Caption = Time
If TimeValue(LblHoraSis) > TimeValue(#1:00:00 AM#) And _
TimeValue(LblHoraSis) < TimeValue(#7:35:00 AM#) Then
'Temprano
End If
If TimeValue(LblHoraSis) > TimeValue(#7:35:01 AM#) And _
TimeValue(LblHoraSis) < TimeValue(#7:40:00 AM#) Then
'Tardanza
End If
If TimeValue(LblHoraSis) > TimeValue(#7:40:01 AM#) Then
MsgBox "Ausencia"
End If
Espero que les sirva.
Saludos
Isrrael Zaid  |
|
|
|
