Keng?
Сообщений: 4
• Страница 1 из 1
- IlyaProinVB
- Продвинутый пользователь
- Сообщения: 103
- Зарегистрирован: 16.01.2003 (Чт) 0:30
Keng?
IlyaProinVB » 19.04.2004 (Пн) 1:16
NFI
Последний раз редактировалось IlyaProinVB 14.05.2007 (Пн) 1:00, всего редактировалось 1 раз.
- alibek
- Большой Человек
- Сообщения: 14205
- Зарегистрирован: 19.04.2002 (Пт) 11:40
- Откуда: Russia
alibek » 19.04.2004 (Пн) 9:08
Вау! Это супер-программист из Венесуэллы? 
- Код: Выделить всё
Function Bin2Dec(ByVal BinValue As String)
Dim ret As Long, I As Long, P As Long
For I = 1 To Len(BinValue)
P = Len(BinValue) - I
If Mid$(BinValue, I, 1) = "1" Then ret = ret + 2^P
Next I
Bin2Dec = ret
End Function
Lasciate ogni speranza, voi ch'entrate.
- IlyaProinVB
- Продвинутый пользователь
- Сообщения: 103
- Зарегистрирован: 16.01.2003 (Чт) 0:30
IlyaProinVB » 24.04.2004 (Сб) 1:39
NFI
Последний раз редактировалось IlyaProinVB 14.05.2007 (Пн) 1:01, всего редактировалось 1 раз.
- Amed
- Алфизик
- Сообщения: 5346
- Зарегистрирован: 09.03.2003 (Вс) 9:26
Amed » 24.04.2004 (Сб) 4:09
- Код: Выделить всё
Private Function dec2bin(mynum As Variant) As String
Dim loopcounter As Integer
If mynum >= 2 ^ 31 Then
dec2bin = "Too big"
Exit Function
End If
Do
If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter Then
dec2bin = "1" & dec2bin
Else
dec2bin = "0" & dec2bin
End If
loopcounter = loopcounter + 1
Loop Until 2 ^ loopcounter > mynum
End Function
Сообщений: 4
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 68