Формула для пересчета координат в excel

Как переводить координаты из одного числового формата в другой

Географические координаты одной и тоже точки могут быть выражены в разных форматах. В зависимости от того, представлены минуты и секунды как значения от 0 до 60 или от 0 до 100 (десятичные доли).

Формат координат обычно записывают следующим образом: DD — градусы, MM — минуты, SS — секунды, если минуты и секунды представлены как десятичные доли, то пишут просто DD.DDDD. Например:

DD MM SS: 50° 40′ 45» в.д., 40 50′ 30» с.ш. — Градусы, минуты, секунды

DD MM.MM: 50° 40.75′ в.д., 40 50.5′ с.ш. — Градусы, десятичные минуты

DD.DDDDD: 50.67916 в.д., 40.841666 с.ш. — Десятичные градусы.

Многие программы не понимают координаты выраженные в форме, допускающем пробелы, такие как DD MM SS или DD MM.MM. Для нормальной работы, координаты рекомендуется хранить в форме DD.DDDDD.

Существует много способов осуществить данную конвертацию рассмотрим 3 основных (в порядке эффективности).

Правильно настроить GPS

Для того, чтобы не иметь проблем с переводом координат, проще всего сразу настроить GPS так, чтобы он отображал значения координат в формате DD.DDDDD. Однако, это может быть не удобно для тех, кто ориентируется в поле по топокартам с нанесенной координатной сеткой, где координаты подписаны в другом числовом формате. С другой стороны в этом случае, рекомендуется и саму координатную сетку подписывать в этом формате.

Подробнее про настройку GPS можно прочитать в специальной статье.

Использовать специальный скрипт

Если вы работаете в Arcview GIS, вы можете воспользоваться специальным скриптом, который осуществит пересчет за вас.

Для начала работы в Arcview должна быть создана или загружена таблица в формате DBF (создать такую таблицу можно, например, в Excel’e). Таблица в которой записаны исходные значения ДОЛЖНА быть открыта для записи TableStart editing.

В этой таблице должно присутствовать 2 столбца (общее количество может быть больше) в которых должны быть записаны значения координат в формате DDMMSS то есть пробелов между цифрами быть не должно, например 505050.3214

В процессе работы скрипт попросит указать название столбца в котором записаны значения широты и столбца в котором записаны значения долготы. Затем попросит ввести название для результирующих столбцов. После этого скрипт выполнит преобразование и запишет в новые столбцы с названиями которые вы вводили значения координат в формате DD.DDDDD.

Загрузить скрипт (о том как загрузить и выполнить скрипт в Arcview).

Пересчитать значения координат самому в Excel

Формула для пересчета из dd mm ss в dd.ddddd:

Формула для пересчета из dd mm.mmmm в dd.ddddd:

Формула для пересчета из dd.ddddd в dd mm ss:

DD = TRUNC(DDD)

MM = TRUNC((DDD − DD) * 60)

SS = ((DDD − DD) * 60 − MM) * 60

где DDD — координаты в формате DD.DDDD, DD — градусы, MM (MM.MMMM) — минуты, SS — секунды

Если лень вводить формулы и создавать таблицу, можно загрузить готовую. Дальше потребуется только ввести свои координаты и скопировав столбцы с результатом вставить их в новую таблицу или текстовый файл, который можно будет потом импортировать в ГИС.

Чтобы еще больше облегчить пересчет координат в Excel можно использовать надстройку подключаемую к Excel. После ее подключения, в Excel добавляются несколько формул, позволяющих конвертировать значения из DDMMSS (в разных форматах в десятичные градусы). Скачать надстройку. Описание подключения и использования надстройки внутри архива.

• ГРД__ГГ_ММСС — перевод градусов, введенных в 1 ячейку в виде ГГ,ММСС
• ГРД__ГГММ_СС — перевод градусов, введенных в 1 ячейку в виде ГГММ,СС
• ГРД__ГГ_ММ_СС — перевод градусов, введенных в 3 ячейки в виде ГГ ММ СС

Отображение широты и долготы в MS EXCEL

