标题：订单后30天表示法

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)