Преобразовать DateTime строку действительного значения даты и действительного значения времени

Этот код возвращается как недействительный даты преобразования:Преобразовать DateTime строку действительного значения даты и действительного значения времени

«Среда, 10 Сентября 2014 6:53 AM»

Функция VBA IsDate используется, чтобы проверить, является ли выражение Date, или выражение может быть преобразовано в действительный Date или Time. Функция возвращает true или false.

Как я могу получить срок действия?

'----------------------------------------- 

Dim x As Integer 

x = ActiveCell.Row 

'----------------------------------------- 

Dim vDate As Variant 

vDate = "Wednesday, September 10, 2014 6:53 AM" 

MsgBox vDate 

MsgBox IsDate(vDate) 'retuns false 

'----------------------------------------- 

Dim fDAT As String 

fDAT = Left(vDate, Len(vDate) - 7) 

MsgBox fDAT 

MsgBox IsDate(fDAT) 'retuns false 

'----------------------------------------- 

''ActiveSheet.Range("a" & x).Value = fDAT

источник

2016-02-09 Anonymous

Пожалуйста, обратите внимание: это RSS PubDate формат, который я пытаюсь поместить в ячейку Excel , чтобы иметь возможность сортировать по дате. ДЕНЬ-МЕСЯЦ-ВРЕМЯ –

Удалите следующий и следующий запятые. –

Спасибо, попробуй. –

Вы бы изменить:

fDAT = Left(vDate, Len(vDate) - 7)

To:

fDAT = Mid(vDate, InStr(vDate, ",") + 2)

источник

2016-02-09 21:57:48

Вау, смена налево до середины РАБОТАЕТ !!! он вернул значение истинной даты. –

@ LiterateAspects, пожалуйста, отметьте как правильно. Это то, что вы можете сделать. Нажмите на зеленый галочку по ответу. –

Спасибо, он был разрешен при переключении слева направо с помощью fDAT - как это предусмотрено Скоттом Кранером - спасибо, ничего себе!что отличное сообщество - как мне закрыть этот запрос? THANK YOU SCOTT –

Избавиться от "среды" и попробовать что-то вроде:

vDate = Format(vDate, "M/D/YYYY H:MM:SS AM/PM") 
xDate = IsDate(vDate)

источник

2016-02-09 21:50:30 Drew

Как я могу избавиться от среды, так как это значение в ячейке. И имена дней недели, и имена месяцев не фиксированы конечным числом символов, так как я могу выбрать их путем обрезки, чтобы удалить? о, и большое спасибо, поскольку я пытался с раннего утра провести время в Сан-Франциско, чтобы решить это. –

как это может работать как формат не «M/D/YYYY H: MM: SS AM/PM» –

Это то, что я надеюсь сделать, чтобы преобразовать rss pubdate в строку, которую я могу сортировать в Excel, о и спасибо! –

получить также правильность вы можете использовать примерно так:

Sub blabla() 
    Dim vDate As Variant, xDate As Boolean 
    vDate = "Wednesday, September 10, 2014 6:53 AM" 
    xDate = IsDate(vDate) Or (IsDate(Mid(vDate, InStr(vDate, ",") + 1)) And Left(vDate, InStr(vDate, ",") - 1) = Format(Mid(vDate, InStr(vDate, ",") + 1), "dddd")) 
End Sub

это также будет ложным, если оно не является правильным будним день;)

Чтобы получить годное к употреблению значения, которое вы могли бы использовать что-то вроде:

If Not IsDate(vDate) And IsDate(Mid(vDate, InStr(vDate, ",") + 1)) Then vDate = Mid(vDate, InStr(vDate, ",") + 1)

источник

2016-02-09 22:03:59

Спасибо, это было разрешено с переключением слева направо с fDAT - как это предусмотрено Скоттом Кранером - спасибо, ничего себе! что отличное сообщество - как мне закрыть этот запрос? –

Цитата: * Нажмите на зеленую галочку по ответу. * (Из ответа, который вы хотите принять);) –

Преобразовать DateTime строку действительного значения даты и действительного значения времени

ответ

Смежные вопросы