I2Hexa

not rated

Submitted by vjeux2004-05-31Conversion0 downloads

Convert Integer To Hexadecimal String

Source

function I2Hexa takes integer i returns string

    local string Hexa_Liste = "0123456789ABCDEF"
    local integer Conversion_Wait1
    local integer Conversion_Wait2
    local string Conversion_Hexa

    set Conversion_Wait1 = ( i / 16 )
    set Conversion_Wait2 = ( i - ( 16 * Conversion_Wait1 ) )
    set Conversion_Hexa = ( SubStringBJ(Hexa_Liste, ( Conversion_Wait1 + 1 ), ( Conversion_Wait1 + 1 )) + SubStringBJ(Hexa_Liste, ( Conversion_Wait2 + 1 ), ( Conversion_Wait2 + 1 )) )

    return Conversion_Hexa

endfunction

Comments

No comments.