mdsk.net
当前位置:首页 >> ExCEl vBA比较时间的方法 >>

ExCEl vBA比较时间的方法

f Max_a < .Cells(i, zongbiaolie) Then Max_a = .Cells(i, zongbiaolie):Maxline = .Cells(i, 1)If Min_a > .Cells(i, zongbiaolie) Then Min_a = .Cells(i, zongbiaolie):Minline = .Cells(i, 1)在 if max_a < XX 后,必须 max_a = XX ,就是...

如日期, 假设 2007年12月31日 DateValue("2007-12-31") DateValue("2007/12/31") DateSerial(2007, 12, 31) 如时间, 假设 下午1时30分 TimeValue("13:30:00") TimeSerial(13, 30, 0)

在VBA中,有文本转换为日期的函数: CDATE() 转换以后就可以当做日期正常想减了. 我举个例子: msgbox cdate("2009-10-3") - cdate("2009-10-1") 得出来的结果是: 2 学会了吧?

亲,区别大了~~~~~首先要搞清楚你的time是什么类型? 如果time是字符型,才能这么比较:time>"09:00:00",而且这个比较实际是字符串的比较,比的是内部code码,不是真正的时间。 如果time是时间类型,或者数值类型,才能用:time>timevalue("09:...

Private Sub CommandButton1_Click() If DateDiff("s", Format(TextBox1.Text, "0:00:00"), Format(TextBox2.Text, "0:00:00")) > 2400 Then MsgBox "时差超过40分钟!" End Sub

'以对话框显示当前时间的时、分、秒 MsgBox "当前时间:" & Time & Chr(10) & _ "时:" & Hour(Time) & Chr(10) & _ "分:" & Minute(Time) & Chr(10) & _ "秒:" & Second(Time)

楼主的需求请再明确下 去时间的小时,是将时长换算成小时,还是将某个时间的"小时”提取出来 计算小时差,两个时间相减结果是天数*24就是小时,再*60就是分钟 取小时是hour,分钟minute

这个用不着VBA呀, 直接用公式就行了。

Sub abc() Dim a, b As String a = Format(Date, "yyyy年m月d日") '当前年月日 b = Format(Time, "hh:mm") '当前时间 MsgBox a & b '显示日期时间 End Sub 是这个意思吗?又修改了一下,看看吧

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com