Mensaje enviado por "Alberto Vernieri" <AVernieri@juncalnet.com.ar>

Type TipoLong
  miLong as Long
End Type

Type TipoSngl
  miSingle as Single
End Type

Dim unLong as TipoLong, unSingle as TipoSngl

unLong.miLong = Val("&H" & strHexa)
LSet unSingle = unLong
vFloat = unSingle.miSingle

Y en vFloat te quedaría el valor de strHexa convertido a Single...

Saludos
Alberto


>>> "Francisco Bonora Gracia" <fbg@marvalsa.com> 19/02/01 05:39 >>>
Hola amigos:

Necesito saber como convertir un numero en hexadecimal a un número float.
Se que para decimales es con CDec( valor ), tambien he probado con CSng (valor), pero no me funciona.

Os pongo algunos ejemplos de lo que deberia dar:

42220134 debe dar 40.501175
C06FEBFE debe dar -3.748789
48052901 debe dar 436552.631250

OBVIAMENTE LOS NUMEROS DE LA IZQUIERDA ESTÁN EN HEXADECIMAL Y LOS DE LA DERECHA EN FLOAT.

Alguien puede ayudarme?

Muchas gracias

PACO