Excel.Cells(х, 13).Value = СокрЛП(Строка(ДатаВвода)); Excel.Cells(х, 14).Value = СокрЛП(Строка(ДатаПост));