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/)