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)
......................