Función transformar a grados minutos y segundos 

Excelente Jesús. Me fue de mucha utilidad. Mil gracias!

EXCELENTE APORTE ESTIMADO AMIGO, SALUDOS DESDE ECUADOR

Increible, muchisimas gracias por tan valioso aporte!

Me salvo amanecidas, esta de infarto este video muchas gracias

Function GradosMinSec(GradosDecimales) As Variant GradosDecimales = Format(GradosDecimales, "0.0000000") ABSOLUTO = Abs(GradosDecimales) grados = Int(ABSOLUTO) minutos = (ABSOLUTO - grados) * 60 segundos = (minutos - Int(minutos)) * 60 If GradosDecimales < 0 Then GradosMinSec = "-" & Int(grados) & "°" & Int(minutos) & "'" & Format(segundos, "0.00") & Chr(34) Else GradosMinSec = grados & "°" & Int(minutos) & "'" & Format(segundos, "0.00") & Chr(34) End If End Function Este me sirvió para que los grados negativos no salgan con error.

Excelente, práctico y muy útil! gracias!!

'Aquí va la función prometida: Function GradosMinSec(GradosDecimales) As Variant GradosDecimales = Format(GradosDecimales, "0.0000000") grados = Int(GradosDecimales) minutos = (GradosDecimales - grados) * 60 segundos = (minutos - Int(minutos)) * 60 GradosMinSec = grados & "°" & Int(minutos) & "'" & Format(segundos, "0.00") & Chr(34) End Function

¡Me salvaste la vida! Gracias

Barbaro maestro, me sacaste de un apuro

Gracias por el aporte, fue de mucha ayuda!!!

Muy buen video, me fue de mucha ayuda ¡¡¡¡gracias!!!!

Muchas gracias me sirvio mucho su video.

QUE CRACK HERMANO! gracias por el aporte

ERES UN GENIO TE AMO

GRACIAS FACIL SIMPLE SENCILLO

no funciona en angulos negativos

Muy buen carck estoy contento por esa información

Excelente información, me ha servido bastante. Saludos!

UN DIOS MI KING

Excelente hermano, gracias

MUCHAS GRACIAS, DE MUCHA UTILIDAD

muchas gracias por tu video, me sirvió mucho

Que buen video la verdad muchas gracias Jesús Me hiciste un favorsote, saludos.

Un grande, muchas gracias

Eres un genio

Omitan los errores de sintaxis y los comentarios, lo corregí para que el entero estuviera truncado. Function GradosMinSec(GradosDecimales) As Variant GradosDecimales = Format(GradosDecimales, "0.000000000") Grados1 = Fix(GradosDecimales) Grados = Abs(Grados1) Minutos1 = GradosDecimales - Grados1 Minutos2 = Minutos1 * 60 Minutos = Abs(Minutos2) ' Minutos = (GradosDecimales - Grados) * 60 Segundos1 = Minutos2 - Fix(Minutos2) ' Segundos = (Minutos - Int(Minutos)) * 60 Segundos = Abs(Segundos1 * 60) GradosMinSec = Grados & "° " & Int(Minutos) & "' " & Format(Segundos, "0.00000") & Chr(34) 'GradosMinSec = Grados & "° " & Minutos & "' " & Format(Segundos, "0.00000") & Chr(34) 'GradosMinSec = Segundos End Function Si pueden depurarlo, esta bien.

Muchas gracias, me funcionó perfectamente. 10/agosto/2021

Gracias..muy excelente

GENIAL MUCHAS GRACIAS HA SIDO DE MUCHA UTILIDAD

Es lo que necesitaba, muchas gracias

Excelente ayuda, mil gracias

Me sirvió de mucho, graciasss!!

Muchas gracias, me salvaste!!!

Excelente! Muchas gracias

gracias mi rey

Muchísimas Gracias

Muy útil y eficaz,gracias!

EXCELNTE amigo

Excelente. En cuál versión de Excel se utiliza =Convert_Degree. Gracias.

Crack

Gracias me sirvio muchisimo

Buen día! En primer lugar agradecerte porque me has hecho ganar mucho tiempo. Quería consultarte si has pensado en alguna modificación para la programación de la función ya que cuando los segundos dan 60.00" lo deja así y no suma un minuto. Desde ya, muchas gracias!

SOS UN CAPO

Muy Útil! Gracias!

oye amigo pregunta, si quiero que los grados tengan color verde, los minutos color rojo y los segundos olor azul, como le hago?

hola, muchas gracias, pero no funciona para grados negativos, como puedo hacer para grados negativos

excelente, y para convertir de grados, minutos y segundos a decimales?? saludos

muchas gracias

Que buen vídeo, gracias.

excelente!!! y para pasar a coordenadas UTM??

Muchas gracias por el aporte. Sin embargo tengo una duda , al momento de sumar celdas con ese formato me sale un error, sabes como podria solucionarlo? Gracias

como hago para que los segundos solo me salgan dos decimales ??

Excelente me funcionó

Excelente!! gracias

MUY BUENO JESUS

Excelente!!!!

muy bueno el video

hola buenas tardes, soy neófito y necesito con urgencia trabajar esta función Sen α1 = I / D , este resultado, α1 es igual al inverso seno de I/d, lógicamente me debe dar grados, min y segundos. agradecería la ayuda

Una solución simple y útil

Excelente! ¿Y si quiero pasar GradosMinSec a GradosDecimales? :/ te agradecería me pudieses comentar, y excelente canal :)

para solo minutos y segundos ??

Gracias!

GRANDE CRACK

Pero esta formula te las redondea. No tendras una que no las redondee?

Excelente

hola, por favor alguien me ayude ya tengo todo pero al final aparece un decimal que no debe ir, como lo desaparezco 10°12'30.7 " en este caso es el 7, ya intente y nada

Function GradosMinSec(GradosDecimales) As Variant grados = Int(GradosDecimales) minutos = (GradosDecimales - grados) * 60 segundos = (minutos - Int(minutos)) * 60 GradosMinSec = grados & "°" & Int(minutos) & "'" & Format(segundos, "0.00") & Chr(34) End Function

Que onda, y la programación donde esta?

genial

gracias

y al contrario?

hola cual seria el codigo

Excelente, mejor de ahí se daña.

de grados minutos y segundos a decimal?

buenas noches el codigo

bien

ARIGATO

Me sale value jsj

Excelente video, muchas gracias por el aporte.

Crack

genial