Работа с датами

[sdwig]

Добрый день.

Столкнулся со следующей проблемой: файл (во вложении) в таком виде выгружается из программы. И всё бы ничего, но там разные форматы ячеек, и разные форматы дат. И даже это в принципе было бы не проблемой, но форматы неправильные - стоит ДД.ММ.ГГГГ а на самом деле дата должна читаться ММ.ДД.ГГГГ.
Изменение формата ничего не даёт, так как Excel неправильно понимает дату и просто меняет местами число и месяц (а дату так же воспринимает неверно, т.е. число принимает за номер месяца, а номер месяца за число)

Если честно я в тупике
Единственное, что приходит мне в голову это разбить каждую ячейку со значением на шесть разных:
число
месяц
год
часов
минут
секунд

Только я не знаю как это осуществить. Подскажите формулу или макрос для подобного разделения ячеек.
Ну или может кто-нибудь подскажет более тривиальное решение.

date_issue1.rar

[IgorGO]

см.вложение

[sdwig]

Если честно пока не разобрался в формуле (так как не знаю назначение некоторых формул вложенных в если), но могу сразу сказать, что ячейки, где стоял формат "общий" преобразовались правильно (они были с АМ\РМ на конце), а вот ячейки с форматом ДД.ММ.ГГГГ преобразовались неправильно - вместо номера месяца получилась дата, а вместо даты - номер месяца. Собственно, это то во что я упёрся при своих собственных манипуляциях. Т.е. Excel изначально дату воспринимает неправильно

Update: понял, вы их не преобразовывали, а просто подставили старое значение, преобразовав ячейки с АМ\PM. А их тоже надо преобразовывать, но я думаю теперь на основе Вашей формулы уже разберусь.

[IgorGO]

позвольте полюбопытствовать, какая конкретно дата, в какой строке распозналась не правильно?

[IgorGO]

понял чего надо)) я человек военный, поэтому говорить мне надо все медленно и два раза.
запишите это:

=ЕСЛИ(ДЛСТР(ПОДСТАВИТЬ(C2;"/";""))=ДЛСТР(C2);ДАТА(ГОД(C2);ДЕНЬ(C2);МЕСЯЦ(C2))+C2-ЦЕЛОЕ(C2);ДАТА(ЗНАЧЕН(ПСТР(C2;ПОИСК(" ";C2)-4;4));ЗНАЧЕН(ЛЕВСИМВ(C2;ПОИСК("/";C2)-1));ЗНАЧЕН(ПСТР(C2;ПОИСК("/";C2)+1;2))) + ВРЕМЗНАЧ(ПРАВСИМВ(C2;ДЛСТР(C2)-ПОИСК(" ";C2))))

в D2. потом копируйте вниз по столбцу.

[R Dmitry]

Function datDD(d As String)
If InStr(1, d, "/") > 0 Then
datDD = Format(d, "c")
Else
m = Mid(d, 1, 2)
dd = Mid(d, 4, 2)
s = Mid(d, 6)
datDD = Format(dd & "." & m & s, "c")

End If
End Function

[sdwig]

Сообщение от IgorGO

понял чего надо)) я человек военный, поэтому говорить мне надо все медленно и два раза.
запишите это:

=ЕСЛИ(ДЛСТР(ПОДСТАВИТЬ(C2;"/";""))=ДЛСТР(C2);ДАТА(ГОД(C2);ДЕНЬ(C2);МЕСЯЦ(C2))+C2-ЦЕЛОЕ(C2);ДАТА(ЗНАЧЕН(ПСТР(C2;ПОИСК(" ";C2)-4;4));ЗНАЧЕН(ЛЕВСИМВ(C2;ПОИСК("/";C2)-1));ЗНАЧЕН(ПСТР(C2;ПОИСК("/";C2)+1;2))) + ВРЕМЗНАЧ(ПРАВСИМВ(C2;ДЛСТР(C2)-ПОИСК(" ";C2))))

в D2. потом копируйте вниз по столбцу.

Спасибо, помогло
Не думал, что в одну формулу всё удастся уместить, теперь буду изучать чего там нагорожено

[R Dmitry]

смотрите , макросы должны быть включены

[sdwig]

Сообщение от R Dmitry

смотрите , макросы должны быть включены

Спасибо, с макросом тоже работает, жаль я в них не очень много понимаю. Но в этом макросе обязательно разберусь.

Решение найдено, тему можно закрывать.

[kuklp]

Сообщение от R Dmitry

смотрите , макросы должны быть включены

Чет, ты Дим слишком усложнил. Так не проще:

Public Function mdat(s$) As String
        mdat = IIf(InStr(1, s, "/") = 0, Format(CDate(s), "mm/dd/yyyy hh:mm:ss"), Format(CDate(s), "dd/mm/yyyy hh:mm:ss"))
End Function

?