将“mm yyyy”转换为“dd/mm/yyyy”答案

【问题标题】：converting "mmm-yy" to "dd/mm/yyy"将“mm yyyy”转换为“dd/mm/yyyy”
【发布时间】：2016-06-15 14:04:13
【问题描述】：

有谁知道如何将格式为“mmm-yy”（在组合框中）的日期转换为“dd/mm/yyyy”。我试过了：

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

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

【问题讨论】：

简单：不要让 vba GUESS 你输入了什么。将其正确解析为标准日期时间对象，然后从中格式化。
抱歉，我该怎么做呢？当然，我一定缺少一个格式化技巧？

标签： vba date format

【解决方案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

【讨论】：