Problemstellung:
Für 32Bit und 64Bit Office Versionen
Wie kann ich einen String in Hex umwandeln?
Function StrToHex(S As Variant) As Variant ' ' einen String in hex umwandeln. ' sinnvoll bei ASCII sortierung in einer Abfrage. ' Dim Temp As String, i As Integer On Error Resume Next If VarType(S) <> 8 Then StrToHex = S Else Temp = "" For i = 1 To Len(S) Temp = Temp &Format(Hex(Asc(Mid(S, i, 1))), "00") Next i StrToHex = Temp End If End Function
Aufruf:
Dim x As String x = StrToHex("Test.")
Das Ergebnis von x wäre "546573742E"
Ähnliche Artikel
Weiterlesen...