![]() |
binary inverse
To make my life a little easier is there any way to get a binary number to inverse. Example. 1110 in a1 so then b1 would become 0001. -- boardmaker ------------------------------------------------------------------------ boardmaker's Profile: http://www.excelforum.com/member.php...o&userid=34854 View this thread: http://www.excelforum.com/showthread...hreadid=551647 |
binary inverse
Public Function binverse(wCell As String) As String
Dim x, y As Integer Dim nResult As String nResult = vbNullString x = Len(wCell) For y = 1 To x If Mid(wCell, y, 1) = "1" Then nResult = nResult & "0" Else nResult = nResult & "1" End If Next binverse = nResult End Function "boardmaker" schreef in bericht ... To make my life a little easier is there any way to get a binary number to inverse. Example. 1110 in a1 so then b1 would become 0001. -- boardmaker ------------------------------------------------------------------------ boardmaker's Profile: http://www.excelforum.com/member.php...o&userid=34854 View this thread: http://www.excelforum.com/showthread...hreadid=551647 |
binary inverse
"boardmaker" wrote
in message ... To make my life a little easier is there any way to get a binary number to inverse. Example. 1110 in a1 so then b1 would become 0001. One way would be =DEC2BIN(2^(LEN(A1))-1-BIN2DEC(A1),LEN(A1)) -- David Biddulph |
binary inverse
boardmaker wrote:
To make my life a little easier is there any way to get a binary number to inverse. Example. 1110 in a1 so then b1 would become 0001. I presume you mean one's complement, not inverse. And 0001 is the complement of 1110 only in a 4-bit world. The one's complement of a 4-bit binary number (in A1) can be computed by: =dec2bin(16 - bin2dec(A1) - 1, 4) |
binary inverse
Here's one way =SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,1,2),0,1),2,0 ) -- daddylonglegs ------------------------------------------------------------------------ daddylonglegs's Profile: http://www.excelforum.com/member.php...o&userid=30486 View this thread: http://www.excelforum.com/showthread...hreadid=551647 |
All times are GMT +1. The time now is 04:46 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com