Private Function DeHex(max As Integer,Hexed As String) As Long
Dim i As Integer
For i=0 To max
If hex(i)=Hexed Then
DeHex=i
exit function
end if
next
end function
GAGArin писал(а):Готов согласиться. Такого забивания гвоздей микроскопами я не видел ни разу В цитаты. Срочно.
Сейчас этот форум просматривают: AhrefsBot и гости: 133