急!求计算任意两个日期相差多少天的VB编程?

要有闰年和平年,这题目对我很重要,拜托各位大神帮助一下

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

温馨提示:内容为网友见解,仅供参考
第1个回答  2014-04-29
a=datediff( "d",date1,date2)
这样就可以了,a就是相差的天数,如果第一个日期早,则a就是负值
第2个回答  2014-04-29
DateDiff("d", "2014-4-21", Now)
计算日期差和平年,闰年无关吧
第3个回答  2014-04-29
Dim T
T = DateDiff("d", #1/1/2014#, #1/10/2014#)
Print T 'T=9
第4个回答  2014-04-29
这个题不难吧,以前编过java的,不过我二级考的是vb

VB里面算两个日期之间相隔的天数用哪个函数
可以用DateDiff函数,但更简单的方法是把两个日期直接相减(大的日期减去小的日期)即可,比如:MsgBox Now - CDate("2012-1-1")

问一个关于vb的问题,我想计算两个text中日期的差额,代码怎么写啊,_百 ...
在计算 12 月 31 日和来年的 1 月 1 日的年份差时,DateDiff 返回 1 表示相差一个年份,虽然实际上只相差一天而已。

如何在VB中计算两个日期间的天数
End Sub Private Sub DTPicker2_Change()Text1.Text = DateDiff("d", DTPicker1, DTPicker2)End Sub

如何在VB中计算两个日期间的天数
设两个日期控件,默认当前日期,选择日期后进行计算,用between 可以准确计算出来的 不过如果你不熟的话,不两句也说不清

怎样在VB上求隔天的两个日期时间对比
使用VB提供的时间函数 DateDiff 函数,可以返回 Variant (Long) 的值,表示两个指定日期间的时间间隔数目。语法 DateDiff(interval, date1, date2)其中:interval是一个字符串表达式,下面列举一些它的常用值以及含义:yyyy -- 年 q -- 季 m -- 月 d -- 天 h -- 小时 n -- 分钟 s -- 秒...

不同的日期怎么比较它们相差的天数?(vb.net)
直接用两个日期相减,返回一个timespan实例,它的Days属性就是天数。dim d1 as datetime, d2 as datetime dim days as integer d1 = DateTime.Today.AddDays(-1)d2 = DateTime.Today days = (d2 - d1).Days

在VB.NET中如何确定两个日期之间的天数
首先 我们声明一个Date类型的变量dtStartDate 并赋初值为 年一月一日 同时 还声明了其它一些将会用到的变量 包括 TimeSpan的一个实例tsTimeSpan 整型数iNumberOfDays 字符串型变量strMsgText 设定变量tsTimeSpan的值为当前日期\/时间值与dtStartDate值得差 lishixinzhi\/Article\/program\/net\/201311\/13424 ...

vb怎么计算两个日期之间的差值?
DateDiff(DateInterval.Day, #8\/7\/2015#,#8\/8\/2015#)其中时间格式是#month\/day\/year Vb6.0中,计算以天为单位计算的:DateDiff("d",#8\/7\/2015#, #8\/8\/2015#)

在vb里,如何将日期加减,得出天数?
其实vb提供了一个计算两个日期相差的函数datediff,在实际应用之中我们可以进行日期相减运算,但是vb推荐的还是 使用vb自己提供的内部函数为好!一个例子:Private Sub Command1_Click()Dim days As Integer Dim data1 As Date Dim data2 As Date data1 = #2\/21\/2006# 'O2 \/ 21 \/ 2006 data2 ...

vb DTPicker两天时间差
DTPicker2.Value - DTPicker1.Value = 4.2586342592622 把小数部分再乘以24就可以得出小时数,依此可逐步算出分钟、秒 标准的方法是用DateDiff函数:DateDiff("h", DTPicker2.Value, DTPicker1.Value)这是算出两个日期间的小时数 DateDiff("s", DTPicker2.Value, DTPicker1.Value)这是秒数 ...

相似回答