主题：[求助]到期后的日期

有[填表日期]列（日期时间型）[使用期]列（整数型）[终止日期]列（日期时间型）
[终止日期]=[填表日期]+[使用期]
如[填表日期]为2009-10-22，[使用期]为70年，[终止日期]为2079-10-22

请教代码如何写？

AddYears

给日期值加上指定的年数。

语法：

AddYears(Value)

Value: 要加上的年数，可以是负数也可以是正数

例如：

Dim d As Date = #2/28/2008#
Dim d1 As Date = d.AddYears(10) '加上10年
Dim d2 As Date = d.AddYears(-10) '减去10年
Output.Show("10年后的日期：" & d1)
Output.Show("10年前的日期：" & d2)

[填表日期]不是固定的，[终止日期]用表达式怎么设置？

自己设计好这个表，包括这三列，输入几行数据，然后传上来。

我帮你写好代码

不能独立地做这样的限制。

          作为日期要求性比较强的数据库软件，这样可以，但必须禁止日期列的手工输入，否则这独立使用种限制很容易被用户钻空子！

看不懂哦，与楼主要求有关吗？

看这里：http://www.foxtable.com/dispbbs.asp?boardid=2&Id=4735

        真的假的？如果用户调整系统日期，或者手工修改日期跨越他的限制范围，请问做这样的独立日期限制还有效吗？

这样修改日期来录入数据，他（她）的头，会被老板咔嚓掉的。不值得吧。

      看来您真的不懂，无语............