COMPARER DEUX HEURES(TEMPS)

public function CTemps(byval Temps1, bnyval Temps2)
On Error goto Erreur
dim h1
dim h2
dim m1
dim m2
dim s1
dim s2
h1=hour(temps1)
h2=hour(temps2)
m1=minute(temps1)
m2=minute(temps2)
s1=second(temps1)
s2=second(temps2)
if h1>h2 then
CTemps=1
end if
if h2>h1 then
CTemps=2
end if
if h1=h2 and m1>m2 then
CTemps=1
end if
if h1=h2 and m2>m1 then
CTemps=2
end if
if h1=h2 and m1=m2 and s1>s2 then
CTemps=1
end if
if h1=h2 and m1=m2 and s2>s1 then
CTemps=2
end if
end function

Erreur:
exit function