Преобразование Отметка текста в формат даты с помощью VBA

Question

У меня есть следующий тип Timestamp в CSV-файла с несколькими тысячами строк:

Oct 1, 2014 - 06:22:25 

Теперь я знаю, что я могу извлечь данные с помощью формул, и что я мог теоретически это делают и в VBA. Однако это кажется довольно грязным решением для выписывания всех функций Worksheetapplication.

Есть ли стандартная функция, которая позволила бы мне это сделать? Я надеялся, что кто-то может осветить этот свет для меня?

Answer 1

Если я правильно понял ваш вопрос, вам не нужна vba. Вы можете сделать это с помощью формулы ... Я преобразовал вашу строку в формат даты.

A1 = Oct 1, 2014 - 06:22:25
B1 = =TEXT(DATEVALUE(MID(A1,1,FIND("-",A1)-2)),"dd/mm/yy")

Надежда, что помогает

Answer 2

2 простых способов сделать это. В обоих случаях MS легко преобразует вашу строковую дату в истинную, пока вы избавитесь от дефиса. Оба эти решения имеют встроенные формулы/функции.

формула:

=REPLACE(A1,FIND("-",A1),1,"") 

VBA:

Function GetDate(sDate As String) As Date 
    GetDate = CDate(Replace(sDate, "-", "")) 
End Function