diference between two hours and dates

[bybruno]

hi,
i need a function to show a diference between two hours and dates example:
start: 10:00am end 3:00am result = 17:00

start:10-2-2007 end: 12-2-2007 = 2 days

in php i have a function for this, there is in vb samething that can do the same? or someone
know a function do that?
thanks for your help
bruno

[RobDog888]

Use DateDiff function to calculate the differences in dates and times.

"17:00"

Format(DateDiff("h", #10/2/2007 10:00:00 AM#, #10/3/2007 3:30:00 AM#), "##") & ":00"

"2 Days"

Format(DateDiff("d", #2/10/2007#, #2/12/2007#) + 1, "d") & " Days"

[Ron Weller]

Make your own like this:

Public Function TimeDiff(DateTimeStart As Date, DateTimeEnd As Date)
  Dim h As Long
  Dim m As Long
  Dim s As Long
  
  'get difference in seconds
  s = DateDiff("s", DateTimeStart, DateTimeEnd)
  h = s \ 3600   'calculate hours
  s = s Mod 3600 'remove hours
  m = s \ 60     'calculate minutes
  s = s Mod 60   'remove minutes
  'conveert to Time format
  TimeDiff = h & Format(m, "\:0#") & Format(s, "\:0#;#;#")
End Function

Debug.Print TimeDiff(#10/2/2007 10:00:00 AM#, #10/3/2007 3:30:00 AM#)