Отображение широты и долготы в MS EXCEL
Смотрите также *Sender) { double это я добавил обязательны. ему отдельные минутыС уважением, Александр. градусов минус только
колонками «Румб» и в окне поиска единицу измерения углов угловые скорости и = 0) Then As Byte) AsRichman200?’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,44ALT
- (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; //тут } //————————————————————————— voidV-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 секунд , т.е. yvxg же по E,
Александр хмыз почте.SIN-??? градусах (десятичные доли)
57 градусов – получаем ровно 235 180, так как нулевые секунды будутГрадусы = Градусы (A2;1)) & «° мне надо наоборот
случае значения я представляют в десятичном
будем иметь 56°54’61», = 0.Что я: C++ double x; мне их нужно: Переводчик ГрадусовPoziaASIN-??? в требуемый формат, это 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 и получаю NRC[-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Вот решение :
раз аргумент очень введем функцию, что которая часто применяется Секунды & «»» (ОКРУГЛ (((A2-ОКРВНИЗ (A2;1))*60-ОКРВНИЗ
Richman оптимальный вариант градуса, секунда – удалите все из как производишь действия.
: Дробнуюцелую часть можно (40), а дробную
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))
XBirdNic70y 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 #pragma36° 15’ 17″ в десятичной системе или на E-mail: исходной величины градусов только имеется лишний для вызова окна движением по окружностиIf (Минуты =Function ГрадусыМинутыСекунды (ЧислоXBirdNic70y с помощью простого
Или удерживаяДобавлено через 34 секунды { } //————————————————————————— hdrstop #include «Unit1.h» — пробелы после
Значит надо перевести [email protected] минус целое число столбец (пустой) между
выбора функции иПРИМЕР 2. Иногда нужно зачастую необходимо вычислять
0) And (Секунды As Double, ВыборРезультата:: Моя: форматирования не удастся,ALT
Всем спасибо!!!!
void __fastcall TForm1::Button1Click(TObject
#include // -
CyberForum.ru
° и ‘
Как в Excel преобразовать градусы с десятичными знаками в минуты и секунды?
К примеру, есть значение вида 12.3648°, преобразовать в 12° Х.х’ или в 12° Х’ Y.y».
Порядок действий для преобразования градусов из десятичных долей
считаем что исходное значение записано в ячейке A2
- формула для вычисления целых градусов =ЦЕЛОЕ(A2)
- формула для вычисления минут градуса (1°=60′) =ЦЕЛОЕ(ОСТАТ(A2;1) *60)
- формула для вычисления секунд градуса (1°=3600″) =(ОСТАТ(A2;1)-ЦЕЛО Е(ОСТАТ(A2;1)*60)/60) *3600
Каждое значение надо преобразовать к текстовому виду функцией ТЕКСТ
и объединить в одну текстовую строчку формулой
если десятичные доли секунд не нужны то формула будет такая:
формула без секунд с десятичными знаками для минут
Обратите внимание, что при копировании формул со страницы этого ресурса иногда появляются лишние знаки, которые надо удалить, иначе формула в EXCEL будет давать ошибку.
Доброе время суток. Допустим, данные в ячейке B2 в виде десятичных градуса такого вида: 51,214794. Тогда формула, скажем, в ячейке B4, у меня следующего вида: =ТЕКСТ(ОТБР(B3);»0″& СИМВОЛ(176))&ТЕКСТ(ЦЕ ЛОЕ(ОСТАТ(B3;1)*60);» 0′»)&ТЕКСТ(60*ОСТАТ(B 3;1);»0,00000»»). Здесь в моих предложениях точки — это просто знаки препинания, их не надо ставить в ячейки. Продолжу. Конечный результат в ячейке B4 с формулой будет такой: 51°12’12,88764»
Тут в формуле знаки «нуль», а не «#», суть от этого не меняется. Должен сказать, что в конце формулы можно менять разрядность секунд в десятичном представлении, то есть точность. К примеру, поставим «0,000»». Тогда результат станет: 51°12’12,887». Две последние цифры опускаются. А если я поставлю «0,00000000»», то конечный результат: 51°12’12,88764000». Я не программист, просто искал на сайтах, а потом переделал немного формулу под свои запросы. Кстати, на одном форуме задали вопрос, могут ли быть углы >360° ? Как специалист по электроприводам и автоматике, отвечу, что могут. Здесь от заданного значения надо вычитать по 360, пока в остатке не получится число
Географические информационные системы и дистанционное зондирование
Конвертация значений координат в формате DDMMSS в формат DD.DDDD
Как переводить координаты из одного числового формата в другой
Географические координаты одной и тоже точки могут быть выражены в разных форматах. В зависимости от того, представлены минуты и секунды как значения от 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.
[править] Пересчитать значения координат самому в Excel
Формула для пересчета из dd mm ss в dd.ddddd:
Формула для пересчета из dd mm.mmmm в dd.ddddd:
Формула для пересчета из dd.ddddd в dd mm ss:
где DDD — координаты в формате DD.DDDD, DD — градусы, MM (MM.MMMM) — минуты, SS — секунды
Если лень вводить формулы и создавать таблицу, можно загрузить готовую. Дальше потребуется только ввести свои координаты и скопировав столбцы с результатом вставить их в новую таблицу или текстовый файл, который можно будет потом импортировать в ГИС.
Чтобы еще больше облегчить пересчет координат в Excel можно использовать надстройку подключаемую к Excel. После ее подключения, в Excel добавляются несколько формул, позволяющих конвертировать значения из DDMMSS (в разных форматах в десятичные градусы). Скачать надстройку. Описание подключения и использования надстройки внутри архива.
- ГРД__ГГ_ММСС — перевод градусов, введенных в 1 ячейку в виде ГГ,ММСС
- ГРД__ГГММ_СС — перевод градусов, введенных в 1 ячейку в виде ГГММ,СС
- ГРД__ГГ_ММ_СС — перевод градусов, введенных в 3 ячейки в виде ГГ ММ СС
Последнее обновление: 2014-05-14 21:38
Дата создания: 01.03.2002 Автор(ы): Максим Дубинин
Можно ли в экселе десятичные градусы перевести..
Способ 1 (громоздкий). Здесь мы используем комбинацию из встроенных функций. Формула будет выглядеть так:
=ЕСЛИ (ЕСЛИ (ОКРУГЛ (((A2-ОКРВНИЗ (A2;1))*60-ОКРВНИЗ ((A2-ОКРВНИЗ (A2;1))*60;1))*60;0)=60;ОКРВНИЗ ((A2-ОКРВНИЗ (A2;1))*60;1)+1;ОКРВНИЗ ((A2-ОКРВНИЗ (A2;1))*60;1))=60;ОКРВНИЗ (A2;1)+1;ОКРВНИЗ (A2;1)) & «° » & ЕСЛИ (ЕСЛИ (ОКРУГЛ (((A2-ОКРВНИЗ (A2;1))*60-ОКРВНИЗ ((A2-ОКРВНИЗ (A2;1))*60;1))*60;0)=60;ОКРВНИЗ ((A2-ОКРВНИЗ (A2;1))*60;1)+1;ОКРВНИЗ ((A2-ОКРВНИЗ (A2;1))*60;1))=60;0;ЕСЛИ (ОКРУГЛ (((A2-ОКРВНИЗ (A2;1))*60-ОКРВНИЗ ((A2-ОКРВНИЗ (A2;1))*60;1))*60;0)=60;ОКРВНИЗ ((A2-ОКРВНИЗ (A2;1))*60;1)+1;ОКРВНИЗ ((A2-ОКРВНИЗ (A2;1))*60;1))) & «‘ » & ЕСЛИ (ОКРУГЛ (((A2-ОКРВНИЗ (A2;1))*60-ОКРВНИЗ ((A2-ОКРВНИЗ (A2;1))*60;1))*60;0)=60;0;ОКРУГЛ (((A2-ОКРВНИЗ (A2;1))*60-ОКРВНИЗ ((A2-ОКРВНИЗ (A2;1))*60;1))*60;0)) & «»»
Способ 2 (изящный). Здесь применяется макрос. Для этого создается модуль, в который помещается следующий код (набросал минут за десять):
Function ГрадусыМинутыСекунды (Число As Double, ВыборРезультата As Byte) As String
Dim Градусы As Integer, Минуты As Integer, Секунды As Integer
Dim Остаток As Double
Градусы = Int(Число)
Остаток = Число — Градусы
Минуты = Int(Остаток * 60)
Остаток = Остаток * 60 — Минуты
Секунды = Round(Остаток * 60)
If (Секунды = 60) Then
Минуты = Минуты + 1
Секунды = 0
End If
If (Минуты = 60) Then
Градусы = Градусы + 1
Минуты = 0
End If
If (ВыборРезультата = 1) Then
ГрадусыМинутыСекунды = Градусы & «° » & Минуты & «‘ » & Секунды & «»»
End If
If (ВыборРезультата = 2) Then
If (Минуты <> 0) And (Секунды = 0) Then ГрадусыМинутыСекунды = Градусы & «° » & Минуты & «‘»
If (Минуты = 0) And (Секунды = 0) Then ГрадусыМинутыСекунды = Градусы & «°»
If (Секунды <> 0) Then ГрадусыМинутыСекунды = Градусы & «° » & Минуты & «‘ » & Секунды & «»»
End If
If (ВыборРезультата <> 1) And (ВыборРезультата <> 2) Then ГрадусыМинутыСекунды = «ВыборРезультата не равен 1 или 2»
End Function
Отображение широты и долготы в MS EXCEL
Если Вам нужно отобразить широту или долготу в формате 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».
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.
Пересчёт координат при помощи Excel
Формула для пересчета из dd mm ss в dd.ddddd:
Формула для пересчета из dd mm.mmmm в dd.ddddd:
Формула для пересчета из dd.ddddd в dd mm ss:
DD = TRUNC(DD)
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 ячейки в виде ГГ ММ СС
Minutes and seconds are more basic units for measuring rotation than degrees. Using minutes when measuring rotation helps us analyse the values more accurately and efficiently. We can convert decimal degrees into degrees, minutes, and seconds using the VBA application, as it can’t be completed directly in Excel. This tutorial will help you understand how we can convert decimal degrees to degrees, minutes, and seconds in Excel. Here we will demonstrate two methods for converting decimal degrees to degrees, minutes, and seconds and degrees, minutes, and seconds to decimal degrees.
Convert Decimal Degrees to Degrees Minutes Seconds
Here, we will first create a VBA module and then run it to complete our task. Let us see a simple process to know how we can convert decimal degrees to degrees, minutes, and seconds using a VBA application in Excel.
Step 1
Consider an Excel sheet with data that is similar to the data shown in the image below.
Now click right-click on the sheet name and select view code to open the VBA application, then click on inset and select module.
Right click > view code > insert > module
Step 2
Then, as shown in the image below, type program 1 into the text box.
Example
Sub ConvertDegree()
'Updated By Nirmal
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Select the range"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
num1 = Rng.Value
num2 = (num1 - Int(num1)) * 60
num3 = Format((num2 - Int(num2)) * 60, "00")
Rng.Value = Int(num1) & "°" & Int(num2) & "'" & Int(num3) & "''"
Next
End Sub
Step 3
Then save the sheet as a macro-enabled template, and then click on F5 to run the macro, select the range you want to covert, and click OK to complete the process.
Convert Decimal Degrees Minutes Seconds to Degree
Here, we will first use VBA to create a module and then run it to complete our task. Let us look at a simple procedure for converting decimal degree minutes to degrees.
Step 1
Let us consider a new Excel sheet and right-click on the sheet name and select view code to open a VBA application.
Then click on insert, select module, and enter program 2 in the text box as shown in the below image.
Example
Function ConvertDecimal(pInput As String) As Double 'Update by nirmal Dim xDeg As Double Dim xMin As Double Dim xSec As Double xDeg = Val(Left(pInput, InStr(1, pInput, "°") - 1)) xMin = Val(Mid(pInput, InStr(1, pInput, "°") + 2, _InStr(1, pInput, "'") - InStr(1, pInput, _ "°") - 2)) / 60 xSec = Val(Mid(pInput, InStr(1, pInput, "'") + _ 2, Len(pInput) - InStr(1, pInput, "'") - 2)) _ / 3600 ConvertDecimal = xDeg + xMin + xSec End Function
Step 2
Now save the sheet, and in the cell, enter the formula as =ConvertDecimal(«10° 27′ 36″»») and click OK to get the result shown in the below image.
Conclusion
In this tutorial, we used a simple example to demonstrate how you can convert decimal degrees to degree minutes in Excel.
Иногда у вас может быть список данных, отображаемых в виде десятичных градусов на листе, и теперь вам нужно преобразовать десятичные градусы в градусы, минуты и секунды, как показано на следующих снимках экрана, как вы можете быстро получить беседу в Excel?
Преобразование десятичных градусов в градусы, минуты, секунды с VBA
Преобразование градусов, минут, секунд в десятичные градусы с помощью VBA
Преобразование десятичных градусов в градусы, минуты, секунды с VBA
Преобразование десятичных градусов в градусы, минуты, секунды с VBAВыполните следующие действия, чтобы преобразовать десятичные градусы в градусы, минуты и секунды с помощью кода VBA.
1. Держать ALT и нажмите F11 на клавиатуре, чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модули, и скопируйте VBA в модуль.
VBA: преобразование десятичных градусов в градусы, минуты и секунды
Sub ConvertDegree()
'Update 20130815
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
num1 = Rng.Value
num2 = (num1 - Int(num1)) * 60
num3 = Format((num2 - Int(num2)) * 60, "00")
Rng.Value = Int(num1) & "°" & Int(num2) & "'" & Int(num3) & "''"
Next
End Sub
3. Нажмите Run или нажмите F5 для запуска VBA.
4. На экране отобразится диалоговое окно, в котором вы можете выбрать ячейки, которые хотите преобразовать. Смотрите скриншот:
5. Нажмите OK, затем выбранные данные преобразуются в градусы, минуты и секунды. Смотрите скриншот:
Функции: Использование приведенного выше кода VBA приведет к потере исходных данных, поэтому вам лучше скопировать данные перед запуском кода.
Преобразование градусов, минут, секунд в десятичные градусы с помощью VBA
Иногда вам может потребоваться преобразовать данные в градусах / минутах / секундах в десятичные градусы, следующий код VBA поможет вам быстро это сделать.
1. Держать ALКнопку T и нажмите F11 на клавиатуре, чтобы открыть окно Microsoft Visual Basic для приложения.
2. Нажмите Вставить > Модули, и скопируйте VBA в модуль.
VBA: преобразование градусов, минут и секунд в десятичные градусы
Function ConvertDecimal(pInput As String) As Double
'Updateby20140227
Dim xDeg As Double
Dim xMin As Double
Dim xSec As Double
xDeg = Val(Left(pInput, InStr(1, pInput, "°") - 1))
xMin = Val(Mid(pInput, InStr(1, pInput, "°") + 2, _
InStr(1, pInput, "'") - InStr(1, pInput, _
"°") - 2)) / 60
xSec = Val(Mid(pInput, InStr(1, pInput, "'") + _
2, Len(pInput) - InStr(1, pInput, "'") - 2)) _
/ 3600
ConvertDecimal = xDeg + xMin + xSec
End Function
3. Сохраните код и закройте окно, выберите пустую ячейку, например, Ячейку A1, введите эту формулу. = ConvertDecimal («10 ° 27 ’36» «») («10 ° 27 ’36» «» обозначает градус, который вы хотите преобразовать в десятичный градус, вы можете изменить его по своему усмотрению), затем щелкните Enter кнопка. Смотрите скриншоты:
Относительные статьи
- Преобразуйте десятичные числа в часы. Минуты, секунды
|
Перевод градусов, минут и секунд в десятичные? |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