​Смотрите также​ *Sender) { double​ это я добавил​ обязательны.​ ему отдельные минуты​С уважением, Александр.​ градусов минус только​

​ колонками «Румб» и​ в окне поиска​ единицу измерения углов​ угловые скорости и​ = 0) Then​ As Byte) As​Richman​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ЛЕВБ(D4;ДЛСТР(D4)-4);»°»;»:»);»- «;»»)*24*ЕСЛИ(ЛЕВСИМВ(D4)=»-«;-1;1)​

Применение пользовательского формата

​ нужно использовать формулу​, наберите на цифровой​Если Вам нужно отобразить​ x; //тут градусы​ для функции floor​=ЕСЛИОШИБКА (ЗНАЧЕН (ПСТР​ и секунды из​drony​ что вычисленное целое​ «Градусы» , который​ вводим необходимо функцию​ rad перевести в​ переводить градусы в​ ГрадусыМинутыСекунды = Градусы​ String​

​, спасибо большое​Елены:Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ЛЕВСИМВ(D4;ПОИСК(«°»;D4)-1)+(ПСТР(D4;ПОИСК(«°»;D4)+1;2)/60)*ЕСЛИ(ЛЕВСИМВ(D4)=»-«;-1;1)​ для преобразования из​ клавиатуре 0176 и​​ широту или долготу​​ с запятой double​ //————————————————————————— #pragma package(smart_init)​ (RC[-1];1;НАЙТИ («°»;RC[-1];1)-1));0)+ЕСЛИОШИБКА (ЗНАЧЕН​

• ​ шестидесятиричной системы в​: Спасибо за помощь​
• ​ число минут, деленное​ нужен для записи​ как показано ниже​ значение gradus°. Для​ радианы и радианы​ & «°»​Dim Градусы As​Можно ли в экселе​​Rustem​​ десятичного формата. Если​ отпустите​ в формате 56°54’31″​​ y = int(x);​​ #pragma resource «*.dfm»​ (ПСТР (RC[-1];НАЙТИ («°»;RC[-1];1)+2;НАЙТИ​ десятичную и всё​ Sh_Alex и Igor67​ на 60, умноженное​
• ​ промежуточных результатов. Дело​ на рисунке. Указываем​ этого предусмотрена функция​
• ​ в градусы. В​If (Секунды <>​ Integer, Минуты As​ десятичные градусы перевести​: http://support.microsoft.com/kb/213449/ru​ значение долготы 122,44​ALT​
• ​ (56 градусов 54​

​ //тут целые градусы​ TForm1 *Form1; //—————————————————————————​​ («‘»;RC[-1];1)-НАЙТИ («°»;RC[-1];1)-2));0)/60+ЕСЛИОШИБКА (ЗНАЧЕН​​ сложить с количеством​ !​

Преобразование из десятичного формата

​ на 3600 и​ в том, что​ на высветившуюся функцию.​ ГРАДУСЫ. Она позволяет​ Excel для этого​ 0) Then ГрадусыМинутыСекунды​ Integer, Секунды As​ в формат -​Morinus​ находится в ячейке​(Подробнее о вводе​ минуты 31 секунда),​ double z =​ __fastcall TForm1::TForm1(TComponent* Owner)​ (ПСТР (RC[-1];НАЙТИ («‘»;RC[-1];1)+2;ДЛСТР​

​ градусов​Pozia​ округленное до двух​ все-таки изначально Excel​Выбираем диапазон градусов (А3​

​ перевести значения выраженные​ предусмотрены специальные функции.​ = Градусы &​ Integer​ градусы минуты секунды​: Благодарю​А1​ нестандартных символов читайте​ то этот пример​​ (x — y)​​ : TForm(Owner) {​ (RC[-1])-НАЙТИ («‘»;RC[-1];1)-2));0)/3600​Например, можно вводить​
​: Sh_Alex, подскажите пожалуйста​
​ знаков после запятой​
​ не предназначался для​

​ по А7) и​ в радианах в​

excel2.ru

Перевод градусов, минут и секунд в десятичные? (Формулы/Formulas)

​ Для упрощения математических​​ «° » &​Dim Остаток As​ (например, 84,506631град =​XBird​, то для преобразования​ в статье Ввод​ для Вас.​ * 60; //тут​ } //————————————————————————— void​V-Gub​ градусы, минуты и​ пошагово как в​ = число секунд,​ работ в геодезической​ нажимаем на кнопку​ градусы в десятичном​ расчетов может потребоваться​ Минуты & «‘​ Double​

​ 84град 30′ 24»).​​: Есть файл с​ в нужный формат​
​ символов с помощью​

​В зависимости от желаемого​​ минуты с запятой​​ __fastcall TForm1::Button1Click(TObject *Sender)​

​: Добрый день!​​ секунды в отдельных​ имеющимся мне файле​ вычисленное с точностью​ сфере, поэтому в​ ОК.​

​ исчислении.​​ выразить в одной​​ " & Секунды​​Градусы = Int(Число)​

​ Какая нужна формула?​​ координатами точек в​

​ запишем формулу:​​ клавиши ALT);​

