Private Sub Commandl_Click()
D.im d1 As Date
D.im d2 As Date
dl = #12/25/2009#
d2 = #1/5/2010#
MsgBox DateDiff( ” ww ” , d1, d2)
E.nd Sub
打开窗体运行后,单击命令按钮,消息框中输出的结果是
A. ) 1
B. ) 2
C. ) 10
D. ) 11