如何計算VB.net中兩個日期之間的差異？

Question

目前，我所有的結果都返回'0'。

我在做什麼錯？

如果有幫助，當前的代碼將從SQL命令查詢中創建一個數據表，然後分別查看每行以獲取每個日期的差異。

當前代碼：

Dim Con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;DataSource=ApplicationData.accdb;Persist Security Info=False;") 
    Con.Open() 'Open the connection 
    Dim strCommand As String = "SELECT fDateAdded, fName FROM Films" 

    Dim SQL As New OleDb.OleDbCommand(strCommand, Con) 
    Dim DataAdapter As New OleDb.OleDbDataAdapter(SQL) 
    Dim DataTable As New DataTable("Films") ' Create a new data table structure 
    DataAdapter.Fill(DataTable) ' Fill the data table structure from the information in the database. 

    For Each row As DataRow In DataTable.Rows 
     MessageBox.Show(DateDiff(DateInterval.Day, row.Item("fDateAdded"), Now)) 
    Next row 

    Con.Close() 

Answer 1

我認爲你需要投你的日期作爲DATE ....

MessageBox.Show(DateDiff(DateInterval.Day, CDate(row.Item("fDateAdded")), Now) 

而且我還沒有嘗試過，但有一個去使用DateInterval.WeekOfYear這可能會給你在幾周內的差異，但這可能是最多6天的任何事情。需要一些測試來查看結果。

Answer 2

您應該能夠使用 「W」 或dateinterval.weekday

MessageBox.Show(DateDiff(DateInterval.weekDay, CDate(row.Item("fDateAdded")), Now) 

或者

MessageBox.Show(DateDiff("w", CDate(row.Item("fDateAdded")), Now) 

http://msdn.microsoft.com/en-us/library/b5xbyt6f(v=vs.90).aspx