急！求计算任意两个日期相差多少天的VB编程？6

发布网友发布时间：2023-10-10 22:44

共5个回答

热心网友时间：2024-12-13 09:31

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

热心网友时间：2024-12-13 09:32

a=datediff( "d",date1,date2)
这样就可以了,a就是相差的天数，如果第一个日期早，则a就是负值

热心网友时间：2024-12-13 09:32

DateDiff("d", "2014-4-21", Now)
计算日期差和平年，闰年无关吧

热心网友时间：2024-12-13 09:33

Dim T
T = DateDiff("d", #1/1/2014#, #1/10/2014#)
Print T 'T=9

热心网友时间：2024-12-13 09:34

这个题不难吧，以前编过java的，不过我二级考的是vb