Obter hora

[grelo]

olá pessoal

gostaria de saber como obter a hora para poder compará-la com uma hora pré definida

exe:

dim horadefinida as integer

horadefinida=12

if horadefinida=horaatual then

***codigo**

end if.

preciso de alguma função q obtenha a hora atual desde já agradeço

falou

[kuroi]

Dim horadefinida As Date
horadefinida = CDate("12:00:00")



If horadefinida = Time Then

***codigo**

End If[/code]
caso você não va considerar os segundos, faca If horadefinida = TimeSerial(Hour(Time), Minute(Time), 0) Then