[Excel VBA]輸入yyyymmdd直接轉換成日期格式(紀錄)

[Excel VBA]輸入yyyymmdd直接轉換成日期格式

Function DateConvert(x)

If Val(x) <> 0 And Len(x) = 8 Then

DateConvert = Val(Left(x, 4)) & "/" & Val(Mid(x, 5, 2)) & "/" & Val(Right(x, 2))

Else

DateConvert = "#N/A"

End If

End Function

不要去0的話把Val()去掉就行