将“mmm-yy”转换为“dd / mm / yyy”

Question

有没有人知道如何将日期格式化为“mmm-yy”（在ComboBox中）转换为“dd / mm / yyyy”。我试过了：

 Format(Me.ComboBox5.Value, "dd/mm/yyyy")

但是，VBA对此的解释导致月份和年份成为日期和月份，然后年份将被视为2016年。例如，3月12日成为2016年3月12日。 非常感谢提前

Answer 1

Function ChangeDate(strInput As String) As Date


Dim iYear, iMonth    

iYear = CInt(Split(strInput, "-")(1))
iMonth = Month("01/" & Format(Split(strInput, "-")(0), "mmmm"))

ChangeDate= DateSerial(iYear, iMonth, 1)

End Function