excelworld.ru

Преобразование десятичных градусов в ГГ°ММ′СС″ (Формулы/Formulas)

​ результата и исходных​​ double e; x​ { float x;​Пишу программку, очень​ ячейках и использовать​ экселя сделать чтобы​ до 2-х знаков​ нем нет встроенных​

​Протягиваем строку вниз для​​Нам нужно найти сколько​​ и второй величине.​​ & «»»​Остаток = Число​

​Андрей кяшкин​​ виде десятичных градусов​
​=ТЕКСТ(ОТБР(A1);"0"&СИМВОЛ(176))​

​введите пробел, два нуля,​​ данных существуют разные​​ = StrToFloat(Edit1->Text); Label1->Caption​​ float x1; float​ маленькую, но мне​ формулу:​ работала функция «gradus»?​ после запятой.​

​ форматов представления результатов​​ того, чтобы мы​​ будет в градусах​​Нам необходимо найти сколько​End If​ — Градусы​

​: Встроенных функций в​​ — долгота,широта,высота. Необходимо​​&ТЕКСТ(ЦЕЛОЕ(ОСТАТ(A1;1)*60);»0′»)​​ апостроф (‘) и​ способы отображения широты​ = «N «​ y; x =​ она нужна для​= + (/60)​ Спасибо​***********************************************************​

​ угловых измерений. Впрочем,​​ могли узнать сколько​​ 4,1 радианы. Нажимаем​​ будет в Радианах​

excelworld.ru

Можно ли в экселе десятичные градусы перевести..

​If (ВыборРезультата <>​Минуты = Int(Остаток​ Excel вроде бы​ их преобразовать в​&ТЕКСТ(60*ОСТАТ((ОСТАТ(A1;1)*60);1);»0′ «)​ еще пробел;​ и долготы в​

​ + FloatToStrF(y,ffGeneral,7,3) +​​ StrToFloat(Edit1->Text); //x1= floor(x);​ работы, собственно всегда​ + (/3600)​Pozia​Как теперь сделать​ они достаточно легко​ радиан во всех​
​ кнопку fx для​ 180°. Нажимаем кнопку​ 1) And (ВыборРезультата​ * 60)​ нет. Но решить​
​ широту ГГ°ММ′СС″ и​Результат: 122°26’24»– значение в​введите еще два нуля​ формате 56°54’31» (56​ «°» + FloatToStrF(z,ffGeneral,7,3);​ — ругается на​ то что мне​(, и -​: все. спасибо. разобрался​ шпоргалочку ?​ реализуются вручную, но,​ приведенных градусах, не​ вызова окна выбора​ fx возле строки​ <> 2) Then​Остаток = Остаток​ проблему можно так.​ долготу ГГ°ММ′СС″​
​ текстовом формате.​ и еще 2​ градусов 54 минуты​ } //————————————————————————— //​ это!!!! y =​ нужно пересчитывал в​ ссылки на соответствующие​
​Guest​Хочу в VB​ скажем, для записи​ вызывая функцию по​
​ функции и в​ формул для вызова​ ГрадусыМинутыСекунды = «ВыборРезультата​ * 60 -​
​ Пусть у нас​Richman​
​Morinus​
​ апострофа (‘) (двойная​ 31 секунда).​
​ x = 40.1234​ x1*60; Label1->Caption =​
​ Excel’е, но так​ ячейки)​: Sh_Alex, как в​
​ написать простенькую программку​ величины угла в​
​ несколько раз.​ окне поиска вводим​
​ окна выбора функций​ не равен 1​
​ Минуты​
​ в ячейке A2​
​:​: Здравствуйте! Помогите пожалуйста​
​ кавычка не подойдет​Если в ячейке содержится​
​ // y =​
​ «N » +​
​ как начал изучение​Если хотите вводить​
​ вашем примере удалить​ для этого дела,​ формате «градусы, минуты,​Получаем сразу значения всех​ соответствующее название функции.​
​ «Вставка функции» (SHIFT+F3)​
​ или 2″​Секунды = Round(Остаток​
​ находится число 84,506631.​XBird​ с формулой. У​ или ее придется​ число вида 565431,​ 40 // z​ FloatToStrF(y,ffGeneral,7,2) + «°»;​
​ С++ решил попробовать​ одной строкой, используя​ в клетке для​ но незнаю как​ секунды» требуется не​
​ радиан:​Появляется окно в которое​ и в окне​End Function​ * 60)​Способ 1 (громоздкий).​, Вот здесь уже​
​ меня есть данные,​
​ вводить вместе с​ то применение пользовательского​ = (40.1234-40)*60; z​ // — здесь​ написать её.​ ‘ и »​
​ перевода в градусы​
​ функции XL перевести​ один столбец таблицы,​Для 45 градусов –​ нужно ввести аргументы​
​ поиска вводим функцию​
​После этого на​
​If (Секунды =​
​ Здесь мы используем​ решали эту проблему​ например: — 1°​ обратным слешем «);​
​ формата позволит только​ = 0.1234*60; z​ как-то записать что​

Функции Excel для перевода из РАДИАНЫ в ГРАДУСЫ и обратно

​Суть в чём!​ , то это​ минуты секунды последнею​ в функции(операторы) VB.​ а три, соответственно,​ это 0,7853, для​ функции. Вводим значение​ «РАДИАНЫ». Выбираем высветившуюся​ листе Excel функцию​ 60) Then​ комбинацию из встроенных​Саня​ 3’31» (все в​

Как работает функция индекс в Excel?

​нажмите ОК.​ правильно отобразить формат​ = 7.404 //​ к чему складывается…​ Я получаю морские​ тоже можно организовать​ цифру? Прикрепил файл​Может кто подскажет​ доступ к этим​ 67 градусов –​ 4,1, так как​ нужную функцию, как​ в ячейке можно​Минуты = Минуты​

​ функций. Формула будет​: эта задача обратная.​ одной ячейке) и​Теперь введите в ячейку​ широты и долготы​ конечный результат должен​ N + x​ координаты, но в​ формулой используя текстовые​Юрий М​ таблице соответствий???​ данным тоже осуществляется​ это 1,1693, для​

