访问转换字符串,如“FEB 2017”到目前为止

时间:2017-03-08 14:07:31

标签: ms-access access-vba access

报告帐户系统出现像“FEB 2017”这样的月份。我需要将该字符串转换为月末,如02/28/2017。有什么想法吗?

2 个答案:

答案 0 :(得分:2)

SELECT LastDayInMonth(DateValue(Mid("Feb 2017", 1, 3) & " 1, " &
                                Mid("Feb 2017", 5, 4))) AS LastDayInMonth
FROM yourTable

<强>解释

DateValue()的调用中的连接术语将为Feb 1, 2017,并且将评估到相同的日期,至少对于我使用的示例数据。一般来说,这将是您向我们展示的数据的第一天。然后,我们使用LastDayInMonth()将该日期转移到同月的最后一天。

答案 1 :(得分:2)

您还可以使用本机功能,添加一个月,减去一天:

MonthYear = "FEB 2017"
Ultimo = DateAdd("d", -1, DateAdd("m", 1, CDate("1 " & MonthYear)))

Ultimo -> 2017-02-28