Calculating time passed in a range

[webezine]

Hi all,

I've got a project where I need to calculate the time passed between an acceptable range.
For example

E-mail was received at 19:00 and a response was sent at 09:00
The acceptable range is 8am to 6pm so in the scenario it shoudl return 60 mins.

Another example is if the email was received at 16:00 reply was sent on 10:00 am next day it should return 240.

Any thought how to acehive this.

Ive saved the data in variable as timein and timeout

[!NoItAll]

look at the date class and methods. You need to incorporate the entire date so it takes into account when items cross midnight.
Here's an example of comparing now with another date 3 hours into the future. You can put in the appropriate times that you want.

 
Dim Timein As Date = Now
Dim TimeOut As Date = Timein.AddHours(CDbl(3))
 
Dim Diff As Long = TimeOut.Subtract(Timein).TotalHours
 
MsgBox(Diff.ToString)