v7: Формат даты и .xls #569946

День добрый! Подскажите как можно победить такую вещь. В программе представление даты настроено в "2 знака". При этом я обработкой формирую таблицу в которой колонка принимает значение определенной даты. Параметр задала так: Дат1 = Формат(день,"ДДДММГГГГ"); 4 знака на год, но выводится все равно 2 знака, цепляет настройки  представления даты, как мне обойти это дело?

враньё

а мне что делать больше нечего чтоли? В настройках поменяла представление даты на 4 знака, вышло 4, поменяла назад, снова 2

Возможно формат задаешь и в макете, и в коде

Перефразируем вопрос. В чем суть получения даты с 4 знаками вместо двух, если в базе принята работа с 2 знаками?

мне надо выгрузить екселевский файл..... где колонки это даты  ... выгружаю из 7-ки. Потом по этим файлам я в 8-ке уже должна сформировать табели в ЗУПе........... так вот при загрузке нужно дату с 4-мя знаками.... Самое интересное, что если я захожу в сформированный файл и на колонке с датой просто 2 раза щелкаю, у меня дата преобразуется как надо, но это же не есть хорошо..

Где 2 знака? В Excel? Тогда нужно именно для _Excel_ задавать формат представления даты в конкретной ячейке.

в макете просто параметр Дат1, без формата

бу-га-га казалось бы, при чём здесь 1С?

Я не спорю, что надо для екселя задать тип ячейки, но как это сделать программно не знаю, подскажите

сделай в экселе, запиши макрос и будь счастлива

сама запись в ексель написана просто    Таб.Записать(ПутьКФайлу,"XLS"); и туда пишется моя таблица, но не с той датой, ну вернее год обрезанный там

Хех)) Ну тогда или руками заменять, или выгружать как белые люди.

Туда записалась _дата_? Измени формат ячейки Excel (Формат - Ячейки...).

В Таб.Показать что?

туда записалась _дата_! иначе эксель бы не показывал год с двумя знаками

Это был риторический вопрос :-)

Тогда, получается, вопрос звучит так: "как программно изменить формат ячейки в Экселе". Отсюда:

Далее: И: Формат даты Код на VBA (эталон): Sub Test1  Dim R As Range  Set R = Range("a1")  R.Clear ' очистим формулы и форматы  R.Value2 = Date ' запишем текущую дату  ' дальше не работает Код на Delphi: Что только не узнаешь, читая форум Мисты!