计算两个时间差的VB函数
发布网友
发布时间：2022-04-21 03:13
共4个回答
热心网友
时间：2023-10-14 04:55
datediff("h",#5/6/2008 12:10:00#,#5/6/2008 15:30:00) 相差的小时
datediff("n",#5/6/2008 12:10:00#,#5/6/2008 15:30:00) 相差的分钟
datediff("s",#5/6/2008 12:10:00#,#5/6/2008 15:30:00) 相差的秒
建议： 买本VB的函数参考大全，作工具书。方便编程 。
热心网友
时间：2023-10-14 04:55
Declare
Function
GetTickCount
Lib
"kernel32"
()
As
Long
Global
TimeData
As
Long
Sub
NoteTime(Value
As
Integer)
'测试时间
If
Value
=
0
Then
TestTime.Enabled
=
False
End
If
If
Value
=
1
Then
TimeData
=
GetTickCount
TestTime.Enabled
=
True
End
If
End
Sub
Private
Sub
TestTime_Timer()
'测试时间
StatusShow.Text
=
"执行时间:"
&
CStr(Format((GetTickCount
-
TimeData)
/
1000,
"0.00"))
+
"
s"
End
Sub
热心网友
时间：2023-10-14 04:56
零敲碎打
打抱不平
热心网友
时间：2023-10-14 04:56
DateDiff 函数
返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。
语法 DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
返回的值是 date2 减去 date1
DateDiff 函数语法中有下列命名参数：
部分 描述
interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔
Date1 , date2 必要；Variant (Date)。计算中要用到的两个日期。
Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。
firstweekofyear 可选。指定一年的第一周的常数。如果未予指定，则以包含 1 月 1 日的星期为第一周。
设置
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 从第一个无跨年度的星期开始。
例子：
ShiJianCha = "从当天开始的天数:" & DateDiff("d", Now, theDate)
注意引号不能省略
引用的
