Vb.net當前日期減去日期

Question

可以說，我的日期是：使用

Dim theDate As DateTime = DateTime.ParseExact("2013-04-10 21:34 PM", "yyyy-MM-dd HH:mm tt", CultureInfo.InvariantCulture) 

IM格式：

"yyyy-MM-dd HH:mm tt" 

我想獲得當前的日期和財產以後做類似：

Dim theDate As DateTime = DateTime.ParseExact("2013-04-10 21:34 PM", "yyyy-MM-dd HH:mm tt", CultureInfo.InvariantCulture) 
Dim currentTime As System.DateTime = System.DateTime.Now 
dim Result as new datetime 
Result = currentTime.Date - theDate 

更新：

我想：

Dim currentTime As System.DateTime = System.DateTime.Now 
Dim date1 As New System.DateTime(2013, 4, 10, 21, 34, 10) 
Dim date2 As New System.DateTime(currentTime.Year, currentTime.Month, currentTime.Day, currentTime.Hour, currentTime.Minute, currentTime.Second) 
Dim diff1 As System.TimeSpan 
diff1 = date2.Subtract(date1) 
MsgBox(diff1.ToString) 

Answer 1

一個TimeSpan可以讓你減去日期。

DateTime.Subtract Method (TimeSpan)

Dim date1 As New System.DateTime(1996, 6, 3, 22, 15, 0) 
Dim date2 As New System.DateTime(1996, 12, 6, 13, 2, 0) 

Dim diff1 As System.TimeSpan 
' diff1 gets 185 days, 14 hours, and 47 minutes. 
diff1 = date2.Subtract(date1) 

MsgBox(diff1.Days) 
MsgBox(diff1.Hours) 
MsgBox(diff1.Minutes) 

這裏是所有members of the TimeSpan class