Programación VB, distingue si la hora actual pertenece a la mañana, al mediodía, a la tarde o a la noche. ¿Qué debo hacer? ¡Pregunta a un experto!

En primer lugar, debes entender que los llamados mañana, mediodía, tarde y noche son términos relativamente vagos. No existe una definición legal, como qué hora es la mañana, por lo que hay que hacerlo. sus propias reglas, aquí asumimos que de 6:00 a 11:00 es la mañana, de 11:00 a 14:00 es el mediodía, de 14:00 a 18:00 es la tarde y de 18:00 a 6:00. el día siguiente es la tarde (según la división horaria en WeChat, también hay temprano en la mañana, el tiempo de transición entre la mañana y la tarde no es tan complicado aquí):

Dim d As Date, h As Entero

d = CDate(Label1.Caption) 'debe asegurarse de que la hora en Label1 esté en un formato estándar, como 18:23:47

h = Hora(d) 'Obtener la hora en el tiempo

Si h lt; 6 O h gt;=18 Entonces 'Antes de las seis y después de las 18 es la tarde

MsgBox " Tarde"

ElseIf h lt; 11 Then 'Antes de las 11 en punto es la mañana

MsgBox "Mañana"

ElseIf h lt; 14 Then 'It es mediodía antes de las 14

MsgBox "Mediodía"

Else 'El resto es la tarde

MsgBox "Tarde"

Fin Si