1.
Dim
hh, mm
As
String
2.
Dim
dtDate1
As
Date
=
"11:30"
3.
Dim
dtDate2
As
Date
=
"12:15"
4.
hh = DateDiff(DateInterval.Hour, dtDate1, dtDate2)
5.
mm = DateDiff(DateInterval.Minute, dtDate1, dtDate2)
Mod
60
6.
Dim
ts
As
New
TimeSpan(
CInt
(hh),
CInt
(mm),
CInt
(
"0"
))
7.
Dim
tTime
As
String
= FormatDateTime(ts.ToString, DateFormat.ShortTime).ToString
8.
LabelControl1.Text = tTime