Autor Tema: Longitud De Una List Box (Leído 1915 veces)

Nalah · « **en:** Jueves 1 de Marzo de 2007, 15:57 »

wenas de nuevo. aqui estoy con otra dudita. tengo muchos datos en una list box. son cantidades en euros. por tanto tienen q tener decimales. pero solo quiero q tengan dos decimales todos los datos. son datos calculados asi q si la multiplicacion da 25,4457 pues me muestra todo cuando yo solo quiero 25,44

Espero haberme explicado

un besazo

ElNapster · « **Respuesta #1 en:** Jueves 1 de Marzo de 2007, 16:10 »

Si se alimenta de una tabla de una bd , haz tu consulta y que el te lo redonde de una vez asi no tocas nada de codigo vb sino de la bd ..... es mas aconsejable...

Nalah · « **Respuesta #2 en:** Jueves 1 de Marzo de 2007, 16:16 »

el problema es q no lo cojo de una base de datos. tengo varias list box. en una, la base de la factura, en la otra el iva y en la ultima me calcula el total. al calcular eliva por la base me dan muchso decimales.

ElNapster · « **Respuesta #3 en:** Jueves 1 de Marzo de 2007, 16:17 »

Ahora bien si los calculos los haces en tu aplicacion haz lo siguiente

Código: Text

Dim a, b, c As Double
c = 2 * 2.895964
c = 2 * 2.895964
List1.AddItem (Round(c, 2))
 

algo por el estilo

Suerte....

Nalah · « **Respuesta #4 en:** Jueves 1 de Marzo de 2007, 16:57 »

Muchisimas gracias. Funcionaaaaaa. Gracias

ElNapster · « **Respuesta #5 en:** Jueves 1 de Marzo de 2007, 17:13 »

Es un placer .... cualquier duda estoy a las ordenes

mamex

Que tal, mira, esa función (Round) sirve para redondear, yo hice una para truncar, recuerda que redondar y truncar NO es lo mismo. Aqui te pongo el código por si lo necesitas.

Código: Text

 
'Saca la cantidad de decimales que le digas a una cantidad
Public Function Decimales(ByVal num As Double) As String
    Dim txt As String, pos As Integer
    txt = num
    pos = InStr(1, num, &#34;.&#34;, vbTextCompare)
    If pos = 0 Then _
        pos = InStr(1, num, &#34;,&#34;, vbTextCompare)
    If pos &#60;&#62; 0 Then
        Decimales = Right(txt, Len(txt) - pos)
    Else
        Decimales = &#34;0&#34;
    End If
End Function
 
'Trunca un número dado
Public Function Truncar(ByVal num As Double, ByVal dig As Integer) As String
    Truncar = Int(num) & &#34;.&#34; & Left(Decimales(num), dig)
End Function
 
 

Y para usar la función puedes usarla de la siguiente manera:

Código: Text

 
msgbox truncar(25.4457,2)

Mucho ojo, el separador de decimales que usamos en México es " . " por lo cual mi función trabaja para ello.

SoloCodigo

Autor Tema: Longitud De Una List Box (Leído 1915 veces)

Nalah

Longitud De Una List Box

ElNapster

Re: Longitud De Una List Box

Nalah

Re: Longitud De Una List Box

ElNapster

Re: Longitud De Una List Box

Nalah

Re: Longitud De Una List Box

ElNapster

Re: Longitud De Una List Box

mamex

Re: Longitud De Una List Box