mensajes en visual
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
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
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
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
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
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
ahh se me olvido que
Hora = mid (cajatexto hora, 0,2)
para asi tener la hora
Hora = mid (cajatexto hora, 0,2)
para asi tener la hora