Compare data formatted as hh:mm

[neepshed]

Hello, I have a script that compares data formatted as hh:mm.
However the comparison never seems to work.

FromTime is defined as a Long.

If ToSheet.Cells(2, 3) = FromTime Then
FoundTime = True
Cells(YrRow, TimeCol).Interior.ColorIndex =3

End If

Any thoughts?

 

[xwb]

Internally, time is stored as a fraction of a day. At a guess, from time is in minutes. If that is the case, either convert the cell to minutes or convert ToTime to a fraction of a day. eg to convert to minutes

when = ToSheet.Cells(2, 3)
when = int((when - int(when))*1440)
if when = ToTime then
    ....
end if

 

[neepshed]

Thanks XWB.