vb里用两个time函数想减得到(vb时间相减得出小时)
如何 用vb 实现 把两个时间 相减
10:30---21:00怎么会是570分钟呢?630分钟好不好。用datediff函数计算时间差,例如: datediff("n", "10:30", "21:00"),结果:630分钟 最好用长时间,考虑隔天,不然会有计算混乱的。time是只显示“时”和“分”的。
vb中如何计算两个时间的差值?最好有实例
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
interval 参数的设定值如下:
设置 描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒
firstdayofweek 参数的设定值如下:
常数 值 描述
vbUseSystem 0 使用 NLS API 设置。
vbSunday 1 星期日(缺省值)
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
常数 值 描述
vbUseSystem 0 用 NLS API 设置。
vbFirstJan1 1 从包含 1 月 1 日的星期开始(缺省值)。
vbFirstFourDays 2 从第一个其大半个星期在新的一年的一周开始。
vbFirstFullWeek 3 从第一个无跨年度的星期开始。
说明
DateDiff 函数可用来决定两个日期之间所指定的时间间隔数目。例如,可以使用 DateDiff 来计算两个日期之间相隔几日,或计算从今天起到年底还有多少个星期。
为了计算 date1 与 date2 相差的日数,可以使用“一年的日数”(y) 或“日”(d)。当 interval 是“一周的日数”(w) 时,DateDiff 返回两日期间的周数。如果 date1 是星期一,DateDiff 计算到 date2 为止的星期一的个数。这个数包含 date2 但不包含 date1。不过,如果 interval 是“周”(ww),则 DateDiff 函数返回两日期间的“日历周”数。由计算 date1 与 date2 之间星期日的个数而得。如果 date2 刚好是星期日,则 date2 也会被加进 DateDiff 的计数结果中;但不论 date1 是否为星期日,都不将它算进去。
如果 date1 比 date2 来得晚,则 DateDiff 函数的返回值为负数。
firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。
如果 date1 或 date2 是日期文字,则指定的年份成为该日期的固定部分。但是,如果 date1 或 date2 用双引号 (" ") 括起来,且年份略而不提,则在每次计算表达式 date1 或 date2 时,当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。
在计算 12 月 31 日和来年的 1 月 1 日的年份差时,DateDiff 返回 1 表示相差一个年份,虽然实际上只相差一天而已。
本示例使用 DateDiff 函数来显示某个日期与今日相差几天。
Dim TheDate As Date ' 声明变量。
Dim Msg
TheDate = InputBox("Enter a date")
Msg = "Days from today: " DateDiff("d", Now, TheDate)
MsgBox Msg
在VB中,如何根据两个日期的相减结果,获得诸如“相距XX年XX月XX日”这样的结果?
DateDiff 函数
返回 Variant (Long) 的值,表示两个指定日期间的时间间隔数目。
例子:使用 DateDiff 函数来显示某个日期与今日相差几天。
Dim TheDate As Date ' 声明变量。
Dim Msg
TheDate = InputBox("Enter a date")
Msg = "Days from today: " DateDiff("d", Now, TheDate)
MsgBox Msg
在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 = #3/21/2006#
days = DateDiff("d", data1, data2)
Text1.Text = Str(days)
End Sub

请教VB中一个计算用时的问题
Declare Function timeGetTime Lib "winmm.dll" () As Long
Declare Function GetTickCount Lib "kernel32" () As Long
timeGetTime、GetTickCount这两个函数都可以得到开机到现在的时间长,单位毫秒,分别在程序运行开始前和结束后各取一次值,再相减就能得到很精确的时间长,单位是毫秒,如果要得到单位是秒的时长,再除以1000,注意除1000后的值要赋给小数型的变量。
不论是从程序运行的效率上来说,还是从结果的精确上来说,这两个函数都要远高于VB自带的Timer函数,第二个函数比第一个的效率还要高一点点。
vb 中实现对两个时间的相减
不是有个Diff的函数吗,可以获得两个时间差,用来做倒计时的。