Visual Basic - Valor Negativo

Life is soft - evento anual de software empresarial
   
Vista:

Valor Negativo

Publicado por Alejandro (13 intervenciones) el 01/11/2008 20:13:12
Hola que tal, estoy con un problema al realizar una operación ya que no me esta restando en este codigo quiero realizar la resta.

Llamo a un InputBox para aplicar una cantidad donde solo me agrega el valor del pago pero yo quiero que en el InputBox ponerlo como positivo pero que el valor sea negativo como una resta eso es en el pago recibido y le pega a los gastos de almacenaje.

En resumen quiero restar las cantidades que estan en Gastos de almacenaje

vInputBox = InputBox("Teclee la cantidad a devolver en garantía", "SIC Préstamos Personales", 0)
If Not IsNumeric(vInputBox) Then
Me.Gastos_de_Almacenaje = 0
Else
Me.Gastos_de_Almacenaje = Val(vInputBox)
End If
Me.Pago_recibido = Me.Gastos_de_Almacenaje
Me.Seguro = 0
Me.Capital = 0
Me.Intereses = 0
Me.Bonificación_Intereses = 0
Me.Bonificación_Iva = 0
Me.Recargos = 0
Me.Gastos_Administrativos = 0
End If

Un ejemplo que he estado intendando hago una resta pero tampoco lo hace solo cuando mando un valor negativo me lo resta, pero asi no quiero realizarlo, si no que sea el valor positivo pero internamente me lo haga negativo

vInputBox = InputBox("Teclee la cantidad a devolver en garantía", "SIC Préstamos Personales", 0)
If Not IsNumeric(vInputBox) Then
Me.Gastos_de_Almacenaje = 0
Else
Me.Gastos_de_Almacenaje = Val(vInputBox)
End If

Me.Pago_recibido = Me.Gastos_de_Almacenaje - Me.Pago_recibido

Me.Seguro = 0
Me.Capital = 0
Me.Intereses = 0
Me.Bonificación_Intereses = 0
Me.Bonificación_Iva = 0
Me.Recargos = 0
Me.Gastos_Administrativos = 0
End If


Espero y me puedan ayudar, garcias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Valor Negativo

Publicado por igor (633 intervenciones) el 01/11/2008 20:28:04
Evidentemente no es lo mismo 5-3 = 2 que 3-5 = -2. Si como sospecho Me.Pago_recibo = 0 tendremos algo como 5-0 = 5. El valor siempre es positivo, sin embargo 0-5 = -5 siempre será negativo.

Decirte que con Me.Gastos_de_Almacenaje = -Val(vInputBox) debe ser suficiente.

PD: Este es el foro de programación, primaria está girando a la esquina.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar