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