excel - 将六位数字转换为日期

Question

我正在尝试将一串六位数字转换为有效日期
例子:
121200 适用于 12/12/2000
另一个例子:
140585 适用于 14/05/1985

我可以使用 DateValue 函数和 CDate 但对我来说问题是如何确定正确的世纪部分 .. 我的意思是如何确定最后两个数字之前是 20 还是 19 ..
我试过这样的线

Debug.Print Format("140585", "dd/mm/yyyy")

但这会打印 26/11/2284

Answer 1

我会使用 Format在此处添加斜线，然后使用 DateValue :

Debug.Print Format("1405085", "00\/00\/00") '<~ returns 14/05/85

稍微详细一点:

Dim textDate as String
textDate = "140585"
textDate = Format(textDate, "00\/00\/00")

Dim realDate as Date
realDate = DateValue(textDate)

Debug.Print realDate  '<~ returns 14/05/1985

见 this了解 Excel 如何处理两位数年份数字并转换为适当的世纪。