VB6代码翻译Date1＆gt; （日期2 + 30）

Question

我正在尝试将这个VB6代码翻译成VB.NET 但我似乎无法理解这段代码如何在日期中添加30？

代码：

if Date1 > (Date2 + 30) then
'Condition
end if

问题：

1. 代码计算的2日期值是多少？ （是day > day，month > month，year > year？）
2. 30 的值在哪里添加？ （Day，month或year？）
3. 这个 VB6 代码对 VB.NET 的等价是什么？

Answer 1

1. 确定Date1中的日期是否大于Date2中的日期加上30天。

2. 它增加了几天

3. 您可以致电dateVar.AddDays()

Answer 2

在VB6 / VBA中，您可以向日期变量添加一个整数，并将它添加多天。 因此，Date2 + 30与DateAdd("D", 30, Date2)

相同

在VB.NET中，不支持Date+Integer。因此，您必须采用第二种方式将日期添加到日期。

因此，VB.NET中的代码相当于：

If date1 > date2.AddDays(30) Then
    'Condition
End If

仍支持DateAdd("D", 30, Date2)语法（但我不建议使用它）。所以以下内容也会起作用：

If date1 > DateAdd(DateInterval.Day, 30, date2) Then
    'Condition
End If