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
Publicaciones relacionadas:
Distancia entre los puntos
Hallando la distancia de dos puntos
Uso de los Puntos de Interrupción (Breakpoints)
Diferencias y ejemplos entre Range(“A1”).text y Range(“A1”). value
Diferencia entre Sub y Function
Diferencia entre Byval y Byref
Compación entre Range y Cells
Diferencia entre Range y Cells
30/03/2015 at 4:10 pm
Esta función ayuda mucho en cálculos matemáticos pero creo que también podría ayudarnos a estimar aproximadamente el costo de consumo de combustible de transportar los productos desde la planta de fabricación hasta su centro de distribución. La función nos permitiría aproximar la distancia que existe entre la planta de fabricación y el centro de distribución y por una función extra obtendremos el consumo en soles de combustible.
Función para el cálculo del costo de transporte:
Function distancia_entre_puntos(arg1, arg2, arg3, arg4, arg5, arg6)
resultado = Round((((arg4 – arg1) ^ 2) + ((arg5 – arg2) ^ 2) + ((arg6 – arg3) ^ 2)) ^ (1 / 2), 2)
distancia_entre_puntos = resultado
End Function
Function costotransporte(distancia_entre_puntos, costocombustible)
costotransporte = distancia_entre_puntos * costocombustible
End Function
Esta función nos determina el costo de transporte aproximado entre la planta de producción y el centro de distribución.