求解条件语句VBA代码的写法

wl0555　发表于：2011-01-25 11:41:40 　

麻烦坛子里的高手，我是菜鸟，请教一下问题！在查询窗体中运用命令按钮查询以下结果：

例如：“审批日期”默认2000-1-1，假设“审批日期”>2000-1-1，则“审批耗时”=“审批日期”-“受理日期”或假设“审批日期”=2000-1-1，则“审批耗时”=“当前日期”-“受理时间”。

已初步运用datediff函数，但VBA代码不知怎么编写！麻烦坛内高手指点一二，谢谢！！！

大肚秃秃发表于：2011-01-25 12:14:32

审批耗时=iif("审批日期"># " & 2000-1-1 & " #,DateDiff("d", 审批日期,受理日期),DateDiff("d", 当前日期,受理日期)

煮江品茶发表于：2011-01-25 12:37:15

审批耗时=iif("审批日期=#2000/1/1#",DateDiff("d", 当前日期,受理日期),DateDiff("d", 审批日期,受理日期))

wl0555 发表于：2011-01-25 13:33:07

回楼上，按照您的方法计算错误了！

以下是按照您的方法得出的结果："当前日期"为2011-1-25，假定"受理日期"为2011-1-2，"审批日期"为2000-1-1，则"审批耗时"为22天；再假定"受理日期"为2011-1-8，"审批日期"为2011-1-11，则"审批耗时"为16天，明显计算错误了！还是要麻烦您一下！

煮江品茶发表于：2011-01-25 14:12:48

wl0555 发表于：2011-01-25 15:26:59

好了，不是语句问题，谢谢

总记录：5篇页次：1/1 9 1 :

Access交流中心