Programación General > Visual Basic 6.0 e inferiores

 Longitud De Una List Box

<< < (2/2)

ElNapster:
Es un placer .... cualquier duda estoy a las ordenes  ;)

 :comp:

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 cantidadPublic 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 IfEnd Function 'Trunca un número dadoPublic 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.

Navegación

[0] Índice de Mensajes

[*] Página Anterior