• Domingo 22 de Diciembre de 2024, 03:02

Autor Tema:  Formato Decimal  (Leído 996 veces)

acastellanosb

  • Nuevo Miembro
  • *
  • Mensajes: 5
    • Ver Perfil
Formato Decimal
« en: Martes 8 de Junio de 2004, 09:14 »
0
Estoy realizando una aplicacion que lee la medicion realizada por un instrumento de datos, esta lectura la realiza en forma exponencial Ej.
2.354 Exp x, una vez que pase esta lectura a un ctrl textbox o label deseo pasarla a otra forma de lectura sin exponencial y que pueda recorrer el punto decimal para poder observar la lectura en enteros Ej.  23.54.

Gracias por su ayuda y espero me haya expresado correctamente para lo que pretendo

ROBER.29

  • Miembro MUY activo
  • ***
  • Mensajes: 421
    • Ver Perfil
    • http://www.contrapixel.com
Re: Formato Decimal
« Respuesta #1 en: Martes 8 de Junio de 2004, 09:23 »
0
Hola,

Prueba a intentar convertir el valor que te devuelve con la función CDbl.

No se si te funcionará pero pruebalo.

Un saludo.
Roberto García
Moderador de Visual Basic.
Gerente
[contra]PixeL S.L.
Valladolid

Jose Arriagada

  • Miembro MUY activo
  • ***
  • Mensajes: 373
    • Ver Perfil
Re: Formato Decimal
« Respuesta #2 en: Martes 8 de Junio de 2004, 15:26 »
0
Prueba el siguiente procedimiento

sLectura=ucase(trim(text1.text))
largo=len(sLectura)
pos=instr(sLectura,"EXP")
numero1=cdbl(mid(sLectura,1,pos-1))
numero2=cdbl(mid(sLectura,pos+4,largo-pos+4))
'Ahora tienes ambos valores de tu lectura, solo falta
'transformarlos en un solo valor, de acuerdo a tu base.

acastellanosb

  • Nuevo Miembro
  • *
  • Mensajes: 5
    • Ver Perfil
Re: Formato Decimal
« Respuesta #3 en: Miércoles 9 de Junio de 2004, 04:44 »
0
Gracias por su ayuda