Comarar Horas Ayuda!!
Publicado por Alex (119 intervenciones) el 08/04/2006 05:55:34
Por favor necesito que alguien me diga por favor como hacer comparaciones entre horas, pues lo que tengo que hacer es que aparezca el asistente en el formulario y que al tiempo diga un mensaje de bienvenida, y dependiendo de la hora que sea, es el saludo que va a decir, por ejemplo si son las 8 de la noche debe de decir "Buenas noches y el nombre de la persona" pero siempre se brinca todas las comparaciones y no dice el saludo, si alguien me puede ayudar por favor, estare esperando su respuesta, gracias...
'Llamamos al asistente
Call llamarMerli
'hacemos que el asistente haga una seria de actividades al iniciar
If (Time <= "7:59:59 PM" And Time >= "12:00:00 PM") Then
Merspeak = "Buenas Tardes " & nombre_usuario
ElseIf (Time >= "8:00:00 PM" And Time <= "11:59:59 PM") Then
Merspeak = "Buenas Noches " & nombre_usuario
ElseIf (Time >= "12:00:00 AM" And Time < "11:59:59 AM") Then
Merspeak = "Buenos Días " & nombre_usuario
End If
anunciarMerli
hablarMerli
Merspeak = ""
'_______________________________________________________________________
Me.Refresh
'Llamamos al asistente
Call llamarMerli
'hacemos que el asistente haga una seria de actividades al iniciar
If (Time <= "7:59:59 PM" And Time >= "12:00:00 PM") Then
Merspeak = "Buenas Tardes " & nombre_usuario
ElseIf (Time >= "8:00:00 PM" And Time <= "11:59:59 PM") Then
Merspeak = "Buenas Noches " & nombre_usuario
ElseIf (Time >= "12:00:00 AM" And Time < "11:59:59 AM") Then
Merspeak = "Buenos Días " & nombre_usuario
End If
anunciarMerli
hablarMerli
Merspeak = ""
'_______________________________________________________________________
Me.Refresh
Valora esta pregunta


0