将mmyy转换为可用日期

时间:2015-04-01 00:44:49

标签: excel vba date excel-vba excel-formula

我的问题与此问题非常相似,但对于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

该列已保存为数据类型:" Special"。

如何将此数据转换为可用格式?如果我们把它放入 dd / mm / yyyy 并使用该月的第一天或最后一天,我不介意。是否有我可以使用的Excel功能,或者这是我在VBA中必须做的事情,如果有的话,怎么做?

3 个答案:

答案 0 :(得分:4)

使用'日期'从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)

答案 1 :(得分:4)

30个字符:

=1*REPLACE("1/"&A1,5,1,"/201")

根据相关日期,20可能是多余的。

答案 2 :(得分:2)

使用此

=DATEVALUE("01/"&LEFT(A1;2)&"/20"&RIGHT(A1;2))

enter image description here

不要忘记将格式化单元格更改为"日期"对于专栏" B"