vba - 将 mmyy 转换为可用日期

Question

我的问题与这个问题非常相似，但对于 Excel:how do I convert mmyy to last day of month in netezza或者这个:Create a date from Credit Card expire in MMYY format .

基本上我有一列填满了写为 mmyy 的日期，即

0215
0215
0215
0315
0315

该列已保存为数据类型:“特殊”。

如何将此数据转换为可用格式？我不介意我们是否将其放入 dd/mm/yyyy 并使用该月的第一天或最后一天，这很好。有没有我可以使用的 Excel 函数，或者这是我在 VBA 中必须做的事情，如果有，怎么做？

Answer 1

“日期”从 A2 开始，在右侧未使用的列中使用此公式，

=DATE(20&RIGHT(A2, 2), LEFT(TEXT(A2, "0000"), 2), 1)

根据需要填写。您必须格式化为日期，否则您将收到原始日期值，例如 42064。

如果您需要月末，请将月份添加1并将日期更改为0，例如，

=DATE(20&RIGHT(A2, 2), LEFT(TEXT(A2, "0000"), 2)+1, 0)