Hallo,
ich finde über die Suchfunktion einfach nix brauchbares wie ich ganz simple in VB6 dezimal in Hex und Hex in Dez umwandel.
kann mir jemand helfen ?
mfg joe
Hallo Joe,
Private Sub Command1\_Click()
a = 32
b = Hex$(a)
c = Val("&h" + b)
End Sub
Gruß, Rainer
DEC - BIN; BIN - DEC
Hallo Joe,
zur Vervollständigung auch gleich noch die Umwandlung in binäre Schreibweise:
'Die Zahl darf maximal neunstellig sein
Option Explicit
Public Function Bin(ByVal Zahl As Long) As String
Dim i As Integer
If Zahl = 0 Then
Bin = ""
Else
For i = 0 To (Int(Log(Zahl) / Log(2)))
If (Zahl And (2 ^ i)) \> 0 Then
Bin = "1" & Bin
Else
Bin = "0" & Bin
End If
Next
End If
End Function
Public Function Dec(ByVal Bin As String) As Long
Dim i As Integer
For i = 1 To Len(Bin)
Dec = Dec + (Val(Mid(Bin, i, 1)) \* 2 ^ (Len(Bin) - i))
Next
End Function
Gruß, Rainer
Joa, genau so hatte ich mir das vorgestellt.
Danke.