Visual Basic - numeros enteros y decimales,URGENTE!!!

Life is soft - evento anual de software empresarial
 
Vista:

numeros enteros y decimales,URGENTE!!!

Publicado por bxi (1 intervención) el 19/10/2004 01:16:28
como hago para saber si un numero introducido en una caja de texto es entero o decimal, sin recorrerlo caracter a caracter, solo matematicamente
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:numeros enteros y decimales,URGENTE!!!

Publicado por Ariel (94 intervenciones) el 19/10/2004 02:28:09
Hola
espero q esto te sirva.

If (InStr(1, CDbl(Text1.Text), ".") >= 1) Or (InStr(1, CDbl(Text1.Text), ",") >= 1) Then
MsgBox "el numero es decimal"
Else
MsgBox "el numero es entero"
End If

saludos

Ariel...
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
Imágen de perfil de WILMER
Val: 8
Ha disminuido su posición en 15 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:numeros enteros y decimales,URGENTE!!!

Publicado por WILMER (5 intervenciones) el 05/05/2020 06:00:50
buenisimo hermano me sacastes de apuros
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:numeros enteros y decimales,URGENTE!!!

Publicado por Ruri (6 intervenciones) el 19/10/2004 17:12:00
Podés utilizar Hex$ para probocar un error
On error resume next
dim h as string
h=Hex$(txtHexa.text)
if err.number<>0 then
msgbox "No es hehadecimal" & vbcrlf & "El número introducido es: " & val(txtHexa.text)

Else
msgbox "Es hehadecimal" & vbcrlf & "El número introducido es: " & txtHexa.text
End if

Saludos Ruri
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Perdón me equivoqué leí Hexadecimal

Publicado por Ruri (6 intervenciones) el 19/10/2004 17:16:15
Podés utilizar la cadena para ubicar el punto o la coma
if (txtNumero.Text like "*.*") then
MsgBox "Es decimal"
Elseif (txtNumero.Text like "*,*") then
MsgBox "Es decimal"
Else
MsgBox "Es entero"
End if

Otra forma es comparar el número con su parte entera:
dim n as single
n=VAl(txtNumero.text)
if n=int(n) then
MsgBox "Es decimal"
else
MsgBox "Es entero"
end if

Saludos Ruri
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar