Datediff（）函数没有在VB.NET中获得预期的结果

Question

我在我的项目中使用以下代码。我想找到最后一个日期和现在的天数。

Dim BorrowDate As Date
Dim i As Integer
BorrowDate = Date.Parse(txtBorrowDate.Text)
i = DateDiff(DateInterval.Day, BorrowDate, DateTime.Now)

例如，当BorrowDate为“01 / Jul / 2011”时，结果是7天，应该是10到现在。请帮忙

Answer 1

由于你使用的是.Net，你可以试试这个

    Dim BorrowDate As Date = Date.Parse(txtBorrowDate.Text)

    Debug.WriteLine(BorrowDate.ToString)
    Debug.WriteLine(DateTime.Now.ToString)

    Dim ts As TimeSpan = DateTime.Now - BorrowDate

    Dim numdays As Integer = CInt(ts.TotalDays)

    Debug.WriteLine(numdays.ToString("n0"))

编辑：初始化变量并显示日期。