abs » Поиск » HelpF.pro

Результаты по ключевому слову: abs

Как в excel сохраненный из 1С вставить новый лист? Категория: Работа с Microsoft Office и OpenOffice

Как в 1С посчитать расстояние между двумя географическими координатами?

На одном проекте была платная работа с картами и отображением складов на них, часто требовалось рассчитать расстояние между географическими координатами.

Земля может быть описана как сфера, поэтому для вычисления расстояния между точками на поверхности земли мы можем использовать уравнения для расчета сферического расстояния большого круга. При расчете мы берем сферу радиусом 6372795 метров. Ввиду того что земля на самом деле не сфера, а эллипсоид, - пограшность вычисления расстояния может составлять около 0.5%.

В результате были использованы следующие функции:

Код 1C v 8.3

 

Функция ABS(Число) 

   Если Число<0 Тогда 

       Возврат -1*Число; 

   Иначе 

       Возврат Число; 

   КонецЕсли; 

КонецФункции 



Функция РастояниеВМетрахОтДо(Ширина1,Долгота1,Ширина2,Долгота2)

	Пи=3.14; РадиусЗ = 6372795; 

	Расстояние = РадиусЗ*ATAN(Sqrt(Pow(COS(Пи*Ширина2/180)*SIN(ABS(Пи*Долгота2/180-Пи*Долгота1/180)),2)+Pow(COS(Пи*Ширина1/180)*SIN(Пи*Ширина2/180)-SIN(Пи*Ширина1/180)*COS(Пи*Ширина2/180)*COS(ABS(Пи*Долгота2/180-Пи*Долгота1/180)),2))/(SIN(Пи*Ширина1/180)*SIN(Пи*Ширина2/180)+COS(Пи*Ширина1/180)*COS(Пи*Ширина2/180)*COS(ABS(Пи*Долгота2/180-Пи*Долгота1/180)))); 

	Возврат Расстояние;     

КонецФункции



//Пример 2

Функция ПросчитатьРастояниеОтДо(ШиротаКоординаты1,ДолготаКоординаты1,ШиротаКоординаты2,ДолготаКоординаты2)

//    cos(d) = sin(φА)*sin(φB) + cos(φА)*cos(φB)*cos(λА − λB),

//    где φА и φB & широты, λА, λB & долготы данных пунктов, d & расстояние между пунктами, измеряемое в радианах 

//      длиной дуги большого круга земного шара. 

//    Расстояние между пунктами, измеряемое в километрах, определяется по формуле:

//    L = d·R,

//    где R = 6371 км & средний радиус земного шара.

    Возврат (ASin(sin(ШиротаКоординаты1)*sin(ШиротаКоординаты2) + cos(ШиротаКоординаты1)*cos(ШиротаКоординаты2)*cos(ДолготаКоординаты1 - ДолготаКоординаты2)))*6371;     

КонецФункции

Категория: Полезные, Универсальные Функции

Функция возвращает модуль аргумента - Abs() Категория: Работа с Числами

Быстрая выгрузка отчетов в Excel, наложение Фильта и отображение ярлыка

Вместо Таб.Показать() используем глобальную функцию - и отчет показывается сразу в Excel в удобоваримом виде - с форматированием колонок по ширине, автофильтром и ярлычками листов

