关于DateAdd函数需要VB帮助

Question

我是VB脚本的新手。我正在尝试执行一个脚本，如果日期字段不为空，那么将返回一个值，该值等于有问题的日期字段的值+2天。任何帮助，将不胜感激。我的代码如下：

If {APP1.DM_Project(1).EndTaskDateExp} = ""  THEN
ReturnValue = DateAdd("d",2,now)
ELSE ReturnValue = DateAdd("D",2,{APP1.DM_Project(1).EndTaskDateExp})
ENDIF

Answer 1

试试这个：

If IsDbNull(APP1.DM_Project(1).EndTaskDateExp) THEN
   ReturnValue = dateadd(DateInterval.Day, 2, Now)
ELSE 
   ReturnValue = dateadd(DateInterval.Day, 2, APP1.DM_Project(1).EndTaskDateExp)
ENDIF