excel - 如何将像 20120103 这样的数字转换成 Excel 可以识别的日期？

Question

我有一个 8 位数字告诉我日期，YYYYMMDD。如何将此数字转换为 Excel 将识别为日期的日期。

假设单元格 A1 中有 20120229...我该怎么办？

Answer 1

既然你用 VBA 标记了这个问题，我假设你想要 VBA 中的答案，所以你去吧:

Dim l As Long
Dim s As String
Dim d As Date

l = Range("A1").Value ' 20120229

' convert it to a string 
s = CStr(l)

' can now use string functions to parse it
d = DateSerial(CInt(Left(s, 4)), CInt(Mid(s, 5, 2)), CInt(Right(s, 2)))
' d is now 29 Feb 2012

' write it back to the sheet
Range("A2").Value = d