Office中国论坛/Access中国论坛
标题:
为什么month(日期字段)-monthh(DATE())显示的差值不对呢?求解
[打印本页]
作者:
bbamy
时间:
2005-10-9 09:42
标题:
为什么month(日期字段)-monthh(DATE())显示的差值不对呢?求解
我写的是:
Private Sub 起息日_AfterUpdate()
q = DateValue([起息日])
m1 = Month(q)
m2 = Month(Date)
m = m1 - m2
If Year(q) = Year(Date) Then
Select Case m
Case 0 To 1
MsgBox "1个月以内不用登记,请删除"
Case Is = 2
Me.期限 = "1个月以上"
Case Is = 3
Me.期限 = "2个月以上"
Case Else
Me.期限 = "3个月以上"
End Select
Else
Select Case m
Case Is = 11
MsgBox "1个月以内不用登记,请删除"
Case Is = 10
Me.期限 = "1个月以上"
Case Is = 9
Me.期限 = "2个月以上"
Case Else
Me.期限 = "3个月以上"
End Select
End If
end Sub
现在是所有的都反馈为"3个月以上"
请问有什么问题吗?是否有更简单的方法?多谢
[此贴子已经被作者于2005-10-9 1:44:50编辑过]
作者:
海狸先生
时间:
2005-10-9 16:40
你要考虑 m = m1 - m2 是不是 m1总是小于m2呢?
作者:
bbamy
时间:
2005-10-11 07:40
标题:
是的 m1总小于m2
我在立即窗口里?month(q)出来的结果不是q显示的月份,但是我设置的是日期类型的数据呀,真的很奇怪
作者:
LucasLynn
时间:
2005-10-11 08:34
DateDiff("m",...)
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3