Visual Basic - Como Restar Decimales

Life is soft - evento anual de software empresarial
   
Vista:

Como Restar Decimales

Publicado por Juan Antonio  (11 intervenciones) el 04/02/2009 05:10:36
Tengo un Programa de ventas " Dao con acces"
la funcion que quiero es al vender un producto se descuente el Precio Unitario y al sacar el reporte de existencia por valor me aparesca el valor real segun la cantidad ,
y mi problema es cuando vendo un producto Precio U. es de $ 3.50 me lo convierte en numero entero $ 4.00 y no se que hacer espero alguien me pueda ayudar
espero les sea util lo que escribi.

Dim recActualizarValor As DAO.Recordset
Dim i As Byte, sq As String, pro As String, val As Integer

For i = 1 To lv.ListItems.Count
pro = lv.ListItems(i)
val = FormatCurrency(CDbl(lv.ListItems.item(i).SubItems(8)))
sq = " UPDATE productos SET valor = valor - '" & val & "' WHERE nombre = '" & pro & "'"
Set recActualizarValor = Base_de_datos.OpenRecordset(sq, dbOpenDynamic, 0, dbOptimistic)
Next
Wrk.Rollback
recActualizarValor.Close
Set recActualizarValor = Nothing
End Sub
.............Gracias
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:Como Restar Decimales

Publicado por P3L30N2009 (701 intervenciones) el 04/02/2009 09:41:41
Normal!!
Estás declarando la variable 'val' como entero.
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

RE:Como Restar Decimales

Publicado por Lolazo (5 intervenciones) el 04/02/2009 17:02:44
Tal como te dice Peleon, estás usando una variable que NO ADMITE DECIMALES, para restarle decimales: es imposible así.
Yo solamente quiero darte un consejo: no nombres a tus variables igual que las funciones de VB (variable val, función Val( ) ).
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

RE:Como Restar Decimales

Publicado por Juan Antonio (11 intervenciones) el 05/02/2009 06:47:54
gracias lolazo y a Peleon por Sus consejos..
me podian aconsejar para solucionar ese problema ....
por que ya intente con lo que se pero no he podido gracias por la atencion.....
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

RE:Gracias

Publicado por juan antonio (11 intervenciones) el 05/02/2009 08:31:21
gracias ya pude solucionar el problema estaba enfrente de mis ojos y no me habia dado cuenta
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