Hex Function

ཧེགསི (ཨང་།)

Sub ExampleHex

ཨར་ཨི་ཨེམ་གྱིས་LibreOffice སི་ཨེ་ཨེལ་སི་ནང་གཞི་རིམ་མན་ངག་ཚུ་ལག་ལེན་འཐབ་ཨིན།

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

རིམ་གྱིས་ཧེག་ཟ་བཅུ་ཚག་གནས་གོང་ལས་ཧྲིལ་ཨང་རིངམ་སླར་ལོགཔ་ཨིན།

    Hex2Int = clng( sHex )

End Function

Function Int2Hex( iLong As Long) As String

རིམ་གྱིས་ཧེག་ཟ་བཅུ་ཚག་གནས་གོང་ཧྲིལ་ཨང་ནང་རྩིས་སྟོནམ་ཨིན།

    Int2Hex = "&H" & Hex( iLong )

End Function