通过VBA调用函数实现将excel字符型转换成为日期型_办公软件_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

通过VBA调用函数实现将excel字符型转换成为日期型

作者：闵涛文章来源：闵涛的学习笔记点击数：2629 更新时间：2009/6/9 2:17:01

　　假如C列存放的是一些包含日期的字符，如“20090919dzwebs.net”

　　那么，如何通过VBA将最后一列的日期提取出来，并将日期加1显示在最后一行呢？其实非常简单。

　　以下为实现的方法，请诸君过目！

　　新建一个VBA宏，提取日期，代码如下：

　　Sub igetDate()
　　Dim i, j As String                            　'定义i,j为字符型，用于取得数字
　　Dim riqi As String                        　　 '定义d为字符型，用于格式化所取得的数字
　　j = Range("a65535").End(xlUp).Row         '定位至EXCEL表格最后一行
　　i = Left(Cells(j, 3), 8)                                 '取最后一行的第3列的前八位数字，如20090601

　　riqi = Format(i, "####/##/##")                   '格式化所取得的数字，格式化为2009/06/01，
                                                                　 '不用CDATE转换都可以作为日期使用了
　　riqi = DateAdd("d", 1, riqi)                   '日期的天数加一天，变成2009/06/02
　　Cells(j + 1, 1) = riqi                         　 '在日期编码的下一行的单元格输入转换后的日期

　　End Sub

　　以上代码用到函数left,format,dateadd；

　　这样我们就实现了用VBA将字符串的日期变成了真正的日期型了。