Función transformar a grados minutos y segundos
ฝัง
- เผยแพร่เมื่อ 15 ก.ย. 2024
- Función programada en excel VBA para transformar de grados decimales a formato grados minutos y segundos 00°00"00.00'
AQUÍ VA LA FUNCIÓN:
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
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.
Increible, muchisimas gracias por tan valioso aporte!
Excelente Jesús. Me fue de mucha utilidad. Mil gracias!
Excelente, práctico y muy útil! gracias!!
EXCELENTE APORTE ESTIMADO AMIGO, SALUDOS DESDE ECUADOR
GRACIAS FACIL SIMPLE SENCILLO
Me salvo amanecidas, esta de infarto este video muchas gracias
Muy buen video, me fue de mucha ayuda ¡¡¡¡gracias!!!!
Gracias por el aporte, fue de mucha ayuda!!!
QUE CRACK HERMANO! gracias por el aporte
Muchas gracias, me funcionó perfectamente. 10/agosto/2021
Muchas gracias me sirvio mucho su video.
¡Me salvaste la vida! Gracias
Excelente información, me ha servido bastante. Saludos!
MUCHAS GRACIAS, DE MUCHA UTILIDAD
Barbaro maestro, me sacaste de un apuro
Excelente hermano, gracias
Excelente ayuda, mil gracias
muchas gracias por tu video, me sirvió mucho
Muy buen carck estoy contento por esa información
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.
Pero se come el signo negativo :c
no funciona en angulos negativos
Un grande, muchas gracias
Gracias..muy excelente
Que buen video la verdad muchas gracias Jesús Me hiciste un favorsote, saludos.
ERES UN GENIO TE AMO
Crack
Es lo que necesitaba, muchas 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
Sobre la funcion que dejaste para copiarla esta incompleta y en el video no se aprecia toda, saludos
Excelente, gracias por compartirlo
No da
No sirve el código para ángulos pequeños por ejemplo 1,76 grados es 1.45’36” pero en el excel sale 1.45’27,75 no es lo mismo
oye amigo pregunta, si quiero que los grados tengan color verde, los minutos color rojo y los segundos olor azul, como le hago?
UN DIOS MI KING
Excelente! Muchas gracias
GENIAL MUCHAS GRACIAS HA SIDO DE MUCHA UTILIDAD
Me sirvió de mucho, graciasss!!
Muchísimas Gracias
Eres un genio
Muy útil y eficaz,gracias!
EXCELNTE amigo
Muchas gracias, me salvaste!!!
Excelente. En cuál versión de Excel se utiliza =Convert_Degree. Gracias.
Muy Útil!
Gracias!
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!
hola que tal ,yo aquí de metiche , pude ver el mismo problemita ,lo solucione de la siguiente manera :
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
@@gusaroni2292 Hola tienes la formula para que no aparezcan 60 seg ??
La que pasaste ahi es la misma que la original
excelente, y para convertir de grados, minutos y segundos a decimales?? saludos
Una solución simple y útil
Que buen vídeo, gracias.
SOS UN CAPO
gracias mi rey
muchas gracias
Excelente!!!!
Excelente!! 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
si yo igual tengo el mismo problema de sumar, cual es el macro de suma por favor
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
Gracias!
oye amigo pregunta, si quiero que los grados tengan color verde, los minutos color rojo y los segundos olor azul, como le hago?
MUY BUENO JESUS
Excelente
hola, muchas gracias, pero no funciona para grados negativos, como puedo hacer para grados negativos
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
Excelente me funcionó
GRANDE CRACK
Excelente! ¿Y si quiero pasar GradosMinSec a GradosDecimales? :/ te agradecería me pudieses comentar, y excelente canal :)
Hola, mira este vídeo. Te ayudará th-cam.com/video/uHMaJ-Fkjkk/w-d-xo.html
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
muy bueno el video
genial
para solo minutos y segundos ??
gracias
como hago para que los segundos solo me salgan dos decimales ??
Pero esta formula te las redondea. No tendras una que no las redondee?
Que onda, y la programación donde esta?
Excelente, mejor de ahí se daña.
y al contrario?
de grados minutos y segundos a decimal?
x2
=C
hola cual seria el codigo
bien
buenas noches el codigo
ARIGATO
Me sale value jsj
Excelente video, muchas gracias por el aporte.
Crack
genial