Имя: Пароль:
1C
1C 7.7
v7: Как получить дату с временем из Excel через ADO
0 mvk
 
31.05.16
10:16
Добрый день всем!
В файле Excel есть колонка с датой и временем. Excel хранит дату/время в виде числа. Целя часть - кол-во дней, прошедших с определенной даты, а дробная часть отвечает за время. В текст такое поле конвертируется функцией
=ТЕКСТ(E2;"ДД\.ММ\.ГГГГ чч:мм:сс")

Когда я получаю значение поля через ADO:

    db=CreateObject("ADODB.Connection");
    rs=CreateObject("ADODB.Recordset");
    db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Файл+";Extended Properties=""Excel 8.0;HDR=YES;IMEX=1;""";
    db.Open();
    rs.ActiveConnection = db;
    rs.CursorType = 3;
    rs.LockType = 2;
    rs.Source = "Select * from ["+СокрЛП(ЛистЭксель)+"$]";
...
ДатаВремя = СокрЛП(rs.fields(КолонкаДатаВремя-1).value);

В поле ДатаВремя возвращается только дата без времени.
Конвертировать в запросе не очень хочется. Обработка универсальная, а такой формат поля не во всех загружаемых файлах. Подскажите, плиз, может в реестре надо прописать что-нибудь, или еще где, чтобы возвращалась дата с временем.