vb计算时间间隔_vb怎样计算电脑系统时间差
1.VB 计算时间差距
2.要用VB,自己输入两个时间,然后算这两个时间的差(小时)。这个应该怎么操作呢? 谢谢!
3.vb 用timer每隔1s读取系统的时间,计算每次读的时间和上一次时间的差?
4.vb时间差
不太明白你要干什么,但一下代码仅作参考:
时间差的计算用DateDiff函数:要相加时间DateAdd:
例如:你有2个时间,一个 2小时10分20秒:一个1小时11分23秒,怎样知道这两个时间和是多少小时多少分钟多少秒呢?这样计算:
1.计算第一个时间有多少秒,转换为秒
Dim l1 as double
l1=datediff("s","00:00:00","02:10:20")
2.同理计算第2个时间
Dim l2 as double
l2=datediff("s","00:00:00","01:11:23")
3.计算两个时间和并转换为时间格式
Dim sDate as string
sDate=format$(DateAdd("s",l1+l2,"00:00:00"),"hh:mm:ss")
msgbox sDate
不知道你要的是不是这个。请注意两个时间和如果大于24小时,是不会取天的部分,自己判断。一天是86400秒。
VB 计算时间差距
不知你想做什么?但还是帮你写一下程序,希望真能帮你一点小忙
Option Explicit
'需要控件: command1,label1,text1
Private Sub Command1_Click()
Label1.Caption = "相差" & DateDiff("yyyy", Text1.Text, Date) & "年"
Label1.Caption = Label1.Caption & vbCrLf & _
"相差" & DateDiff("m", Text1.Text, Date) & "月"
Label1.Caption = Label1.Caption & vbCrLf & _
"相差" & DateDiff("d", Text1.Text, Date) & "天"
End Sub
Private Sub Form_Load()
Text1.Text = "1937-7-7"
Command1.Caption = "结果"
End Sub
要用VB,自己输入两个时间,然后算这两个时间的差(小时)。这个应该怎么操作呢? 谢谢!
datediff()
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
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 从第一个无跨年度的星期开始。
说明
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 表示相差一个年份,虽然实际上只相差一天而已。
vb 用timer每隔1s读取系统的时间,计算每次读的时间和上一次时间的差?
比如设置两个textbox
text1和text2,程序运行时输入两个日期,按 年-月-日 时:分:秒 的格式来输入,然后点击command1来计算
Private Sub Command1_Click()
MsgBox (CDate(Text1.Text) - CDate(Text2.Text)) * 24
End Sub
先把 text转换成date,再计算,结果是以天来计算的,*24,转成小时。
===========补充
字符串转日期型的函数是 cdate()
vb时间差
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static t As Single
If t <> 0 Then Debug.Print Timer - t
t = Timer
End Sub
不过我觉得这个问题有点傻,既然说了每隔1s了,那么每次读取的时间差也就是1s咯(运行结果也是如此)。
你使用 dateadd 和 datediff 这两个函数很容易实现你的功能
其他相关函数 day ,month ,year 等
见以下代码
Public Function GetDoTime(Date1 As Date, Date2 As Date, Time1 As Date, Time2 As Date) As String
Dim DT1 As Date, DT2 As Date
Dim D As Integer, H As Integer, M As Integer, S As Integer
Dim SS As Long
DT1 = CDate(Format(Date1, "yyyy-mm-dd") & " " & Format(Time1, "hh:mm:ss"))
DT2 = CDate(Format(Date2, "yyyy-mm-dd") & " " & Format(Time2, "hh:mm:ss"))
If DT1 <= DT2 Then
GetDoTime = "0天0时0分0秒"
Exit Function
End If
SS = DateDiff("S", DT2, DT1) '计算出两个日期差多少秒
D = SS \ 86400 '1天有86400秒,整除的结果是天数
SS = SS Mod 86400
H = SS \ 3600 '1小时有3600秒,整除的结果是小时
SS = SS Mod 3600
M = SS \ 60 '1分钟有60秒,整除的结果是分钟
S = SS Mod 60 '最后的余数是秒
GetDoTime = CStr(D) & "天" & CStr(H) & "时" & CStr(M) & "分" & CStr(S) & "秒"
End Function
声明:本站所有文章资源内容,如无特殊说明或标注,均为采集网络资源。如若本站内容侵犯了原著者的合法权益,可联系本站删除。