DateAdd函数调用

Question

在我的Windows窗体中，我有一个用于添加天数的文本框和一个包含日期的文本框……在单击事件按钮上，我需要使用"DateAdd“函数将文本框中的天数添加到文本框日期中输入的日期中。有人能给我正确的语法吗?我试过了，但得到一个语法错误。

DateAdd(DateInterval.Day, txtNumDaysTAdd.Text, txtDate.Text)

然后，我需要使用format function函数以Longdate格式在消息框中显示答案。

Answer 1

我宁愿使用.NET的DateTime函数来完成此操作：

Dim myDate As DateTime = DateTime.Parse(txtDate.Text)
Dim daysToAdd As Integer = Integer.Parse(txtNumDaysTAdd.Text)

Dim result As DateTime = myDate.AddDays(daysToAdd)

Answer 2

不要使用DateAdd，它只是为了向后兼容VB6。请改用DateTime类型的方法。在VB.NET中，关键字Date是DateTime类型的快捷方式，就像Integer是Int32类型的快捷方式一样。

Dim originDate As Date = Date.Parse(txtDate.Text)
Dim daysToAdd As Integer = Integer.Parse(txtDaysToAdd.Text)
Dim result As Date = originDate.AddDays(daysToAdd)
MessageBox.Show(result.ToLongDateString())