其实正常的想用format 和cdate这个函数组合来完成,但是不行,应该是cdate函数
不支持yyyymmdd →yyyy/mm/dd 这样的转换
只能用下面的截取字符串的方式
Dim dateValue As String
Dim formattedDate As String
dateValue = "20240131" ' 假设dateValue是从其他地方获取的日期字符串
formattedDate = Left(dateValue, 4) & "/" & Mid(dateValue, 5, 2) & "/" & Right(dateValue, 2)
MsgBox formattedDate