long e;
e= 2147483648;
Dim e as long
e=2147483648
Хакер писал(а):Мне кажется - я понял откуда вывод.
Оттуда, что
- Код: Выделить всё
long e;
e= 2147483648;
у автора работает
Так... Вроде бы понятно.
Вопрос: Как перевести число из шестнадцатеричной в десятичную систему?
А то мне как раз надо дофига чисел переводить в десятичную, написал функцию, а оно мне Overflow выдает.
Private Function Hex2Dec(ByVal HexNum As String) As Long
Dim i As Integer
Dim sTmp As String, iTmp As Integer
For i = 1 To Len(HexNum)
sTmp = Mid(HexNum, Len(HexNum) - i + 1, 1)
Select Case LCase(sTmp)
Case "a"
iTmp = 10
Case "b"
iTmp = 11
Case "c"
iTmp = 12
Case "d"
iTmp = 13
Case "e"
iTmp = 14
Case "f"
iTmp = 15
Case Else
iTmp = Val(sTmp)
End Select
Hex2Dec = Hex2Dec + iTmp * 16 ^ (i - 1)
Next
End Function
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 62