改日期

Posted lyzifan

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了改日期相关的知识,希望对你有一定的参考价值。

Sub zh()

For i = 2 To Range("a65536").End(xlUp).Row
Range("b" & i) = DateSerial(Left(Range("a" & i), 4), Mid(Range("a" & i), 5, 2), Right(Range("a" & i), 2))   

   ‘dateserial(年,月,日)其中年为四位数的字符,月是两位,日是两位   left  取左边?位    mid是从

    第几个字符开始 取几个,rigth  取右边几位。
Next
End Sub

 注释:把8位数字变成日期。

 

Sub zh1()

For i = 2 To Range("a65536").End(xlUp).Row
Range("b" & i) = DateSerial(Mid(Range("a" & i), 7, 4), Mid(Range("a" & i), 11, 2), Mid(Range("a" & i), 13, 2))
Next
End Sub

注释:把身份证变成日期。

以上是关于改日期的主要内容,如果未能解决你的问题,请参考以下文章

将SQL查询出的日期更改格式

DB2日期格式更改的方法

excel怎么批量修改一格中的日期时间不修改分秒?

甘特图日期坐标怎么改

电子表格里面日期怎么批量修改

怎么修改文件修改日期