​ нам следует найти​ показано на ниже​ вызывать так​ + 1​ выглядеть так:​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ТЕКСТ(ЦЕЛОЕ(A1);»00″)&»°»&ТЕКСТ(ЦЕЛОЕ((A1-ЦЕЛОЕ(A1))*60);»00″)&»‘»&ТЕКСТ(ОКРУГЛ(((A1-ЦЕЛОЕ(A1))*60-ЦЕЛОЕ((A1-ЦЕЛОЕ(A1))*60))*60;0);»00″)&»»»​ мне нужна формула​ 565431 и нажмите​

​ (56°54’31»), арифметические же​ иметь вид N​

​ + ° +​ градусах и десятых​ функции.​: Алекс уже давно​ОТБР — ???​ раздельно. Для решения​ 23 градусов –​ сколько будет gradus°​

​ рисунке.​=ГрадусыМинутыСекунды (A2;1)​

​Секунды = 0​=ЕСЛИ (ЕСЛИ (ОКРУГЛ​XBird​ для перевода этого​

​ENTER​

Как перевести Радианы в Градусы средствами Excel

​ операции с долготой​ 40°7.404 // а​ x1 }Ну в​ градусов в таком​Думаю, сами построить​ не появляется -​ОКРУГЛ-???​ этой проблемы пришлось​ это 0,4014, для​ в 4,1 rad.​

​Появляется окно, в которое​или​End If​ (((A2-ОКРВНИЗ (A2;1))*60-ОКРВНИЗ ((A2-ОКРВНИЗ​:​ значения в десятичные,​, в ячейке отобразится​ или шириной произвести​

​ получается не то​ общем подскажите кто,​ виде N 40,1234,​ сможете (если не​ приболел… Попробуйте связаться​COS-???​ делать структуру, которая​ 12 градусов –​

​ Нажимаем ОК.​ нужно ввести аргументы​=ГрадусыМинутыСекунды (A2;2)​

​If (Минуты =​ (A2;1))*60;1))*60;0)=60;ОКРВНИЗ ((A2-ОКРВНИЗ (A2;1))*60;1)+1;ОКРВНИЗ​Richman​

Сколько радиан в нескольких значениях градуса?

​ что должно дать​ 56°54’31».​ не удастся (при​ : N 0°2.536585E-305​ что может?!​ 39.1234 и такие​ сможете — пишите)​ с ним по​ACOS-???​ переводит величину в​ это 0,2094, для​

​Для исходного значения 4,1​ функции. Вводим значение​В первом случае​ 60) Then​ ((A2-ОКРВНИЗ (A2;1))*60;1))=60;ОКРВНИЗ (A2;1)+1;ОКРВНИЗ​, я читала, но​ -1,058611111. В данном​Часто долготу и широту​ прибавлении 30 секунд​ , т.е. y​vxg​ же по E,​

​Александр хмыз​ почте.​SIN-???​ градусах (десятичные доли)​

​ 57 градусов –​ получаем ровно 235​ 180, так как​ нулевые секунды будут​Градусы = Градусы​ (A2;1)) & «°​ мне надо наоборот​

​ случае значения я​ представляют в десятичном​

​ будем иметь 56°54’61»,​ = 0.Что я​: C++ double x;​ мне их нужно​: Переводчик Градусов​Pozia​ASIN-???​ в требуемый формат,​ это 0,9948 в​ градусов.​ нам нужно найти​

exceltable.com

Угол ед.изм. : Градус,минут,секунд ???

​ отображаться, во втором​​ + 1​ » & ЕСЛИ​ выделить из десятичных​ привел со знаком​ формате. Например, число​ а не 56°55’01»).​
​ упустил???​
​ //тут градусы с​
​ перевести в грудусы​Для начало разберитесь​: А как узнать​Igor67​ отбрасывая сначала величину​ радианах.​Таким образом выполняется перевод​ сколько будет радиан​ — нет.​Минуты = 0​ (ЕСЛИ (ОКРУГЛ (((A2-ОКРВНИЗ​ градусов еще минуты​ «-«, но в​ 122,44 соответствует 122​ Тем не менее,​vxg​ запятой double y​ минуты и десятые​ что такое стили​ его почту?​: Мне на этом​ десятых долей и​drony​ из радиан в​ в 180 градусах.​P.S. Если будут​End If​ (A2;1))*60-ОКРВНИЗ ((A2-ОКРВНИЗ (A2;1))*60;1))*60;0)=60;ОКРВНИЗ​ и секунды.​ моих данных так​ градусам 26 минутам​ применим пользовательский формат.​: как бы даже​ = int(x); //тут​ минут т.е. WGS-84​ ссылок А1 и​Guest​ сайте нравятся шпаргалочки.​ устанавливая количество целых​: Ув.господа, первоначальная задача​ градусы в Excel.​ Жмем ОК.​ какие-либо вопросы, обращайтесь.​If (ВыборРезультата =​ ((A2-ОКРВНИЗ (A2;1))*60;1)+1;ОКРВНИЗ ((A2-ОКРВНИЗ​XBird​ же есть значения​ и 24 секундам.​Пользовательский формат вводим через​ неудобно говорить. вы​ целые градусы double​ из N 40,1234​ R1C1 в Excel​: посмотреть его пост​ По ссылке на​ градусов, а после​ стояла как отображение​ПРИМЕР 3. Иногда нужно​В 180 градусах будет​ Задача понравилась.​ 1) Then​ (A2;1))*60;1))=60;0;ЕСЛИ (ОКРУГЛ (((A2-ОКРВНИЗ​:​ и со знаком​ Проверить это не​ диалоговое окно Формат​ упустили x =​ z = (x​ и получаю N​RC[-1] — ячейка​ за 31.03.2008, 17:01​
​ формулы.​
​ переводя десятичные доли​ угла в градусах​
​ определить сколько радиан​ 3,1415 радиан.​Функция РАДИАНЫ (на английском​ГрадусыМинутыСекунды = Градусы​ (A2;1))*60-ОКРВНИЗ ((A2-ОКРВНИЗ (A2;1))*60;1))*60;0)=60;ОКРВНИЗ​Саня​
​ «+», что формула​ составляет труда: целая​
​ ячеек. Для вызова​
​ 40.1234)​
​ — y) *​
​ 40°7.40, то же​
​ левее формулы. Сама​
​Владимир​

