I have code to do calculating the time,
Dim BeginDate as new Date BeginDate.SQLDatetime= "2020-02-12 17:30:00" Dim EndDate as new Date EndDate.SQLDatetime="2020-02-13 02:00:00" Dim DateDifference as Double DateDifference = EndDate.TotalSeconds - BeginDate.TotalSeconds Dim DiffDate as new Date DiffDate.TotalSeconds = DateDifference dim gg,dd as integer gg=DiffDate.TotalSeconds/3600 MsgBox DiffDate.sqldatetime.NthField(" ",2)
The result is correct (08:30:00)
how to convert it into integer, i am expecting the result is 8.5 hours.
any help ?