2009年1月12日到2009月11月6日是多少天？

2009年1月12日到2009年11月6日是 298 天
2009年1月12日再过110天 是 2009年5月2日

Private Sub Command1_Click()
Dim date1, date2 As Date
date1 = #1/12/2009#
date2 = #11/6/2009#
Dim I As Integer
I = date2 - date1
date1 = date1 + 110
MsgBox (I)
MsgBox (date1)
End Sub

好无聊阿~

包括一月12日331天，

不包括一月12日330天。