sisi, es eso lo que busco, aunk tu code tiene un pekeño fallo
ya que cuando
A= 19
B = 1
daun resultado de "5", siende que la distancia entre A y B = 18, y en iguales condiciones cuando
A=19
B = 37 ............. Distancia tambien es 18
pero arroja un resultado de 51 el cual es diferente y no confitrma la formula.
Pero igualmente me ayudo a razonar y lo solucione de una manera un pco sucia y chapucera pero solucion al fin. Dios bendiga a nuestro amado IF
Private Sub Form_Load()
a = "18"
b = "6"
End Sub
Private Sub Command1_Click()
If Not a < b Then
distanciaayb = Val(a) - Val(b)
Else
distanciaayb = Val(b) - Val(a)
End If
MsgBox distanciaayb
If distanciaayb < 100 Then
If Not distanciaayb = "0" Then
Porcentaje = Val("100") - Val(distanciaayb)
Else
Porcentaje = "0"
End If
MsgBox "porcentaje % " + Porcentaje
Else
MsgBox "la Distancia es muy Grande .,el resultado no es alentador"
End If
End Sub
aunk se puede mejorar pero lalogica ya esta plsmada.
Muchas Gracias.!!!