【原】VBA 日期时间处理 一篇文章搞清楚!

本技巧的目的：掌握日期、时间的如何从文本转换到日期、时间的方式，计算各种与日期、时间相关值。

• 小伙伴们是不是经常遇到和日期有关的各种问题，比如提取年、月、日，计算月初月末的日期，计算往后推一个月后的日期，多少个工作日后的日期，二个日期的间隔天数，等等。这篇笔记会把这些问题逐一详述。

使用代码助手，可以让代码的输入方便快捷，不用记很多英语就能够完成代码，绝对是新手的福利。

• 代码助手下载地址 http:///blog/archives/11297

• 只要在代码区输入 日期 + 空格 ，代码助手就会自动弹出各种相关代码的选项，实现快速输入。

• 

• 在看到好用的代码时，随时收录，方便下次快捷使用，记得经常做代码库的备份哦。

• 

日期、时间转换

• 首先来看下，为什么要转换？

• 原来的日期数据是这样的：

• 

• 执行排序代码后的结果：

• n = sht.Range("a" & Rows.Count).End(xlUp).Row 'A列最大行

• sht.Range("a1").Resize(n).Sort Header:=xlYes, key1:=sht.Range("a1"), order1:=xlAscending '排序

• 

• 
  

• 排序后的结果日期顺序仍然是混乱的，因为这些是文本值，无法进行正确的排序。

• 解决方案：

• 1. 如果是在excel中，可以这样排序：

• 

• 

• 2. 使用代码排序，需要先进行转换：

• 放二组不同类型的数据，一组是A列，仅是日期， 第二组是C列，日期带时间的格式。转换后的结果放在B列和D列

• 

• 转换代码：

• 

• 使用了四个函数：

• IsDate : 检查是否可以转换成日期，如果是返回 True， 否返回 False

• CDate：将字符串转换成日期数据类型，如果不需要输出，使用CDate转换就可以

• CLng：将数值转换为 Long 类型

• CLng(CDate(x)): 先将日期用 CDate 转化为日期类型，再用 CLng 函数转换，转换后的数值所在的区间段系统会识别为日期

• CDbl：将表达式转换为 Double 类型， 与 CLng 同样的原理

• 转换后不设置格式是这样的结果：

• 

• 设置成日期格式后就是需要的结果：

• 

• 这时再执行排序代码后：

• 

• 二组日期的排序结果全部正确。

• 注释：

• 1. 辅助列只是为了演示方便，在实际转换时可以替换原值

• 2. 不管是否带时间，都可以先使用 CDate 转化为日期类型，再使用 CDbl 转换输出，最后设置成日期

• 格式。

日期、月份、季度、年份的计算

• 

• Excel 函数：

• 年：=YEAR(A2)

• 月：=MONTH(A2)

• 日 ：=DAY(A2)

• 季度：=ROUNDUP(C2/3,0) '月份值/3, 再取整

• 星期：=WEEKDAY(A2)

• 代码:

• 

• 使用2个函数:

• DatePart: 返回一个包含已知日期的指定时间部分的值

• DatePart(interval,date[,firstdayofweek[,firstweekofyear]])

• 

• 

• 

• 

• 例如:

• datepart("yyyy","2020-1-20") 返回年份: 2020

• datePart("q","2020-9-5") 返回季度：3

• datepart("m","2020-1-20") 返回月份: 1

• datepart("y","2020-3-6") 返回按年计算第几天：66

• datePart("d","2020-9-25") 返回天数：25

• datepart("w","2020-5-28",vbmonday) 返回星期几: 4

• datepart("ww","2020-5-2") 返回第几周: 18

• Weekday：返回一个整数，代表某个日期是星期几

• Weekday(date, [firstdayofweek])

• 

• 注释：

• 本例设置了单元格格式，中文星期，所以 Weekday 要设置为 vbSunday, 中文显示 星期一，数值是 2

• datepart ，输出星期时参数也同上， 根据需要是显示数字， 还是中文， 来选择参数

计算指定日期的月末、月初

• 

• Excel 函数：

• 本月初：=EOMONTH(A2,-1)+1

• 本月末：=EOMONTH(A2,0)

• 下月初：=EOMONTH(A2,0)+1

• 下月末：=EOMONTH(A2,1)

• 代码：

• 

• DateSerial 函数：返回包含指定的年、月、日的日期

• DateSerial(year, month, day)

两个日期间的间隔的计算

• 

• Excel 函数：

• 间隔天数：=DATEDIF(A2,B2,"d")

• 代码：

• 

• DateDiff 函数：返回 值，表示两个指定日期间的时间间隔数目。

• 语法：参数同 DatePart 函数

• DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])

增加间隔日期的计算

• 

• Excel 函数：

• 增加1个月：=EDATE(A2,1)

• 20个工作日后：=WORKDAY(A2,20)

• 代码：

• 

• DateAdd 函数：返回加上一段时间间隔的日期。

• 语法：DateAdd(interval, number, date)

• 

•