Format一招鲜,搞定关于日期的问题
Sub 文本转日期()
r = Sheet1.Range('a65536').End(3).Row
With Sheet1
For i = 3 To r
.Cells(i, 2) = Format(.Cells(i, 1), 'yyyy年mm月dd日') '年月日
.Cells(i, 3) = Format(Now, 'yyyy年mm月dd日 h:mm:ss') '日期精确到时分秒
.Cells(i, 4) = Date - 1 '昨天的日期
.Cells(i, 5) = Date '今天的日期
.Cells(i, 6) = Date + 1 '明天的日期
.Cells(i, 7) = Format((.Cells(i, 3)), 'yyyy') & '年' '从日期中提取年
.Cells(i, 8) = Format((.Cells(i, 3)), 'dd') & '月' '从日期中提取月
.Cells(i, 9) = Format(.Cells(i, 3), 'd') & '日' '从日期中提取日
.Cells(i, 10) = Format(.Cells(i, 3), 'H') & '点' '从日期中提取时
.Cells(i, 11) = Format(.Cells(i, 3), 'mm') & '分' '从日期中提取分
.Cells(i, 12) = Format(.Cells(i, 3), 'ss') & '秒' '从日期中提取秒
.Cells(i, 13) = Format(.Cells(i, 3), 'aaaa') '中文星期
.Cells(i, 14) = Format(.Cells(i, 3), 'dddd') '英文星期
.Cells(i, 15) = Format(.Cells(i, 3), 'ddd') '英文星期简写
Next i
End With
'--------在做处理数据的时候,可以用一下这段代码!
startTime = Time
MsgBox ('运行此流程共耗时:' & DateDiff('s', startTime, Time) & '秒')
End Sub
联系客服