Получение даты из имени файла ГГММДД.xls

Пользователь

Сообщений: 6 Регистрация: 01.01.1970

11.05.2011 21:32:44

Бэн, это Данила!

В общем, имеется куча файлов excel, названия которых содержат в себе дату в немного перевернутом формате (ГГММДД):
110429.xls
110430.xls
110501.xls
110502.xls

Следующей строкой, отбрасываем от имени книги расширение .xls, получаем ГГММДД
OutFileName = Left(iTempWB.Name, Len(iTempWB.Name) - InStr(1, StrReverse(iTempWB.Name), "."))

Далее, дату необходимо переделать из ГГММДД в ДДММГГ и вот тут я затупил
OutDate = Right(OutFileName, 2)...

Вопрос, как получить ДДММГГ из ГГММДД?

R Dmitry

Пользователь

Сообщений: 3103 Регистрация: 22.12.2012

Excel,MSSQL,Oracle,Qlik

11.05.2011 21:40:05

{quote}{login=semx}{date=11.05.2011 09:32}{thema=Получение даты из имени файла ГГММДД.xls}{post}Бэн, это Данила!

В общем, имеется куча файлов excel, названия которых содержат в себе дату в немного перевернутом формате (ГГММДД):
110429.xls
110430.xls
110501.xls
110502.xls

Следующей строкой, отбрасываем от имени книги расширение .xls, получаем ГГММДД
OutFileName = Left(iTempWB.Name, Len(iTempWB.Name) - InStr(1, StrReverse(iTempWB.Name), "."))

Далее, дату необходимо переделать из ГГММДД в ДДММГГ и вот тут я затупил
OutDate = Right(OutFileName, 2)...

Вопрос, как получить ДДММГГ из ГГММДД?{/post}{/quote}

d = DateSerial(Mid(d, 1, 2), Mid(d, 3, 2), Mid(d, 5, 2))

Спасибо
Mail: В профиле Skype: В профиле

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#3 11.05.2011 21:41:52 Sub test() Dim d As Date Filename = "110430.xls" OutFileName = Right(Split(Filename, ".xls")(0), 6) d = DateSerial(2000 + Mid(OutFileName, 1, 2), Mid(OutFileName, 3, 2), Mid(OutFileName, 5, 2)) Debug.Print d ' результат: 30.04.2011 End Sub Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Guest Гость	#4 11.05.2011 21:42:27 OutDate = Right(OutFileName, 2) & Mid(OutFileName, 3, 2) & Left(OutFileName, 2)

R Dmitry

Пользователь

Сообщений: 3103 Регистрация: 22.12.2012

Excel,MSSQL,Oracle,Qlik

11.05.2011 21:43:54

{quote}{login=EducatedFool}{date=11.05.2011 09:41}{thema=}{post}Sub test()
Dim d As Date
Filename = "110430.xls"
OutFileName = Right(Split(Filename, ".xls")(0), 6)
d = DateSerial(2000 + Mid(OutFileName, 1, 2), Mid(OutFileName, 3, 2), Mid(OutFileName, 5, 2))
Debug.Print d ' результат: 30.04.2011
End Sub{/post}{/quote}

ну да про век то я забыл :)

Спасибо
Mail: В профиле Skype: В профиле

SemX Пользователь Сообщений: 6 Регистрация: 01.01.1970	#6 11.05.2011 21:46:26 {quote}{login=R Dmitry}{date=11.05.2011 09:40}{thema=Re: Получение даты из имени файла ГГММДД.xls}{post}{quote}{login=semx}{date=11.05.2011 09:32}{thema=Получение даты из имени файла ГГММДД.xls}{post}Бэн, это Данила! В общем, имеется куча файлов excel, названия которых содержат в себе дату в немного перевернутом формате (ГГММДД): 110429.xls 110430.xls 110501.xls 110502.xls Следующей строкой, отбрасываем от имени книги расширение .xls, получаем ГГММДД OutFileName = Left(iTempWB.Name, Len(iTempWB.Name) - InStr(1, StrReverse(iTempWB.Name), ".")) Далее, дату необходимо переделать из ГГММДД в ДДММГГ и вот тут я затупил OutDate = Right(OutFileName, 2)... Вопрос, как получить ДДММГГ из ГГММДД?{/post}{/quote} d = DateSerial(Mid(d, 1, 2), Mid(d, 3, 2), Mid(d, 5, 2)){/post}{/quote} Спасибо, это гениально и просто! А главное - работает. OutFileName = Left(iTempWB.Name, Len(iTempWB.Name) - InStr(1, StrReverse(iTempWB.Name), ".")) OutFileName = DateSerial(Mid(OutFileName, 1, 2), Mid(OutFileName, 3, 2), Mid(OutFileName, 5, 2))

Читают тему