VB.net 计算时间差，求，

VB.net 计算时间差，急求，在线等~
找的如下帖子内容，这种效果就可以了：
    

        Dim time1 As Date = Now

        Dim time2 As Date = "2003-2-4"

        MsgBox(CInt((DateDiff(DateInterval.Day, time2, time1)) / 365) & "年" & CInt(((DateDiff(DateInterval.Day, time2, time1)) Mod 365) / 30) & "月" & CInt(((DateDiff(DateInterval.Day, time2, time1)) Mod 365) Mod 30) & "日") 

想模仿它计算时间差：

            Dim time1 As Date = CDate(Format(Now(), "HH:mm"))

        Dim time2 As Date = CDate("14:30")

        TextBox1.Text = CInt((DateDiff(DateInterval.Hour, time2, time1)) / 24) & "小时" & CInt(((DateDiff(DateInterval.Minute, time2, time1)) Mod 24) / 60) & "分钟"

实现的结果却是“0小时0分钟”
求帮忙~~~~
------解决方案--------------------
建议你看看TimeSpan类
------解决方案--------------------
new TimeSpan(dt1.Tick, dt2.Tick).ToString("hh:mm")
------解决方案--------------------

引用:

找的如下帖子内容，这种效果就可以了：
    

        Dim time1 As Date = Now

        Dim time2 As Date = "2003-2-4"

        MsgBox(CInt((DateDiff(DateInterval.Day, time2, time1)) / 365) & "年" & CInt(((DateDiff(DateInterval.Day, time2, time1)) Mod 365) / 30) & "月" & CInt(((DateDiff(DateInterval.Day, time2, time1)) Mod 365) Mod 30) & "日") 

想模仿它计算时间差：

            Dim time1 As Date = CDate(Format(Now(), "HH:mm"))