Excel função

[Kairo Gabriel 0]

Function DecemHex(x As Double) As String

Dim Result, i, Temp As Integer

Result = Hex(Int(x)) & "."

 

x = x - Int(x)

 

For i = 1 To 16

 

x = x * 16

 

Result = Result & Hex(x)

 

x = x - Int(x)

 

Next i

 

DecemHex = Result

 

End Function

 

 

então funciona ela funciona so q os resultados estão dando tipo o valor em hexadecimal e um monte de zero

obrigado a todos

a eu sei q tem essa função no Excel mais to tentando fazer esta ai se alguém saber como da pra ver os códigos das funções do Excel agradeço pois posso tirar uma base de la vlw pessoal

[KhaosDoctor 242]

Estão dando valores Hexadecimais porque você usou diversas conversões para Hex.

 

Se você não quer um valor Hexa, e sim outro tipo de dados, digamos, Integer, ao invés de utilizar Hex(int(x)) use apenas int(x)