2.也可以把两个日期直接相减:
a = Now - CDate("2014-1-1") '2014年1月1日到今天,共这么多天。
b = CDate("2014-3-1") - CDate("2014-1-1") '2014年1月1日到2014年3月1日,共这么多天。
vb的函数是强大的,闰年和平年它自己会处理,无需担心。
追问:
那需要什么控件,能详细说一下吗
回答:
不需要任何控件呢,是系统自带的函数呢,你写到代码里面试试就可以了。
你稍等,我给你写代码:
'窗体弄一个按钮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
楼主,java.util.Date有方法getTime()得到是相对的毫秒时间。。。两个Date变量的getTime()相减,得到是毫秒的差,再除60*60*1000,就是小时的差了。