那需要什么控件,能详细说一下吗
追答不需要任何控件呢,是系统自带的函数呢,你写到代码里面试试就可以了。
你稍等,我给你写代码:
'窗体弄一个按钮Command1,加入以下代码,你试试看:
Private Sub Command1_Click()
Dim a As Long
Dim b As Long
a = Now - CDate("2014-1-1")'2014年1月1日到今天,共这么多天。
b = CDate("2014-3-1") - CDate("2014-1-1")'2014年1月1日到2014年3月1日,共这么多天。
Print "2014年1月1日到今天,共" & a & "天。"
Print "2014年1月1日到2014年3月1日,共" & b & "天。"
End Sub