Hours Calculation

I have two fields (Start Time and End Time). If i want to calculate the number of hours on dates basis, how can i do that?

example... start time is 21/07/04 6 PM and End time is 22/07/04 6 AM
what should i do to get 6 hours if the date is >= 22/07/04


Please help

Date and time are double numbers where the date is the integer and time is the fraction. Convert the begin date and time separately and add them together and do the same with the end date and time. Subtract the Begin date/time from the End Date/time and you get the difference which can be reconverted to date and time format.

I am enclosing a simple function to test
date and time values.

Private Function fnDateAsDoubleTest()

Dim varDate As Variant, varTime As Variant

varDate = Date: varTime = "08:02 AM"

dblDateAndTime = CDbl(varDate) + Format(CDbl(CDate(varTime)), "#.######")
Debug.Print Format(CDbl(CDate(varTime)), "#.######")
Debug.Print varDate
Debug.Print CDbl(varDate)
Debug.Print dblDateAndTime

End Function

I hope this helps.