Sub Globals
Dim str_StartTime as Long, str_EndTime as Long, str_Duration as String
End Sub
Sub btn_Start_click
str_StartTime = DateTime.Now
End Sub
sub btn_End_click
str_EndTime = DateTime.Now
End Sub
Sub Duration (StartTime as String, EndTime as String)
DateTime.SetTimeZone(0)
DateTime.DateFormat = "d MMM yyyy hh:mm"
Return (((str_EndTime) - str_StartTime) / DateTime.TicksPerMinute))
End Sub
str_Duration = Duration(str_StartTime,strEndTime) & " mins"
INSERT INTO table VALUES(str_Duration)