为什么month(日期字段)-monthh(DATE())显示的差值不对呢?求解

bbamy

我写的是:

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

海狸先生

你要考虑　m = m1 - m2　是不是　m1总是小于m2呢？

bbamy

我在立即窗口里?month(q)出来的结果不是q显示的月份,但是我设置的是日期类型的数据呀,真的很奇怪

LucasLynn

DateDiff("m",...)