VBDATEDIFF,vbdatediff函数怎么用
vb计算一个月多少天 datediff
vb计算一个月多少天的实现代码如下：
用DateDiff函数，方法：
DateDiff("d", date1, date2)
date1为要计算天数的月的1号，如#2002-2-1#
date2为下个月的1号，如#2002-3-1#
执行函数后，值为28。
Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。
VB中datediff函数返回值是什么类型
DateDiff?函数?返回?Variant?(Long)?的值，表示两个指定日期间的时间间隔数目。
楼主你的代码写错了，?datediff里面的参数里面的b?和?label1.caption不需要双引号啊！
vb中datediff怎么用
DateDiff函数
返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。
语法 ?
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
DateDiff 函数语法中有下列命名参数： ?
描述 ?
interval必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔 ?
Date1，Date2必要；Variant (Date)。计算中要用到的两个日期。 ?
Firstdayofweek可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。 ?
firstweekofyear可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。 ?
设置：
说明
DateDiff?函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用?DateDiff?计算两个日期相差的天数，或者当天到当年最后一天之间的星期数。
要计算?date1?和?date2?相差的天数，可以使用“一年的日数”（“y”）或“日”（“d”）。当?interval?为“一周的日数”（“w”）时，DateDiff?返回两个日期之间的星期数。如果?date1?是星期一，则DateDiff?计算到?date2?之前星期一的数目。此结果包含?date2?而不包含?date1。如果?interval?是“周”（“ww”），则?DateDiff?函数返回日历表中两个日期之间的星期数。函数计算?date1?和?date2之间星期日的数目。如果?date2?是星期日，DateDiff?将计算?date2，但即使?date1?是星期日，也不会计算?date1。
如果?date1?晚于?date2，则?DateDiff?函数返回负数。
firstdayofweek?参数会对使用“w”和“ww”间隔符号的计算产生影响。
如果?date1?或?date2?是日期文字，则指定的年度会成为日期的固定部分。但是如果?date1?或?date2?被包括在引号 (" ") 中并且省略年份，则在代码中每次计算?date1?或?date2?表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。
在?interval?为“年”（“yyyy”）时，比较 12 月 31 日和来年的 1 月 1 日，虽然实际上只相差一天，DateDiff?返回 1 表示相差一个年份。
VB计算两个日期时间的间隔
DATEDIFF 函数计算指定的两个日期中第二个日期与第一个日期的时间差的日期部分。换句话说，它得出两个日期之间的间隔。结果是等于date2 - date1 的日期部分的带符号整数值。
示例代码:
Dim time1 As Date
Dim time2 As Date
Dim td as date
time1 = "2013-6-27 6:52:22"
time2 = "2013-6-28 13:52:14"
td=datediff("ss",time1,time2)
这个只可以求出相差多少秒，还需要你自己进位求出是几秒几分几小时，你可以自己百度"datediff"的用法！
VB DateDiff 用法
我复制过来的，不过解释清了。最后，实际例子在下面：
DateDiff?(I?,?D1?,?D2[,FW[,FY]])
计算两个日期之间的期间?
I?：设定两个日期之间的期间计算之单位。譬如?I="m"?表示计算的单位为月。?I?的设定值如：
yyyy??Year?年
q?Quarter?季
m?Month?月
d?Day?日
w?Weekday?星期
h?Hour?时
n?Minute?分???????·[这里应该用n代表，很多书说m其实是错的]·
s?Second?秒
D1?,D2：计算期间的两个日期表达式，若?date1?较早，则两个日期之间的期间结果为正值；若?date2?较早，?则结果为负值。
FW?：设定每周第一天为星期几，?若未设定表示为星期天。?FW?的设定值如下：
0?使用?API?的设定值。
1?星期天
2?星期一
3?星期二
4?星期三
5?星期四
6?星期五
7?星期六
FY?：设定一年的第一周，?若未设定则表示一月一日那一周为一年的第一周。?FY?的设定值如下：
0?使用?API?的设定值。
1?一月一日那一周为一年的第一周
2?至少包括四天的第一周为一年的第一周
3?包括七天的第一周为一年的第一周
新建工程-添加一个timer控件
放入代码
Dim d1, d2
Private Sub Form_Load()
d1 = Now
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
d2 = Now
Debug.Print DateDiff("s", d1, d2, vbMonday, vbFirstJan1)
End Sub
这个是计算两个日期相差秒数的。