Visual Basic - SEPARAR NUMERO PARTE ENTERO Y DECIMAL

Life is soft - evento anual de software empresarial
 
Vista:

SEPARAR NUMERO PARTE ENTERO Y DECIMAL

Publicado por Dario (4 intervenciones) el 27/12/2006 21:35:40
HOLA GENTE NECESITO AYUDA....
NECESITO SEPARAR UN NUMERO EN PARTE ENTERA Y DECIMAL EJEMPLO

SUPONGAMOS QUE TENGO EL NUMERO 136.45

ENT 136
DEC 45

SI ALGUIEN ME PUEDE AYUDAR DESDE YA MUCHAS 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:SEPARAR NUMERO PARTE ENTERO Y DECIMAL

Publicado por ivan (1039 intervenciones) el 27/12/2006 21:49:27
Revisa la función INT, para obtener la parte entera de un número, para obtener la parte decimal simplemente resta el numero completo menos el número 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:SEPARAR NUMERO PARTE ENTERO Y DECIMAL

Publicado por ivan (1039 intervenciones) el 27/12/2006 22:22:18
Vaya que son cómodos...!!!

1
2
3
4
5
6
Dim ValorDecimal As Double
Dim ParteEntera as Long
Dim ParteDecimal as Double
ValorDecimal = 10.567890
ParteEntera = Int(ValorDecimal)
ParteDecimal = ValorDecimal - ParteEntera

La revisada se las dejo a ustedes.... pruébenlo y me dicen, saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil

RE:SEPARAR NUMERO PARTE ENTERO Y DECIMAL

Publicado por Edwin (303 intervenciones) el 27/12/2006 23:22:02
Hola.

Eso es lo primero que se me ocurrio, pero no me sale muy bien al extraer los decimales, solo faltaria redondearlos.

Hize otro:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim a, b, j, x As Double
Dim c, d, e As String
c = ""
d = ""
e = ""
For i = 1 To Len(Text1)
c = Mid(Text1, i, 1)
If x = 0 Then
If (c <> ".") Then
d = d & c
Else
j = i
x = 1
End If
End If
Next
For i = j To Len(Text1)
c = Mid(Text1, i, 1)
If (c <> ".") Then
e = e & c
End If
Next
MsgBox d
MsgBox e

uhmmmmmm, sale no?
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

MAS SENSILLO TODAVIA

Publicado por Kike (2 intervenciones) el 28/12/2006 10:41:00
1
2
3
4
Dim a() As String
    a = Split(Text1, ".")
    MsgBox a(0)
    MsgBox a(1)

SI EL SEPARADOR DESIMAL ES COMA, LO CAMBIAS
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:SEPARAR NUMERO PARTE ENTERO Y DECIMAL

Publicado por juan (1 intervención) el 04/05/2017 08:47:51
excelente aporte good
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:SEPARAR NUMERO PARTE ENTERO Y DECIMAL

Publicado por chango (1 intervención) el 11/02/2019 13:50:59
probaron con -10.567890 deberia dar 10 y .567890
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:SEPARAR NUMERO PARTE ENTERO Y DECIMAL

Publicado por MoRFeO (3 intervenciones) el 06/06/2019 21:34:30
Un lujo ivan, simple y concreto. Magia pura
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