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

[quitZAUMMM 18]

acho melhor postar na área correta do fórum hein

 

[]s