Dim tTime, nHourtTime = Now()nHour = Hour(tTime) 'nHour contains the number representing the current hour