这个“结束日期”的公式如何修改？

明镜

在表中有三个字段,第一个是月,第二个是日,第三个是开始日期（“月”和“日”为数字类型，“开始日期”为日期/时间类型）。然后再做一个查询，目的是查“结束日期”，要求是根据“开始时间”加上“年”和“月”，自动得出“结束日期”，用的公式是“结束日期: DateAdd("d",-1,DateAdd("m",表!月,DateAdd("yyyy",表!年,表!开始日期)))”。但这个公式遇到“开始日期”为2008年2月29日的时候，得出的“结束日期”就比正确的少了一天。请问这个公式如何修改？请高手指点一下。

明镜

感谢版主.通过这个例子,对VBA有所长进.

ycxchen

我觉得太复杂了,倒不如重新设计表,先定"开始日期",后在查询中设定条件求结束日期

Henry D. Sy

1. Public Function GetEndDate(dtmStartDate As Date, intYear As Integer, intMonth _
   
2.                                                                      As Integer) As Date
   
3.     Dim strTemp As String
   
4.     Dim dtmED As Date
   
5. 
   
6.     strTemp = Format(dtmStartDate, "mm-dd")
   
7.     dtmED = DateAdd("yyyy", intYear, DateAdd("m", intMonth, dtmStartDate)) - 1
   
8. 
   
9.     If strTemp = "02-29" Then
   
10.         If intMonth = 0 Then
    
11.             If intYear Mod 4 <> 0 Then
    
12.                 dtmED = DateAdd("yyyy", intYear, dtmStartDate)
    
13.             End If
    
14.         ElseIf intMonth Mod 12 = 0 Then
    
15.             dtmED = DateAdd("yyyy", intYear, DateAdd("m", intMonth, _
    
16.                                                      dtmStartDate))
    
17.         End If
    
18.     End If
    
19. 
    
20.     GetEndDate = dtmED
    
21. 
    
22. End Function

复制代码

[ 本帖最后由 Henry D. Sy 于 2008-12-16 23:36 编辑 ]

明镜

这个上传的文件已基本上可以用了,但就是月份是12个月或者它的倍数时,显示不正确( 少了一天)

[ 本帖最后由 明镜 于 2008-12-16 23:17 编辑 ]

Henry D. Sy

原帖由 明镜 于 2008-12-16 22:34 发表
我在窗体上做了"结束日期"的控件,把属性设为更新前,然后运行这段代码,但没显示,是我做得不对,还是其他方面有问题?请指教.

明镜

我在窗体上做了"结束日期"的控件,把属性设为更新前,然后运行这段代码,但没显示,是我做得不对,还是其他方面有问题?请指教.

Henry D. Sy

什么问题

明镜

谢了,   试了一下,   还是没用,   是否直接帮助做到Access中?

Henry D. Sy

SELECT 表.姓名, 表.开始日期, 表.年, 表.月, GetEndDate([开始日期],[年],[月]) AS 表达式1, IIf(Format([开始日期],"mm-dd")<>"02-29",DateAdd("yyyy",[年],DateAdd("m",[月],[表]![开始日期]))-1,IIf([月]=0,IIf([年] Mod 4<>0,DateAdd("yyyy",[年],DateAdd("m",[月],[表]![开始日期])),DateAdd("yyyy",[年],DateAdd("m",[月],[表]![开始日期]))-1),DateAdd("yyyy",[年],DateAdd("m",[月],[表]![开始日期]))-1)) AS 表达式2
FROM 表