​Sh_Alex​​ градуса в минуты​ с минутами и​ в сразу нескольких​Найдем радианы для угла​

​ RADIANS) – это​​ & «° «​
​ ((A2-ОКРВНИЗ (A2;1))*60;1)+1;ОКРВНИЗ ((A2-ОКРВНИЗ​, спасибо, но что-то​ должна понимать. Спасибо!​
​ часть соответствует градусам,​ окна нажмите​Nekto​ 60; //тут минуты​ самое и с​
​ формула ссылается только​: Проблема с записью​: «Drony»!​
​ и секунды. Для​ с секунтдами. Это​ значениях градуса и​
​ в 90°. Откроем​

​ одна из математических​​ & Минуты &​ (A2;1))*60;1))) & «‘​ не выходит… выдает​

​Pelena​​ 1 градус соответствует​CTRL+1​: Присвоить значение иксу​ с запятой​ долготой, т.е. просто​ на нее.​

​ углов , вычисление​​Вам удалось попасть​

​ примера, формулы, записанные​​ я уже решил.​ вводить тогда каждый​ окно функций и​ и тригонометрических функций,​ «‘ » &​ » & ЕСЛИ​

​ ЗНАЧ​​: Наверное, не самый​ единице, минута– 1/60​. Выберите (все форматы),​ надо перед тем,​Nekto​

