Lo que yo eh comparado es la diferencia de meses de una fecha...al parecer es lo mismo y lo puedes hacer con la funcion datediff
esto hago yo para sacar la diferencia de la fecha del server a una fecha que tengo almacenada en mi bd.
Dia=Day(Date)
Mes=Month(Date)
Anio=Year(Date)
' podiras utilizar hora=hour(date)
fechaserver = Anio&"-"& Mes&"-"&Dia
Do While Not RS.EOF
fechabd = RS("fecha")
dif = DateDiff("m", fechabd, fechaserver)
'mes de diferencia entre 2 fechas. me devuele en "m" (mes) 1 si la diferencia es de un mes
If dif <> 0 and RS("permanente") = 0 then
RS.MoveNext
aqui veo en el siguiente link que tambien puedes con datediff obtener la hora solamente asi como yo obtengo el mes solamente
http://www.devguru.com/technologies/.../datediff.html
Espero te sirva.