Ув.господа, первоначальная задача стояла как отображение угла в градусах с минутами и с секунтдами. Это я уже решил.
Вот решение :
*********************************************************
Например, таблица 1, «Вычисление дирекционных углов и длин сторон между исходными пунктами» , выглядит так: Как видно, таблица почти полностью дублирует таблицу, взятую из «методических указаний» , только имеется лишний столбец (пустой) между колонками «Румб» и «Градусы» , который нужен для записи промежуточных результатов. Дело в том, что все-таки изначально Excel не предназначался для работ в геодезической сфере, поэтому в нем нет встроенных форматов представления результатов угловых измерений. Впрочем, они достаточно легко реализуются вручную, но, скажем, для записи величины угла в формате «градусы, минуты, секунды» требуется не один столбец таблицы, а три, соответственно, доступ к этим данным тоже осуществляется раздельно. Для решения этой проблемы пришлось делать структуру, которая переводит величину в градусах (десятичные доли) в требуемый формат, отбрасывая сначала величину десятых долей и устанавливая количество целых градусов, а после переводя десятичные доли градуса в минуты и секунды. Для примера, формулы, записанные в ячейках: H4 =ОТБР(G4) – целое число градусов I4 =ОТБР((G4-H4) *60) – целая часть произведения из десятичных долей градусов, умноженных на 60, т.е. целое число минут J4 =ОКРУГЛ((G4-H4-(I4/60) ) *3600;2) – произведение из исходной величины градусов минус целое число градусов минус только что вычисленное целое число минут, деленное на 60, умноженное на 3600 и округленное до двух знаков после запятой = число секунд, вычисленное с точностью до 2-х знаков после запятой.
***********************************************************
Как теперь сделать шпоргалочку ?
Хочу в VB написать простенькую программку для этого дела, но незнаю как функции XL перевести в функции(операторы) VB.
Может кто подскажет таблице соответствий???
ОТБР - ???
ОКРУГЛ-???
COS-???
ACOS-???
SIN-???
ASIN-???
Вот решение :
*********************************************************
Например, таблица 1, «Вычисление дирекционных углов и длин сторон между исходными пунктами» , выглядит так: Как видно, таблица почти полностью дублирует таблицу, взятую из «методических указаний» , только имеется лишний столбец (пустой) между колонками «Румб» и «Градусы» , который нужен для записи промежуточных результатов. Дело в том, что все-таки изначально Excel не предназначался для работ в геодезической сфере, поэтому в нем нет встроенных форматов представления результатов угловых измерений. Впрочем, они достаточно легко реализуются вручную, но, скажем, для записи величины угла в формате «градусы, минуты, секунды» требуется не один столбец таблицы, а три, соответственно, доступ к этим данным тоже осуществляется раздельно. Для решения этой проблемы пришлось делать структуру, которая переводит величину в градусах (десятичные доли) в требуемый формат, отбрасывая сначала величину десятых долей и устанавливая количество целых градусов, а после переводя десятичные доли градуса в минуты и секунды. Для примера, формулы, записанные в ячейках: H4 =ОТБР(G4) – целое число градусов I4 =ОТБР((G4-H4) *60) – целая часть произведения из десятичных долей градусов, умноженных на 60, т.е. целое число минут J4 =ОКРУГЛ((G4-H4-(I4/60) ) *3600;2) – произведение из исходной величины градусов минус целое число градусов минус только что вычисленное целое число минут, деленное на 60, умноженное на 3600 и округленное до двух знаков после запятой = число секунд, вычисленное с точностью до 2-х знаков после запятой.
***********************************************************
Как теперь сделать шпоргалочку ?
Хочу в VB написать простенькую программку для этого дела, но незнаю как функции XL перевести в функции(операторы) VB.
Может кто подскажет таблице соответствий???
ОТБР - ???
ОКРУГЛ-???
COS-???
ACOS-???
SIN-???
ASIN-???