VBA/Excel/Access/Word/Date Functions/Hour

Материал из VB Эксперт
Перейти к: навигация, поиск

Hour(time) returns Variant/Integer between 0 and 23, inclusive, representing the hour for time

Sub dateDemo6()
   Debug.Print Hour(Date)
End Sub

use Hour to get the hour value from a date

Private Sub myTime0()
    Dim time As Date
    Dim theHour As Integer
    Dim theDayOfTheWeek As Integer
    time = Now
    theHour = Hour(time)
    theDayOfTheWeek = Weekday(time)
    If (theHour > 8) And (theHour < 17) Then
        If (theDayOfTheWeek > 0) And (theDayOfTheWeek < 6) Then
            MsgBox ("You should be at work!")
            MsgBox ("I love weekends")
        End If
        MsgBox ("You should not be at work!")
    End If
End Sub