Convert Hexadecimal Number To Decimal Number

Create Funtion gf_Hex2Dec

//[powerscript]

/**********************************************/

/* public long gf_Hex2Dec ( string as_Hex ) */

/**********************************************/

Constant String ls_HexSet = "0123456789ABCDEF"

String ls_Hex, ls_Bit

Long ll_Div, ll_RetVal = 0

Integer li_C, li_Len, li_Pos

Boolean lb_Error = False

ls_Hex = Upper( as_Hex )

If Not IsNull( ls_Hex ) And ls_Hex <> "" Then

li_Len = Len( ls_Hex )

For li_C = 1 To li_Len

ls_Bit = Mid( ls_Hex, li_C, 1 )

li_Pos = Pos( ls_HexSet, ls_Bit )

If li_Pos = 0 Then

lb_Error = True

Else

ll_RetVal += ( ( li_Pos - 1 ) * ( 16 ^ ( li_Len - li_C ) ) )

End If

If lb_Error Then ll_RetVal = 0

End If

Return ll_RetVal

Good Luck!

PowerBuilder Tips & Tricks

November 21, 2020

Was this article helpful?