vb里用两个time函数想减得到(vb时间相减得出小时)

http://www.itjxue.com  2023-01-29 16:54  来源:未知  点击次数: 

如何 用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的函数吗,可以获得两个时间差,用来做倒计时的。

(责任编辑:IT教学网)

更多

推荐人物新闻文章