Villy Jensen <vje@get2net.dk> skrev i news:lhhZ6.21$S42.3361@news.get2net.dk
> Æhem...
> Hvad er den modsatte funktion af Hex(arg) ?
>
> Jeg har ikke problemer med at konvertere det med instr() og eksponenter osv,
> men er der en funktion jeg har overset ?
> --
> Hyggelig hilsen
> Vagn
>
>
> Hvad med
>
> Tekst$=HEX$(66)
> Tal%=&H48
>
> Print Tekst$, Tal%
>
> ??????????
>
> (og jeg kunne ønske mig en binær funktion såsom:
> Tal2%=&B1100010
> - men den findes kun i PowerBasic)
Public Function Dec2Bin(ByVal nDec As Integer) As String
Dim i As Integer
Dim j As Integer
Dim sHex As String
Const HexChar As String = "0123456789ABCDEF"
sHex = Hex(nDec)
For i = 1 To Len(sHex)
nDec = InStr(1, HexChar, Mid(sHex, i, 1)) - 1
For j = 3 To 0 Step -1
Dec2Bin = Dec2Bin & nDec \ 2 ^ j
nDec = nDec Mod 2 ^ j
Next j
Next i
i = InStr(1, Dec2Bin, "1")
If i <> 0 Then Dec2Bin = Mid(Dec2Bin, i)
End Function
--
Snutten
No of SETI units returned: 5174
Processing time: 10 years, 85 days, 15 hours.
(Total hours: 89655)
www.setiathome.ssl.berkeley.edu