格式化时间从dd / mm / yyyy hh：mm：ss到yyyy.mm.dd hh：mm

Question

I received the following task: turn "dd/mm/yyyy hh:mm:ss" time to "yyyy.mm.dd hh:mm" format.

I was hoping that a simple Format(activecell.value, "yyyy.mm.dd hh:mm") would help, but. In some cases it works. However, in some special cases, it doesn't. When the day is between 01-12 (interchangeable with months!), then it messes up the days with months. (Probably because of US style date format.)

For example, original text string: 04/06/2013 09:00:00

Expected: 2013.06.04 09:00

Result: 2013.04.06 09:00 (day and month have been swapped)

I tried to overcome it by formatting the input, I gave it a "dd/mm/yyyy hh:mm:ss" custom format. Didn't help, it still swaps the day and the month.

So I have no ideas anymore, but regular expressions. Date format is always the same so just moving the parts of the string would be okay. However, I don't know how that works and google searching brings up confusing results.

Can anyone help me? Of course if there is a more elegant way to do it, that's also welcome.

Answer 1

Try using this Custom Format:

yyyy/mm/dd h:mm;@

To enter it, right click on the cell and Choose Format Cell:

Then under the Number Tab Select Custom from the listbox. And enter the provided format in the Type: textbox.

If that doesn't work. Are you *****Absolutely***** Positive that 04/06/2013 09:00:00 IS April 6, 2013 and NOT June 4, 2013??

If this still doesn't work and you have verified that dates are correct.

Sub ChangeDateFormat()

Application.ScreenUpdating = False

Dim CurrentCell As Range
Dim LastRow As Long
Dim RegEx As Object
Set RegEx = CreateObject("vbscript.regexp")
RegEx.Global = True

LastRow = Range("A" & Rows.Count).End(xlUp).Row 'Get The Last Row in Column Change A as Needed

For Each CurrentCell In Range("A1:A" & LastRow) ' Loop through all cells. Change Column as needed

    If InStr(CurrentCell.Value, "/") <> 0 Then 'To make sure only convert non converted ones

        RegEx.Pattern = "(\d{2})/(\d{2})/(\d{4}) (\d{2}):(\d{2}):(\d{2})" ' Seperate all parts of imported Data into groups
        CurrentCell.Value = RegEx.Replace(CurrentCell.Value, "$3.$2.$1 $4:$5") ' Change order of groups and place into cell.

    End If

Next

Application.ScreenUpdating = True

End Sub

*****NOTE: ***** This will only work if ALL date values are of dd/mm/yyyy hh:mm:ss if they are not you will have to add some Error Handling and possibly slightly modify the code as it WILL cause problems.

This will also work on dates that are inside of other text. If the value of A1 is

This is a test 04/06/2013 09:00:00 Lets see what happens

Then the new value will be

This is a test 2013.06.04 09:00 Lets see what happens

Answer 2

its simple. . . just follow the steps select the entire column or even required cells press right click and select format cell option, a tab window will open from number tab select date , from locale drop down menu select English (South Africa) from given options in type select your desired reverse format . . . and you done :)

Answer 3

如果月份和日期在错误的位置，则可以使用日期格式的"DATE(YEAR(A1),DAY(A1),MONTH(A1))"和"DATE(MID(A1,7,4),LEFT(A1,2),MID(A1,4,2))"如果为文本格式