1.可以用DateDiff函数，返回值表示两个指定日期间的时间间隔。
专注于为中小企业提供成都网站制作、网站建设、外贸网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业茅箭免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上千余家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
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
首先这个具体日期是和这个时间应该是一一对应的关系，下周三应该有一个具体的数据和日期一一对应，比如说下周三是今年的具体的第几天，然后就可以计算出当时的日期了。比如：
// 2022年第一天
day := time.Date(2022, 1, 1, 0, 0, 0, 0, time.Local)
// 2022年的第304天
days := 304
// 2022年第304天的日期
expectedDay := day.Add(time.Duration(days*24*3600) * time.Second)
// 这一天是星期几
fmt.Println(expectedDay.Weekday())
// 这一天的日期
fmt.Println(expectedDay.Date())
楼主，java.util.Date有方法getTime()得到是相对的毫秒时间。。。两个Date变量的getTime()相减，得到是毫秒的差，再除60*60*1000，就是小时的差了。