VBA中⽇期和时间相关的计算
VBA中取当前⽇期的函数是Date,当前时间的函数是Time,当前⽇期和时间⼀起取是Now。⽇期转换成年⽉⽇的函数分别是:Year、Month、Day,参数可以⽤Date或Now取出的值。时间转换成时分秒的函数分别是:Hour、Minute、Second,参数可以⽤Time或Now 取出的值。
例如:
MsgBox "当前时间:" & Now & Chr(10) & _
"时:" & Hour(Now) & Chr(10) & _
"分:" & Minute(Now) & Chr(10) & _
"秒:" & Second(Now)
MsgBox "当前⽇期:" & Now & Chr(10) & _
"年:" & Year(Now) & Chr(10) & _
"⽉:" & Month(Now) & Chr(10) & _
"⽇:" & Day(Now)
1、⽇期转换
很简单,直接⽤转换函数就可以了,例如:
CDate("2012-12-31")
2、⽇期之间的天数
⽤datediff函数,注意,⼯作表单元格中⽤的函数名称是datedif,少了⼀个f,⽽且参数顺序也不⼀样(=DATEDIF(A2,B2,"d"))。例如:
dt = Cells(2, 1)    ' 单元格内容:2013-1-1 09:35:08
dd = DateDiff("D", CDate("2012-12-31"), dt)
其中的“D”也可以换成其他字母,以便计算其它时间差(年⽉⽇时分秒等),⽐如“W”表⽰计算两个⽇期之间周数,“H”表⽰计算两个⽇期之间的⼩时数数,具体见本⽂最后的附录。
⽇期之间的天数最简单的就是直接相减,如果⽇期中包含时间,相减是两个⽇期时间值相减,结果是
个浮点数(时间差),计算天数需要⽤datevalue转换(相当于去掉⼩数部分的取整)后才能计算,例如:
dt = Cells(2, 1)    ' 单元格内容:2013-1-1 09:35:08
dd = DateValue(dt) - CDate("2012-12-31")
实际上,DateValue函数的值就是被转换⽇期距1900-1-1的天数加1,也就是说⽇期1900-1-1的DateValue函数值就是1,在此⽇期之前的⽇期Excel是不认的。⽇期时间本质就是⼀个浮点数,整数部分是⽇期,⼩数部分是时间。
3、时间差计算
时间差计算⼀般⽤TimeValue()函数将时间转换成时间值,然后计算。例如:
dt2 = Cells(2, 1)    ' 单元格内容:2013-1-1 09:35:08
int函数与round函数
dt3 = Cells(3, 1)    ' 单元格内容:2013-1-1 11:55:18
interval=TimeValue(dt3)-TimeValue(dt2)
TimeValue的值在0-1之间,表⽰0-24⼩时,实际上就是当前时间占24⼩时的⽐例。利⽤这个值可以⼲很多事,例如,⽤时间值乘以24再取整就是时间从0点开始的⼩时值,乘以2460再取整就是时间从0点开始的分钟值,乘以246060就是时间从0点开始的秒值。再⽐如,以10分钟作为间隔,⼀天的间隔数就是144,那么任意⼀个时间值乘以246再取整就得到从0点开始这个间隔的数量。
注意:TimeValue的数据类型是Single,如果单元格中只输⼊时间,也是给Single类型变量赋值。例如:
tt = Cells(2, 1)    ' 单元格内容:12:00:00,赋值后tt的值是0.5
我们计算两个时间差,也就是计算两个浮点数之差,⽐如程序的运⾏时间,将这个差值乘以24就是时间差以⼩时为单位,乘以2460就是以分为单位,乘以2460*60就是以秒为单位。
时间之间的也可以直接相减,但数据类型必须正确,效果和使⽤TimeValue函数⼀样。
4、关于取整
INT(12.56)=12:直接取整数部分,
CInt(12.56)=13:⼩数部分四舍五⼊;
Ceiling(12.56,1)=13:向上进,只要有⼩数,整数部分都加1,
Ceiling(12.05,1)=13,当然,这个函数功能⽐较强⼤,取整只是⼀个应⽤;
round(12.56,0)=13:⼩数部分四舍五⼊,同样,该函数有两个参数,取整只是⼀个应⽤。
5、关于Round函数进⾏四舍五⼊
Round函数进⾏四舍五⼊并不是逢5就⼊,例如:
round(0.5)=0、
round(1.5)=2 、
round(2.5)=2 、
round(3.5)= 4 、
round(4.5)=4 ,
难到还分奇偶?答案是确实分奇偶,在VBA中Round函数是采⽤“银⾏家舍⼊”,建议⼤家在VBA中慎重使⽤Round函数来四舍五⼊。什么是“银⾏家舍⼊”呢,定义如下:
“四舍六⼊五考虑,五后⾮零就进⼀,五后为零看奇偶,五前为偶应舍去,五前为奇要进⼀”。这个四舍五⼊法是⼀个国际标准,⼤部分的编程软件都使⽤的是这种⽅法,据说国际上⼀般都是⽤这种⽅法的。
如果在Excel VBA中进⾏四舍五⼊处理,也可以直接调⽤Excel⼯作表函数,达到直接四舍五⼊的⽬的
Application.Round(A,B)
附:DateDiff 函数⽤法
DateDiff (interval, Date1 , Date2[,firstweekofyear[,firstweekofyear]])
返回⼀个Variant(long) 的值,表⽰两个指定⽇期间的时间间隔数⽬
interval:设定两个⽇期之间的期间计算之单位。譬如 >interval="m" 表⽰计算的单位为⽉。 >interval 的设定值如:
yyyy > Year 年
q Quarter 季
m Month ⽉
d Day ⽇
w Weekday 星期
h Hour 时
n Minute 分
s Second 秒
Date1 ,Date2:计算期间的两个⽇期表达式,若 >date1 较早,则两个⽇期之间的期间结果为正值;若 >date2 较早, 则结果为负值。firstweekofyear:设定每周第⼀天为星期⼏, 若未设定表⽰为星期天。 >FW 的设定值如下:
0 使⽤ >API 的设定值。
1 星期天
2 星期⼀
3 星期⼆
4 星期三
5 星期四
6 星期五
7 星期六
firstweekofyear:设定⼀年的第⼀周, 若未设定则表⽰⼀⽉⼀⽇那⼀周为⼀年的第⼀周。 >FY 的设定值如下:
0 使⽤ >API 的设定值。
1 ⼀⽉⼀⽇那⼀周为⼀年的第⼀周
2 ⾄少包括四天的第⼀周为⼀年的第⼀周
3 包括七天的第⼀周为⼀年的第⼀周
⽰例如下:
计算两个⽇期的相隔⽉数.
DiffMonthL = DateDiff("M", DATE_start, DATE_end)

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。