Imports System.TimeSpan
Public Class MyTimespan
    Public Days As Integer
    Public dTime1 As Date
    Public dTime2 As Date
    Public Hours As Long
    Public Minutes As Long
    Public Seconds As Long
    Public Sub SetTimeCha()
        Dim d1 As New DateTime(dTime1.Ticks)
        Dim d2 As New DateTime(dTime2.Ticks)
        Dim ts1 As New TimeSpan(d1.Ticks)
        Dim ts2 As New TimeSpan(d2.Ticks)
        Dim ts3 As New TimeSpan
        ts3 = ts2.Subtract(ts1)
        Me.Days = ts3.Days
        Me.Hours = ts3.Hours
        Me.Minutes = ts3.Minutes
        Me.Seconds = ts3.Seconds
    End Sub
End Class


 REM 调用
    Private Sub GetTimeSumtract()
        Dim mt As New MyTimespan
        With mt
            .dTime1 = "#2015/12/3 12:14:34#"
            .dTime2 = Now
        End With
        mt.SetTimeCha()
        MsgBox("时间间隔：" & mt.Days.ToString & "天" & mt.Hours.ToString & "时" & mt.Minutes.ToString & "分" & mt.Seconds.ToString & "秒")
    End Sub