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

明镜

谢谢版主提供思路,能否再提供这段VBA?等待中.

Henry D. Sy

先想要的正确结果是如何。

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.         End If
    
15.     End If
    
16. 
    
17.     GetEndDate = dtmED
    
18. 
    
19. End Function

复制代码

直接在查询中用IIf也可以，不过性能可能会差些。

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

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 表

明镜

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

Henry D. Sy

什么问题

明镜

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

Henry D. Sy

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

明镜

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

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

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 编辑 ]