Time between to time

Question

Hi, experts
Can i get a method that give the time between two time.
I have two times 'oEditHEmb' and 'oEditHDeb'  which are in two columns. I want to calculate the time between these two times.
Pls help.

Answer 1

hello freind try this function
hear yu can use  dtmStart  and dtmEnd for yur 1 colum and second colum
Function TimeDiffString(ByVal dtmStart As String, ByVal dtmEnd As String) As Decimal
        Dim intHrs1, intMins1, intSecs1 As Decimal
        Dim intHrs2, intMins2, intSecs2 As Decimal
        Dim hrs, min As Decimal
        'Dim strHrsString, strMinsString, strSecsString As String
        'Dim dtmEnd1 As Date
        'dtmEnd1 = DateTime.ParseExact(dtmEnd, "HHmm", Nothing)
        If (dtmStart.Length < 4) Then
            dtmStart = "0" & dtmStart
        End If
        If (dtmEnd.Length < 4) Then
            dtmEnd = "0" & dtmEnd
        End If
        intHrs1 = Convert.ToDecimal(dtmStart.Substring(0, 2))
        intMins1 = Convert.ToDecimal(dtmStart.Substring(2, 2))
        intHrs2 = Convert.ToDecimal(dtmEnd.Substring(0, 2))
        intMins2 = Convert.ToDecimal(dtmEnd.Substring(2, 2))
        hrs = intHrs2 - intHrs1
        min = intMins2 - intMins1
        If (hrs < 0) Then
            Return (-1)
        ElseIf (hrs = 0) And (min < 0) Then
            Return (-1)
        ElseIf (hrs = 0) And (min = 0) Then
            Return (0)
        ElseIf (hrs = 0) And (min > 0) Then
            Return (1)
        ElseIf (hrs > 0) Then
            Return (1)
        End If
    End Function