Dim dtStart As DateTime = DateTime.Parse("2005/04/26 18:00") Dim dtEnd As DateTime = DateTime.Parse("2005/04/26 19:40") Dim ts As TimeSpan ts = dtEnd.Subtract(dtStart) Trace.WriteLine(ts.TotalMinutes & "分の差")
