vba 日期格式识别问题

daqinqin

就比如说下面这个，怎么分别显示06Jan2019和01Jun2019,感谢大佬们提供帮助。

Sub lalala()

    Dim prd

    prd = "06/01/2019"

    prd = Format(prd, "ddmmmyyyy")

    MsgBox prd

End Sub

hfwufanhf2006

用cdate函数转换
dim ri as date
ri=cdate("06/01/2019")
得到就是一个日类型的变量值，至于后续你打算如何显示它，取决于你如何设置单元格的日期格式了，在格式设定里，你可以选择多种显示格式。
因为是日期类型，用msgbox来显示并不合适，它只适合显示文本。
如果一定是要用Format，它会得到格式化后的文本，不是日期，比如：
format("06/01/2019", "mmm d yyyy")   
结果是 Jun 1 2019
format("06/01/2019", "mmm dd yyyy")
结果是 Jun 01 2019
format("06/01/2019", "dd mm yyyy")

结果是 01 06 2019
从上面的规律你可以自行设定。
总之最后的结果都是文本，不能参与日期计算，而date是可以参与日期计算的。

xiangbaoan

prd = #6/1/2019#

cui26896

稍改动一下就行了

Sub lalala()

    Dim prd

    prd = "06/01/2019"

    prd = Format(prd, "yyyy/mm/dd")

    MsgBox prd

End Sub