Get the mid point between two date times

Home

Articles

VB.Net Articles

Thursday, 03 June 2010 11:51 |

Written by Sam Jenkins |

|

|

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.

Last Updated (Thursday, 03 June 2010 13:20)

Satal Keto