Переобразование даты

[sasha_prof]

Здравствуйте.

Не получается распознать поле как дату.
Дата в таком формате "Apr 24 2012 5:18PM"

Можно ли её как то на наш формат распознать "дата время"?

[Teslenko_EA]

Здравствуйте sasha_prof.
"..поле как дату.." Вы откуда получаете?
Если из внешнего источника как дату с применением форматирования источника, то достаточно изменить отображаемый
формат средствами MS Access.
(убедиться можно умножив значение поля на еденицу)
Иначе, если у Вас текстовые строки, потребуется собственная функция VBA для преобразования строк в значение даты.
Евгений.

[sasha_prof]

Да это тестовое поле.
Я выгружаю его с тхт файла.
Мы сделали уже это через IIf и Mid.
Может у Вас более простой вариант решения данного вопроса?

[Teslenko_EA]

"..Может у Вас более простой вариант.." - у меня никакого варианта нет, у меня нет такой задачи.
но собрать можно что нибудь подобное:

Public Function strToDate(v)
Dim vA$(), vM(), i%, s$
vM = Array("", "Jan", "Feb", "Mar", "Apr", "M5", "M6", "M7", "..", "..", "..", "..", "..")
strToDate = v
If Len(v & "") = 0 Then Exit Function
vA = Split(v, " ")
If Not UBound(vA) = 3 Then Exit Function
For i = 1 To 12
    If vA(0) = vM(i) Then
        vA(0) = i
        Exit For
    End If
Next
If Not IsNumeric(vA(0)) Then Exit Function
strToDate = DateSerial(vA(2), vA(0), vA(1))
vA = Split(vA(3), ":")
If Not UBound(vA) = 1 Then Exit Function
vA(0) = Val(vA(0)) + Abs(InStr(1, vA(1), "PM") > 0) * 12
vA(1) = Left(vA(1), 2)
strToDate = strToDate + TimeSerial(vA(0), vA(1), 0)
If IsDate(strToDate) Then strToDate = Format(strToDate, "dd.mm.yyyy  hh:nn")
End Function

Sub test()
    Debug.Print strToDate("Apr 24 2012 5:18PM")
End Sub

не знаю насколько по Вашему мнению это проще.

Евгений.

[sasha_prof]

Мда... ваш не сложный)))) Что тогда о моем говорить...



Спасибо. А как весь столбец обработать в Access?

[Teslenko_EA]

"..весь столбец обработать.." - столбцом Вы очевидно называете поле таблицы. если это так, то:
1. разместить код функции в модуле
2. модуль должен быть сохранен
3. запустить конструктор запросов
4. переключить конструктор в SQL режим (правым кликом)
5. разместить в редакторе подобную конструкцию:

select *, strToDate([ИмяПоляСоСтрокойДаты]) as Дата from [ИмяТаблицы]

6. запустить запрос переключив его в режим Таблицы

далее Вы сможете подключать этот запрос в качестве источника к своим конструкциям (формам/отчётам)
(конечно введя в массиве реальные сокращения имен месяцев вместо М! и двоеточий)

Евгений.

[sasha_prof]

Спасибо!!!

Что-то вот эту дату не воспринимает "Apr 24 2012 3:34PM"
Наверное из-за 2-х пробелов после даты.

Здесь уходит в Exit Function
If Not UBound(vA) = 3 Then Exit Function


Как их вылечить?

[Teslenko_EA]

"..Как их вылечить? .."

select *, strToDate(Trim([ИмяПоляСоСтрокойДаты])) as Дата from [ИмяТаблицы]

Евгений.

[sasha_prof]

Все разобрался.
Всем спасибо

[Sasha_Smirnov]

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

Дата в таком формате "Apr 24 2012 5:18PM"

Можно ли её как то на наш формат распознать "дата время"?

Как-никак, а способ есть: поставить этого крокодила между # и #