Dim d As Date = e.datarow("订单日期")Dim d1 As Date = d.AddDays(30) '加上40天Dim d2 As Date = d.AddDays(-30) '减去40天Output.Show("30天后的日期:" & d1)Output.Show("30天前的日期:" & d2)