excel - 尝试将某些格式转换为日期格式

Question

我已经能够获得下面的代码，成功地将通用值“19082015”和“9052015”转换为日期格式dd/mm/yyyy。

但是当我尝试在同一代码中转换通用值“19.08.2015”时，它不会运行宏并显示:

运行时错误“13”:
类型不匹配

在 "l = Range("A1").Value"行上

需要做什么才能处理“19.08.2015”格式？

Sub convertdate()

Dim l As Long
Dim testdate As String
Dim convertdate As Date

l = Range("A1").Value

testdate = CStr(l)

dotdate = False
If InStr(testdate, ".") Then dotdate = True
If dotdate = False Then convertdate = DateValue(CInt(Left(testdate, Len(testdate) - 6)) & "/" & CInt(Mid(testdate, Len(testdate) - 5, 2)) & "/" & CInt(Right(testdate, 4)))
If dotdate = True Then convertdate = DateValue(CInt(Left(testdate, Len(testdate) - 8)) & "/" & CInt(Mid(testdate, Len(testdate) - 6, 2)) & "/" & CInt(Right(testdate, 4)))

Range("A2").Value = convertdate

End Sub

Answer 1

问题将是如果 Range("A1")不是一个数字。所以如果它确实有 .那么你不能把这个值变成一个长的。声明 l如string不是 long你的代码会起作用