Код 1C v 7.x

 Процедура глОткрытьВЭкселе(Таб,ИмяФайла="",НеИзменятьВысотуСтроки=0) Экспорт

	Попытка 

		// запускаем Excel-Server 

		Excel = СоздатьОбъект("Excel.Application");

	Исключение       

		Excel = 0;

		Предупреждение("MS Excel не загружен!");

		Возврат;

	КонецПопытки;   

	

	Если ТипЗначенияСтр(Таб)="Строка" Тогда

		Excel.WorkBooks.Open(Таб);

	Иначе                                                          

		Если НеИзменятьВысотуСтроки=0 Тогда

			ШиринаТаблицы=Таб.ШиринаТаблицы();

			Область=Таб.Область(1,1,Таб.ВысотаТаблицы(),ШиринаТаблицы);

			Область.ВысотаСтроки(12);                 

		КонецЕсли;

		

		Если Найти(ИмяФайла,":")=0 Тогда

			ИмяФайла=КаталогПользователя()+ИмяФайла;

		КонецЕсли;

		Если Найти(Врег(ИмяФайла),"XLS")=0 Тогда

			ИмяФайла=ИмяФайла+".xls";

		КонецЕсли;

		

		Таб.Записать(?(ПустоеЗначение(ИмяФайла)=0,ИмяФайла,КаталогПользователя()+"Таблица.xls"),"XLS");

		Excel.WorkBooks.Open(ИмяФайла);

		

		Excel.Visible = 0;

		

		//добавляем автофильтр и форматирование колонок по ширине

		Excel.Columns.AutoFit();

		Range = Excel.Range(Excel.Cells(1, 1), Excel.Cells(1, ШиринаТаблицы));

		Range.S_elect();

		Range.AutoFilter();

		

		//показываем вечно прячущиеся ярлычки листов

		Excel.ActiveWindow.DisplayWorkbookTabs = -1;

		Excel.ActiveWindow.TabRatio = 0.25;

	КонецЕсли;

	

	Excel.Visible=1;	  

	Excel=0;

КонецПроцедуры

mikukrnet

Категория: Работа с Microsoft Office и OpenOffice

Функция открывает таблицу в MS Excel

Код 1C v 7.x

 Код

//Функция открывает таблицу в MS Excel

//Таблица         - печатная форма 1С

//ИмяЛиста         - имя, которое будет присвоено листу книги MS Excel (если не задано, то остается "Sheet1")

//ОтображатьЯрлычки   - показывать/скрыть ярлычки листов в MS Excel

//ОтображатьСетку   - показывать/скрыть линии сетки в MS Excel

//УдалитьСтроки      - позволяет удалить указанное количество верхних строк таблицы

//УдалитьСтроки      - позволяет удалить указанное количество левых столбцов таблицы