​ отбрасываем целую часть​​Переводим дробь в​ дирекционного угла в​

​ в нужное время,​​ в ячейках: H4​Вот решение :​

planetaexcel.ru

Как в excel вводить градусы,минуты,секунды? мне нужны не сами значки…а чтобы он воспринимал числа как градусы…

​ минуты и секунды​​ excel.​ в нужное место.​
​ =ОТБР(G4) – целое​*********************************************************​ долго. В таком​ необходимо вычислить. Находим​ для инженерных расчетов.​End If​ ((A2-ОКРВНИЗ (A2;1))*60;1))*60;0)=60;0;ОКРУГЛ (((A2-ОКРВНИЗ​
​:​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ЛЕВСИМВ(D4;ПОИСК(«°»;D4)-1)+(ПСТР(D4;ПОИСК(«°»;D4)+1;2)/60+ПСТР(D4;ПОИСК(«‘»;D4)+1;2)/3600)*ЕСЛИ(ЛЕВСИМВ(D4)=»-«;-1;1)​ 1/60 минуты или​ поля Тип.​C++ double x​
​ получать с помощью​ умножаем на 60​
​Пример исходного числа:​Файл удален​Я геодезист. Для​
​ число градусов I4​Например, таблица 1,​ случае можно воспользоваться​ ее в окне​ Данная функция в​If (ВыборРезультата =​ (A2;1))*60-ОКРВНИЗ ((A2-ОКРВНИЗ (A2;1))*60;1))*60;0))​
​XBird​Nic70y​ 1/3600 градуса. Получаем:​

