luis_ballesteros
01 de Junio del 2005

hola buenos dias, mi problema es el siguiente:
en una caja de texto tengo alamacenada la hora ejemplo: 09:55:30 a.m. eso me aparece cuando tecleo la clave de un usuario y en una caja de etxto me parace la fecha pero en ese omento que me parece la fecha y otros datos quiero que aparezca un mensaje de saludo por ejmeplo Buenos dias, si ya es en latarde que sean buenas tardes y en la novhe que diga buenas noches como le puedi hacer espero que alguien me ayude, gracias.

atte:
Ludwig

solidsnake©
01 de Junio del 2005

Pues para mi la validacion seria que si tienes la hora solo la valides con IF
dias = > 04 am < 12
Tardes >12 < 18
Noches > 18 y < 24

Los rangos pueden variar

Valida Hora sub
'teniendo en una variable la hora
if hora > 04 and < 12 then
mensaje = "buenos dias"
else
if hora > 12 and < 18 then
mensaje = "buenas tardes"
else
mensaje = "buenas Noches"
end if
End if

No se se me ocurrio asi podria funcionarte si pones que la hora sea desde 00:00:00 hasta 23:59:59
Saludos

luis_ballesteros
01 de Junio del 2005

ya lo hice y me marca error en la linea que aparezaca con *

y me dice llamada a procedimiento o argumentoo no valida.

Dim hra As Integer
* hra = Mid(TxtEntrada, 0, 2)
If hra >= 12 And hra < 12 Then
MsgBox "Buenos dias", vbInformation, "Mensaje del sistema"
Call Estado1
Else
If hra >= 12 And hra < 8 Then
MsgBox "Buenas tardes", vbInformation, "Mensaje del sistema"
Call Estado1
Else
If hra >= 8 And hra < 12 Then
MsgBox "Buenas noches", vbInformation, "Mensaje del sistema"
Call Estado1
End If
End If
End If

checa mi codijo y dime donde esta el posible error si no es mucha molestia por favor gracias

solidsnake©
01 de Junio del 2005

ahh se me olvido que

Hora = mid (cajatexto hora, 0,2)
para asi tener la hora

luis_ballesteros
01 de Junio del 2005

Ok. muchisimas gracias te lo adradezco mushisimo tHanks you brother
good look