Utilizamos Cookies de terceros para generar estadísticas de audiencia y mostrar publicidad personalizada analizando tu navegación. Si sigues navegando estarás aceptando su uso. Más información X
PortadaForo AyudaTutoriales
InicioForosForo Programación

Consulta entre dos dias

IsrraelZaid
2007-11-22 17:27 - Respuestas: 2 - Tema nº: 2483458


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

Posibles soluciones:
Consulta entre dos diasConsulta entre dos dias
 prioblema entre redes entre vista y xp prioblema entre redes entre vista y xp
Consulta+tabla+consultaConsulta+tabla+consulta
Nu n8 de 12 diasNu n8 de 12 dias
Problema con pc de dos diasProblema con pc de dos dias
ebolo

Re: Consulta entre dos dias - 2007-11-22 17:56 - Respuesta 2

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

Re: Consulta entre dos dias - 2007-11-28 00:55 - Respuesta 3

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
Página:1

Respuestas relacionadas:

Buenos diasBuenos diasForo
Conteo de diasConteo de diasForo
¡6 dias y descontando...!¡6 dias y descontando...!Foro
Programas de 30 diasProgramas de 30 diasForo
Contar dias excelContar dias excelForo
Mi w7 no restaura etc..9 dias de formateada.Mi w7 no restaura etc..9 dias de formateada.Foro
Problema con la activacion de los 30 diasProblema con la activacion de los 30 diasForo
Virus todos los diasVirus todos los diasForo
Calculo de días, mal el formatoCalculo de días, mal el formatoForo
Antivirus funcionales por 30, 60 diasAntivirus funcionales por 30, 60 diasForo
InicioSecciones
^ SubirAviso legal
Política Privacidad
Configurarequipos22 Noviembre 2024