Visual Basic.NET - Ayuda con Decimales

   
Vista:

Ayuda con Decimales

Publicado por Sergio Montoya (18 intervenciones) el 31/07/2012 16:38:02
Buen dia ,
Hoy tengo el siguiente Problema, Resulta que tengo una variable que me arroja un dato por ejm 1.5, lo que necesito es que la variable me quede en 1, eliminar los decimales pero que no me redondee la cifra, ya he intentado lo siguiente

Dim aux As Decimal = 0
' aux = he
' aux = Format(he, "#0")
' he = Val(Format(he, "0"))
'aux = Int(he)-he

Pero todos los metodos me redondean la cifra

Ayuda Por Favor!!!
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

Ayuda con Decimales

Publicado por Fernando Abuin leonabuin@hotmail.com (2 intervenciones) el 31/07/2012 16:54:35
Sergio:
Usa lo siguiente,

Dim aux As Decimal = 0

aux =Math.Truncate (he ) te devuelve la parte entera

Saludos
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

Ayuda con Decimales

Publicado por deneg_nhj deneg_nhj@yahoo.com (1 intervención) el 31/07/2012 16:58:19
La funcion INT, funciona para numero positivos.


Espero que te sirva lo siguiente

1
2
3
4
5
6
7
8
9
10
11
Function fObtEnteros(sCadena As String) As Long
Dim nPosPunto As Byte
 
    nPosPunto = InStr(1, sCadena, ".")
    If nPosPunto > 0 Then
        fObtEnteros = Mid(sCadena, 1, nPosPunto - 1)
    Else
        fObtEnteros = sCadena
    End If
 
End Function



Saludos

www.sgh.com.mx
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

Ayuda con Decimales

Publicado por Sergio Montoya (18 intervenciones) el 31/07/2012 17:31:50
Muchas gracias a los 2! Problema Resuelto
use el primer metodo por reduccion de lineas :D
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