Функция глОткрытьТаблицуВExcel(Таблица, ИмяЛиста = "", ОтображатьЯрлычки = 1, ОтображатьСетку = 1, УдалитьСтроки = 0, УдалитьСтолбцы = 0) Экспорт

   Перем Excel, ExcelWB, ExcelSh, ExcelPS, ИмяФайла, Рез, Зн, Зн1;

   

   Если ТипЗначенияСтр(Таблица) <> "Таблица" Тогда

      Возврат 0;

   КонецЕсли;    

   

   Попытка

      Excel = СоздатьОбъект("Excel.Application")

   Исключение

      Сообщить("Не удалось открыть MS Excel","!");

      Возврат 0;

   КонецПопытки;

   

   Пока 1=1 Цикл

      //Подберем уникальное имя для временного файла

      ИмяФайла = КаталогВременныхФайлов() + "1c" + СтрЗаменить(ТекущееВремя(), ":", "");

      Если (ФС.СуществуетФайл(ИмяФайла+".tmp") = 1) или (ФС.СуществуетФайл(ИмяФайла+".xls") = 1) Тогда

         ФС.УдалитьФайл(ИмяФайла+".tmp");

         ФС.УдалитьФайл(ИмяФайла+".xls")

      Иначе

         Прервать;

      КонецЕсли

   КонецЦикла;

   

   Таблица.Записать(ИмяФайла+".tmp", "XLS");

   

   Если ФС.СуществуетФайл(ИмяФайла+".tmp") = 0 Тогда

      Сообщить("Ошибка записи файла """ + ИмяФайла + "tmp""","!");

      Excel = "";

      Возврат 0;

   КонецЕсли;    

   

   Рез = 1;

   

   Попытка

      ExcelWB = Excel.Workbooks.Add(ИмяФайла+".tmp");   //Откроем временный файл в Excel в режиме шаблона (чтобы не блокировать файл)

      Попытка                                 //Если на клиентской машине не установлен принтер, обращение к настройкам страницы вызывает ошибку. Поэтому работаем в "Попытка ... КонецПопытки"

         ExcelPS = ExcelWB.Sheets(1).PageSetup;      //Исправим спецсимволы в колонтитулах

         Зн = ExcelPS.LeftHeader;   Зн1 = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Зн, "#P", "&P"), "#Q", "&N"), "#T", "&T"), "#D", "&D"); Если Зн <> Зн1 Тогда ExcelPS.LeftHeader   = Зн1 КонецЕсли;

         Зн = ExcelPS.CenterHeader;   Зн1 = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Зн, "#P", "&P"), "#Q", "&N"), "#T", "&T"), "#D", "&D"); Если Зн <> Зн1 Тогда ExcelPS.CenterHeader   = Зн1 КонецЕсли;

         Зн = ExcelPS.RightHeader;   Зн1 = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Зн, "#P", "&P"), "#Q", "&N"), "#T", "&T"), "#D", "&D"); Если Зн <> Зн1 Тогда ExcelPS.RightHeader   = Зн1 КонецЕсли;

         Зн = ExcelPS.LeftFooter;   Зн1 = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Зн, "#P", "&P"), "#Q", "&N"), "#T", "&T"), "#D", "&D"); Если Зн <> Зн1 Тогда ExcelPS.LeftFooter   = Зн1 КонецЕсли;

         Зн = ExcelPS.CenterFooter;   Зн1 = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Зн, "#P", "&P"), "#Q", "&N"), "#T", "&T"), "#D", "&D"); Если Зн <> Зн1 Тогда ExcelPS.CenterFooter   = Зн1 КонецЕсли;

         Зн = ExcelPS.RightFooter;   Зн1 = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Зн, "#P", "&P"), "#Q", "&N"), "#T", "&T"), "#D", "&D"); Если Зн <> Зн1 Тогда ExcelPS.RightFooter   = Зн1 КонецЕсли;

      Исключение

      КонецПопытки;

      

      ExcelWB.SaveAs(ИмяФайла+".xls", -4143);         //Сохраним, чтобы обновить формат файла до текущего (xlNormal = -4143)

      ExcelWB.Close(0);                        //Закроем книгу ...

      ExcelWB = Excel.Workbooks.Add(ИмяФайла+".xls");   //... и вновь откроем в режиме шаблона

      

      Попытка

         ExcelSh = ExcelWB.Sheets(1);

         

         Если ПустаяСтрока(ИмяЛиста) = 0 Тогда         //Зададим имя ярлычка

            ExcelSh.Name = ИмяЛиста

         КонецЕсли;

         

         Если ОтображатьЯрлычки = 1 Тогда            //Сделаем видимыми ярлычки листов

             ExcelWB.Windows(1).DisplayWorkbookTabs = 1;

            ExcelWB.Windows(1).TabRatio = 0.6         //... и отодвинем горизонтальную полосу прокрутки от левого края

         КонецЕсли;

         

         Если ОтображатьСетку = 0 Тогда               //Скроем линии сетки

            ExcelWB.Windows(1).DisplayGridlines = 0

         КонецЕсли;

      

         Если УдалитьСтроки > 0 Тогда               //Удалим верхние строки

            ExcelSh.Range(ExcelSh.Rows(1), ExcelSh.Rows(УдалитьСтроки)).Delete()

         КонецЕсли;

         

         Если УдалитьСтолбцы > 0 Тогда               //Удалим левые столбцы

            ExcelSh.Range(ExcelSh.Columns(1), ExcelSh.Columns(УдалитьСтолбцы)).Delete()

         КонецЕсли;

      Исключение

      КонецПопытки;

      

      ExcelWB.Saved = 0;

   Исключение

      Сообщить("Ошибка открытия файла в MS Excel","!"); Рез = 0

   КонецПопытки;

   

   Попытка

      Excel.Visible = 1

   Исключение

   КонецПопытки;  

   

   ExcelWB = ""; ExcelSh = ""; ExcelPS = ""; Excel = "";

   ФС.УдалитьФайл(ИмяФайла+".tmp");

   ФС.УдалитьФайл(ИмяФайла+".xls");

   Возврат Рез

КонецФункции //глОткрытьТаблицуВExcel

Автор неизвестен, если код ваш, напишите в комментариях

Категория: Работа с Microsoft Office и OpenOffice