将某些字符从字符串中心移动到字符串前面的公式？

Question

所以我有一个日期格式，我需要标准化一列单元格，如下所示：

2013年10月4日下午4:29:35

我需要它，以便它是这种格式：

2013年4月10日

或者至少可以将excel的格式读作日期，例如：

2013年10月4日

我已经能够创建一个公式来缩短时间，但是无法切换日期和月份：

= IF（ISNUMBER（E1），E1，LEFT（E1，LEN（E1）-11））

我正在使用excel 2010.提前致谢。

Answer 1

=DATEVALUE(MID(E1,FIND(",",E1)-2,2)&" "&LEFT(E1,3)&MID(E1,FIND(",",E1)+1,5))

但这个公式非常依赖你的文化。如果您的文化不是英语，则可能不会识别Oct。

Answer 2

VBA有点作弊（我确定有一个公式可以做到这一点 - 找不到它），但你可以使用类似的东西：

Public Function ReturnDate(Target As Range) As Date

    ReturnDate = Int(CDate(Target))

End Function

输入=ReturnDate(E1)并格式化单元格。