Hex hesaplama

[Ayhan Ercan]

arkadaşlar, windowsun hesap makınasında görünüm menusunden standart ve bilimsel ayrı iki görünüm var. bilimsel görünüme geçtiğinizde hex ondalık gibi fonksiyonlar görünmektedir. orada hex degerinde yazılan bir verinin ondalık degerine dönüşmekte. ancak hesap makınası 16 haneden fazla hesap yapmıyor. bana 32 hatta 64 haneye kadar hex değerinini ondalık değerine dönüştürecek bir metot lazım. acaba bu fonksiyonla mümkünmü? veya makro ile???

 

[Recep İpek]

Aşağıdaki fonksiyon işinizi yarar mı?

Public Function KeyToHex(ByVal sKey As String) As String
    Dim i As Long, CodedKey As String
    CodedKey = ""
    For i = 1 To Len(sKey)
    CodedKey = CodedKey & Right("0" & Hex(Asc(Mid(sKey, i, 1))), 2)
    Next i
    KeyToHex = CodedKey
End Function