Private Sub Command1_Click()a = #7/6/2009 1:00:00 PM#b = #7/7/2009 12:00:00 PM#If DateDiff("d", a, b) > 0 Then If DateDiff("s", #4:00:00 PM#, Format(b, "hh:mm:ss AMPM")) > 0 Then Print DateDiff("d", a, b) + 1 Else Print DateDiff("d", a, b) End If Else If DateDiff("s", a, b) > 0 Then Print "1"End IfEnd Sub |