求助：怎样根据一个给定日期自动计算其它日期字段的值

shitou1ge

怎样根据一个给定日期自动计算其它日期字段的值
描述在图片里。

shitou1ge

请高手帮帮忙啊

shitou1ge

没人理俺

styhs

使用Access的查询视图，其SQL非常不优雅：
SELECT a.取证时间, IIf(DateAdd("yyyy",2,a.取证时间)>Date(),"",DateAdd("yyyy",2,a.取证时间)) AS 第一次复审,
IIf(IsNull(a.上一次复审),"",DateAdd("yyyy",Int(DateDiff("m",a.取证时间,Date())/24)*2,a.取证时间)) AS 上一次复审,
IIf(IsNull(a.上一次复审),DateAdd("yyyy",2,a.取证时间),DateAdd("yyyy",Int(DateDiff("m",a.取证时间,Date())/24)*2+2,a.取证时间)) AS 下一次复审
FROM 表1 AS a
如果允许使用VBA例程、进行逐笔赋值，可以让代码优雅些。

styhs

使用Access的查询视图，其SQL非常不优雅：
SELECT a.取证时间, IIf(DateAdd("yyyy",2,a.取证时间)>Date(),"",DateAdd("yyyy",2,a.取证时间)) AS 第一次复审,
IIf(IsNull(a.上一次复审),"",DateAdd("yyyy",Int(DateDiff("m",a.取证时间,Date())/24)*2,a.取证时间)) AS 上一次复审,
IIf(IsNull(a.上一次复审),DateAdd("yyyy",2,a.取证时间),DateAdd("yyyy",Int(DateDiff("m",a.取证时间,Date())/24)*2+2,a.取证时间)) AS 下一次复审
FROM 表1 AS a
如果允许使用VBA例程、进行逐笔赋值，可以让代码优雅些。

shitou1ge

谢谢styhs 可是我改了改之后：第一次复审为空的时侯 上一次复审却成了取证的时间 如图：

shitou1ge

我就是改了红字部份 不然上一次复审一列为空
SELECT a.取证时间, IIf(DateAdd("yyyy",2,a.取证时间)>Date(),"",DateAdd("yyyy",2,a.取证时间)) AS 第一次复审,
IIf(a.第一次复审,"",DateAdd("yyyy",(Int(DateDiff("m",a.取证时间,Date())/24))*2,a.取证时间)) AS 上一次复审,
IIf(a.上一次复审,DateAdd("yyyy",2,a.取证时间),DateAdd("yyyy",Int(DateDiff("m",a.取证时间,Date())/24)*2+2,a.取证时间)) AS 下一次复审
FROM 表1 AS a;