I have been asked how to do this a couple times now, so I thought I would post a function that deals with getting the mid point between two date times.

Public Function getMidDateTime(ByVal dt1 As DateTime, ByVal dt2 As DateTime) As DateTime
    Dim rtn As DateTime
    Dim diff As Integer
    diff = DateDiff(DateInterval.Second, dt1, dt2)
    rtn = DateAdd(DateInterval.Second, diff / 2, dt1)
    Return rtn
End Function

Obviously there are many ways to skin a cat, but this is the method that I’ve used.

Get the mid point between two date times
Tagged on:

Leave a Reply

This site uses Akismet to reduce spam. Learn how your comment data is processed.