Страницы: 1
RSS
математическая операция(деление) с определенными цифрами из общего числа (*пересчет координат) и получение другого результата, Пересчет координат
 
Дорогие специалисты, подскажите дилетанту - с чего начать. Попросили сделать такую штуку - имеем число( координату), например 45°08´43,76130, с нее получаем 45°08´,72 ( происходит это таким образом, как мне объяснили - из числа 45°08´43,76130 кусок 43,7 делим на 60 , получаем 0,728333333333, и это число округляем до сотых или десятых и вставляем обратно) - как это автоматизировать ????  Мозг вылез через ухо и пытается свалить через порог.......
 
=ЛЕВБ(A1;ПОИСК("´";A1))&","&ЦЕЛОЕ(ПСТР(A1;ПОИСК("´";A1)+1;15)/0,6)
 
Catboyun,45°08´,72 выходит
 
VideoAlex,
Цитата
feniks4977 написал:
с нее получаем 45°08´,72
 
Спасибо, счас на чем нить проверю - я так понял это координаты для моря, но толком не объяснили что во что надо переводить.....
 
Catboyun,точно. простите мне мою невнимательность пожалуйста ((
Код
Function qwe(st As String) As String
qwe = Left(st, InStr(1, st, "'")) & CStr(Round(Val(Replace(Right(st, Len(st) - InStr(1, st, "'")), ",", ".")) / 60, 2))
End Function
но помоему надо всё ж 45°8,72'

офф. что это за символ у ТС? ´ вба его не понимает
Изменено: VideoAlex - 15.08.2018 14:23:10
 
имеете ввиду этот "´" ?
 
Цитата
VideoAlex написал:
помоему
а по-моему 45°8'72'' :)
Цитата
VideoAlex написал:
что это за символ
юникод 180
 
72 секунды это ж больше минуты
Изменено: VideoAlex - 15.08.2018 14:38:20
 
таки да, точно.
 
если предположить что здесь:
45°08´43,76130
43,76130 - это секунды в десятичном виде
то количество секунд = округл(43,76130 * 0.6;0)

обычно это пишут так: 45°08.4376130´ (45 град, 08 и 437... тысячных минут) тогда 0.4376130 нужно было умножить на 60 (и округлить до целых)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Если больше 60, то это десятые и сотые.
 
Ну блин, методом тыка вроде определил, что от меня хотят  преобразования из градусы-минуты-секунды в градусы-минуты...вроде так. Просто мне сказали сделать,то не знаю чего, чтоб получилось вот такая фигня, а что и почему ни слова....
 
если предположить что здесь 8 минут 43,76130 секунды, то
43,76130 относятся к 60 как х относится к 100
или х=43,76130*100/60=72,9355
это в секундах, а в минутах опять же делим на 100 или х=0.73
плюс те 8 минут... хотя складывая числа разных систем счисления... Давайте тогда просто всё в десятичную переведем - 45.133333
 
увы требуют отображение градусов и прочих закорючек
 
Вау, нашел то, что от меня требуют в оригинале (кажись это оно!!! взято после поисков на левом сайте)-

Для преобразования из градусы-минуты-секунды в градусы-минуты:
Значение градусов переписывается как есть;
Значение минут переписывается как есть;
Значение секунд (оно всегда меньше 60) делится на 60, получается дробная часть минут.
 
Пример: Имеются координаты N60°33' 51.48”  
Широта: значение градусов 60, значение минут 33, значение секунд 51.48
Записываем целые часть N60° 33’;
делим 51.48/60=0.858;
Получается N60°33.858'.  
 
Код
=ЛЕВБ(A1;ПОИСК("´";A1)-1)&","&ОКРУГЛ(ПСТР(A1;ПОИСК("´";A1)+1;15)/60;2)*100&"´"
 
не решает Вашей задачи, но валялось у меня в формулах...
в колонке В и Д перевод из десятичных градусов в гр, мин., сек. (в Д с сотыми секунд)
в колонках С и Е перевод обратно в десятичный вид
Изменено: Ігор Гончаренко - 15.08.2018 16:22:15
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Цитата
VideoAlex написал:
1=ЛЕВБ(A1;ПОИСК("´";A1)-1)&","&ОКРУГЛ(ПСТР(A1;ПОИСК("´";A1)+1;15)/60;2)*100&"´"
Ну похоже так - огромное Спасибо !!!!!!!!!!!
 
не за что. сам бы я до такой формулы не додумался, это переделанная из сообщения #2
 
Ваша банда - Это сила, всем СПАСИБО !!!!
Страницы: 1
Наверх