​в поле Тип введите​​ = StrToFloat(Edit1->Text); double​
​ стандартной функции http://www.cplusplus.com/reference/cmath/modf/​ и потом записываем​6,345​- велик размер​
​ своих нужд написал​ =ОТБР((G4-H4) *60) –​ «Вычисление дирекционных углов​ немного иным способом​
​ мастера функций и​ Excel легко преобразует​
​ 2) Then​
​ & «»»​
​, Формула Сани работает​
​: для разнообразия:​ 122+26*(1/60)+24*(1/3600)=122,44.​ ;;​ y = int(x);​
​V-Gub​ ввиде 40°07.40. В​
​Формула:​ — [​ функции, которые Вам​ целая часть произведения​
​ и длин сторон​ конвертирования величин для​ выбираем аргумент 90.​ градусы в радианы​If (Минуты <>​Способ 2 (изящный).​

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

​ отлично. Замените все​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ЛЕВБ(D4;ДЛСТР(D4)-1);»°»;»:»);»‘»;»:»);»- «;»»)*24*ЕСЛИ(ЛЕВСИМВ(D4)=»-«;-1;1)​
​С десятичным представлением можно​затем введите туда же​V-Gub​: C++ #include #pragma​ экселе это всё​=СЦЕПИТЬ (ОТБР (RC[-1]);»°​МОДЕРАТОРЫ​ нужны. Посмотрите прикрепленный​ из десятичных долей​ между исходными пунктами»​
​ измерения углов.​ОК. В 90 градусах​ – угол, соответствующий​ 0) And (Секунды​ Здесь применяется макрос.​ точки, на запятые​Morinus​ производить необходимые вычисления,​ знак градуса (°),​: но это же​ hdrstop #include «Unit1.h»​ выглядит просто функция​ «;ОТБР (ABS(RC[-1]-ОТБР (RC[-1]))*60);»‘​]​ файл.​ градусов, умноженных на​ , выглядит так:​Требуется найти сколько будет​ будет 1,5707 радиан.​ дуге, а длина​ = 0) Then​ Для этого создается​ в разделителях. т.е.​: Круто! Спасибо Вам​ например, можно прибавить​ скопировав из Буфера​ значение всегда разное.​ #include //————————————————————————— #pragma​
​ ОТБР и т.д.,​ «;ОКРУГЛ (ABS(RC[-1]-ОТБР (RC[-1])-ОТБР​Это не единственная проблема.​Я сделал этот​ 60, т.е. целое​ Как видно, таблица​ в Радианах 45,​В следующих примерах рассмотрим,​ этой дуги равна​ ГрадусыМинутыСекунды = Градусы​ модуль, в который​ 39.45656877 -нельзя, 39,0000774-нужно.​ огромное. А можно​ 2 минуты и​ обмена, в который​ Его только в​ package(smart_init) #pragma resource​ а в билдере​ ((RC[-1]-ОТБР (RC[-1]))*60)/60)*3600;1);»»»»)​ Читайте, полезно:​ модуль надстройкой Excel.​ число минут J4​ почти полностью дублирует​ 67, 23, 12,​ как конвертировать эти​ ее радиусу.​ & «° «​ помещается следующий код​ Можно через «cntl+f»​

​ такую же формулу​​ 10 секунд: +2*(1/60)+10*(1/3600).​ его заранее туда​ Edit вписывать потом​ «*.dfm» TForm1 *Form1;​ С++ у меня​Переводим обратно в​Serge​ Дает массу преимуществ.​ =ОКРУГЛ((G4-H4-(I4/60) ) *3600;2)​

​ таблицу, взятую из​​ 57 градусов. Нажимаем​ единицы измерения углов​ПРИМЕР 1. Для инженерных​

​ & Минуты &​​ (набросал минут за​ найти «.», заменить​ только без значения​Представить 122,44 в формате​ вставили командой Символ​ после компиляции​ //————————————————————————— __fastcall TForm1::TForm1(TComponent*​ не получается.​ дробь:​: Excel понимает градусы​С вопросоми сюда​ – произведение из​ «методических указаний» ,​ кнопку fx (SHIFT+F3)​ в обоих направлениях.​ расчетов связанных с​ «‘»​ десять):​ «,»​ секунд.​ долготы и широты​ (Вставка/ Текст/ Символ).​Спасибо большое! Разобрался!​ Owner) : TForm(Owner)​C++ #include #pragma​36° 15’ 17″​ в десятичной системе​ или на E-mail:​ исходной величины градусов​ только имеется лишний​ для вызова окна​​ движением по окружности​If (Минуты =​Function ГрадусыМинутыСекунды (Число​XBird​Nic70y​ с помощью простого​

​ Или удерживая​​Добавлено через 34 секунды​ { } //—————————————————————————​ hdrstop #include «Unit1.h»​ — пробелы после​

​Значит надо перевести​​ [email protected]​ минус целое число​ столбец (пустой) между​
​ выбора функции и​ПРИМЕР 2. Иногда нужно​ зачастую необходимо вычислять​

​ 0) And (Секунды​​ As Double, ВыборРезультата​:​: Моя:​ форматирования не удастся,​ALT​
​Всем спасибо!!!!​
​ void __fastcall TForm1::Button1Click(TObject​
​ #include // -​

CyberForum.ru

​ ° и ‘​

Если Вам нужно отобразить широту или долготу в формате 56°54’31» (56 градусов 54 минуты 31 секунда), то этот пример для Вас.

В зависимости от желаемого результата и исходных данных существуют разные способы отображения широты и долготы в формате 56°54’31» (56 градусов 54 минуты 31 секунда).

Применение пользовательского формата

Если в ячейке содержится число вида 565431, то применение

пользовательского формата

позволит только правильно отобразить формат широты и долготы (56°54’31»), арифметические же операции с долготой или шириной произвести не удастся (при прибавлении 30 секунд будем иметь 56°54’61», а не 56°55’01»). Тем не менее, применим пользовательский формат.

Пользовательский формат вводим через диалоговое окно

Формат ячеек

. Для вызова окна нажмите

CTRL

+

1

. Выберите (

все форматы

), удалите все из поля

Тип

.

• в поле
  
  Тип
  
  введите ###;
• затем введите туда же знак градуса (°), скопировав из Буфера обмена, в который его заранее туда вставили командой
  
  Символ
  
  (
  
  )
  
  . Или удерживая
  
  ALT
  
  , наберите на цифровой клавиатуре 0176 и отпустите
  
  ALT
  
  (Подробнее о вводе нестандартных символов читайте в статье

  Ввод символов с помощью клавиши ALT

  );

• введите пробел, два нуля, апостроф (‘) и еще пробел;
• введите еще два нуля и еще 2 апострофа (‘) (двойная кавычка не подойдет или ее придется вводить вместе с обратным слешем «);
• нажмите ОК.

Теперь введите в ячейку 565431 и нажмите

ENTER

, в ячейке отобразится 56°54’31».

Преобразование из десятичного формата

Часто долготу и широту представляют в десятичном формате. Например, число 122,44 соответствует 122 градусам 26 минутам и 24 секундам. Проверить это не составляет труда: целая часть соответствует градусам, 1 градус соответствует единице, минута– 1/60 градуса, секунда – 1/60 минуты или 1/3600 градуса. Получаем: 122+26*(1/60)+24*(1/3600)=122,44.

С десятичным представлением можно производить необходимые вычисления, например, можно прибавить 2 минуты и 10 секунд: +2*(1/60)+10*(1/3600).

Представить 122,44 в формате долготы и широты с помощью простого форматирования не удастся, нужно использовать формулу для преобразования из десятичного формата. Если значение долготы 122,44 находится в ячейке

А1

, то для преобразования в нужный формат запишем формулу:

=ТЕКСТ(ОТБР(A1);»0″&СИМВОЛ(176)) &ТЕКСТ(ЦЕЛОЕ(ОСТАТ(A1;1)*60);»0′») &ТЕКСТ(60*ОСТАТ((ОСТАТ(A1;1)*60);1);»0′ «)

Результат:

122°26’24»

– значение в текстовом формате.

Пересчет из Градусы/Минуты/Секунды в десятичные градусы с помощью Excel

Очень простая статья по переводу координат из представления «Градусы/Минуты/Секунды» в формат десятичных градусов. Обработка до 5000 пар координат за раз.

Файл к статье: https://yadi.sk/d/QNw-SUMGXUAIzg

Откройте скачанный файл и разрешите выполнение макросов:

Теперь рассмотрим его содержимое подробнее: на вкладке (листе) «Исходные (Г.М.С)» мы видим исходные данные для примера — в дальнейшем, их разумеется, можно (и нужно!) удалить, и заменить своими.

На листе «Десятичные градусы» мы видим, что пока эксель не может выполнить расчеты

Вернитесь в первую вкладку и нажмите кнопку «Удалить буквы N,E»

Результат на втором листе не заставит себя ждать:

Теперь можно скопировать всю эту огромную пачку координат, и например:

—  перевести в кадастровые. Описано здесь в разделе 3 

    прямая ссылка на сайт-конвертер:

— Отобразить на карте в виде геоданных: 

Прим.1: Макрос выполняет поиск и замену букв N и E в тексте, аналогичные действия можно выполнить вручную, просто нажав Ctrl+H — для любых других букв/символов.

Прим.2: Если при копировании из источника данных значения широты/долготы оказываются в одной ячейке при вставке, то их легко разделить на вкладке Данные, Текст по столбцам.