将六位数字转换为日期

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 如何处理两位数年份数字并转换为适当的世纪。