Problema para usar una función en una subrutina
Problema para usar una función en una subrutina
Hola, tengo un detalle para correr una función desde una subrutina, me aparece el error de la imagen
Anexo el código
Function velo(distancia As Double, tiempo As Double, unidadd As String, unidadt As String)
‘aquí estamos manejando 4 variables, las cuales, 2 son los componentes para la forumla
‘distancia y tiempo
‘ y las otras 2 son las unidades correspondientes para las mismas
‘De esta forma el programa le arroja al usuario la velocidad en las
‘unidades que sean
velo = “La velocidad es ” & distancia / tiempo & unidadd & ” sobre ” & unidadt
End Function
Sub velocidad()
Dim a, c As Double
Dim r As Variant
Dim b, d As String
b = InputBox(“En qué unidades se medirá la distancia?: “, “Calculo de velocidad”)
a = InputBox(“Ingresa por favor la distancia en la unidad especificada”, “Calculo de velocidad”)
d = InputBox(“En qué unidades se medirá el tiempo?: “, “Calculo de velocidad”)
c = InputBox(“Ingresa por favor la cantidad de tiempo”, “Calculo de velocidad”)
r = velo(a, c, b, d)
End Sub
Inicia sesión para responder.