Hex Function
āĻāĻāĻāĻŋ āĻ¸āĻāĻā§āĻ¯āĻžāĻ° āĻšā§āĻā§āĻ¸āĻžāĻĄā§āĻ¸āĻŋāĻŽāĻžāĻ˛ āĻŽāĻžāĻ¨ āĻ¨āĻŋāĻ°ā§āĻĻā§āĻļāĻ āĻ¸ā§āĻā§āĻ°āĻŋāĻ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤
āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸:
Hex (Number)
āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻŽāĻžāĻ¨:
āĻ¸ā§āĻā§āĻ°āĻŋāĻ
āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°:
āĻ¸āĻāĻā§āĻ¯āĻž: āĻ¯ā§āĻā§āĻ¨ā§ āĻ¸āĻāĻā§āĻ¯āĻžāĻ¸ā§āĻāĻ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ āĻ¯āĻž āĻāĻĒāĻ¨āĻŋ āĻšā§āĻā§āĻ¸āĻžāĻĄā§āĻ¸āĻŋāĻŽāĻžāĻ˛ āĻ¸āĻāĻā§āĻ¯āĻžā§ āĻ°ā§āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻāĻ°āĻ¤ā§ āĻāĻžāĻ¨āĨ¤
āĻāĻĻāĻžāĻšāĻ°āĻŖ:
Sub ExampleHex
REM $[officename] Calc āĻ BasicFormulas āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§
Dim a2, b2, c2 As String
a2 = "&H3E8"
b2 = Hex2Int(a2)
MsgBox b2
c2 = Int2Hex(b2)
MsgBox c2
End Sub
Function Hex2Int( sHex As String ) As Long
REM āĻšā§āĻā§āĻ¸āĻžāĻĄā§āĻ¸āĻŋāĻŽāĻžāĻ˛ āĻŽāĻžāĻ¨ āĻĨā§āĻā§ āĻāĻāĻāĻŋ āĻĻā§āĻ°ā§āĻ āĻāĻ¨āĻāĻŋāĻāĻžāĻ° āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤
Hex2Int = clng( sHex )
End Function
Function Int2Hex( iLong As Long) As String
REM āĻāĻ¨āĻāĻŋāĻāĻžāĻ°ā§ āĻšā§āĻā§āĻ¸āĻžāĻĄā§āĻ¸āĻŋāĻŽāĻžāĻ˛ āĻŽāĻžāĻ¨ āĻāĻŖāĻ¨āĻž āĻāĻ°ā§āĨ¤
Int2Hex = "&H" & Hex( iLong )
End Function