Esta función permite calcular la distancia entre dos puntos definidos en 3 dimensiones, su uso resulta útil dentro de cursos de geometría avanzada, acortando el numero de operaciones internas para su calculo mediante el ingreso directo de argumentos en una función definida en VBA.
El lenguaje a utilizar para esta función es la siguiente:
Function distancia_entre_puntos(arg1, arg2, arg3, arg4, arg5, arg6)
calculo = Round((((arg4 - arg1) ^ 2) + ((arg5 - arg2) ^ 2) + ((arg6 - arg3) ^ 2)) ^ (1 / 2), 2)
distancia_entre_puntos = calculo
End Function
Esta función se ha definido dentro de un modulo genérico(Modulo 1), como se puede observar en la siguiente imagen:
(Para mayor visualización de la imagen, hacer click en la misma)
El lenguaje antes definido guarda relación con la formula mostrada en la siguiente imagen, en la cual se podrá notar que su uso requiere de 6 argumentos o valores:
(Para mayor visualización de la imagen, hacer click en la misma)
Finalmente dejo un ejemplo:
UDF-Distancia entre 2 puntos en el espacio
Elaborado por: John Garcia
Un comentario
Escriba un comentario →