Saludo de acuerdo a la hora
Hola, queria saber si alguien puede ayudarme.. necesito decir un saludo cuando se cierra el programa de acuerdo a la hora actual, por ej si la hora actual esta entre la 1 y las 12 que tire MsgBox("Que pases un buen dia") ahora si la hora esta entre las 12 y las 19 diria MsgBox("Buenas Tardes") y si es entre las 20 y las 24 hs dice "Buenas Noches".
Mi problema unico.. es detectar la hora actual sin minutos ni segundos ni que diga am o pm, si pongo Time me da la hora detallada, no sirve busque pero no encuentro como hacer para que tire unicament la HORA. Si pueden responderme, muchas gracias
Mi problema unico.. es detectar la hora actual sin minutos ni segundos ni que diga am o pm, si pongo Time me da la hora detallada, no sirve busque pero no encuentro como hacer para que tire unicament la HORA. Si pueden responderme, muchas gracias
encontre esto y entonces lo adapte
http://www.programacion.com/foros/32/msg/313760/
Muchas gracias igual
dejo el codigo editado
Private Sub Form_Load()
Dim lista
Dim cadena
cadena = Time
lista = Split(cadena, ":")
MsgBox (lista(0))
End Sub
http://www.programacion.com/foros/32/msg/313760/
Muchas gracias igual
dejo el codigo editado
Private Sub Form_Load()
Dim lista
Dim cadena
cadena = Time
lista = Split(cadena, ":")
MsgBox (lista(0))
End Sub
Ya lo termine, se los dejo por si alguien lo necsita xD
Private Sub Form_terminate()
Dim lista
Dim cadena
cadena = Time
lista = Split(cadena, ":")
Dim hora1
Dim hora2
hora1 = (lista(2))
hora2 = InStr(hora1, "a.m.")
If hora2 > 1 Then
If lista(0) > 0 And lista(0) < 6 Then
MsgBox ("Buenas Noches!")
End If
If lista(0) > 5 And lista(0) < 0 Then
MsgBox ("Buenos dias!")
End If
Else
If lista(0) > 0 And lista(0) < 8 Then
MsgBox ("Buenas Tardes!")
End If
If lista(0) > 7 And lista(0) < 0 Then
MsgBox ("Buenas Noches!")
End If
End If
End Sub
Private Sub Form_terminate()
Dim lista
Dim cadena
cadena = Time
lista = Split(cadena, ":")
Dim hora1
Dim hora2
hora1 = (lista(2))
hora2 = InStr(hora1, "a.m.")
If hora2 > 1 Then
If lista(0) > 0 And lista(0) < 6 Then
MsgBox ("Buenas Noches!")
End If
If lista(0) > 5 And lista(0) < 0 Then
MsgBox ("Buenos dias!")
End If
Else
If lista(0) > 0 And lista(0) < 8 Then
MsgBox ("Buenas Tardes!")
End If
If lista(0) > 7 And lista(0) < 0 Then
MsgBox ("Buenas Noches!")
End If
End If
End Sub