VBA перевод из десятичной системы счисления и наоборот

[DiemonStar]

Теперь нужна функция вычитания двух двоичных чисел)

Function Substract(ch1 As String, ch2 As String) As String
  I = Len(ch1)
  J = Len(ch2)
  Zaym = 0
  Res = ""
  While (I > 0) Or (J > 0)
    If I > 0 Then
      A = CInt(Mid(ch1, I, 1))
    Else
      A = 0
    End If
    If J > 0 Then
      B = CInt(Mid(ch2, J, 1))
    Else
      B = 0
    End If
    C = A - B - Zaym
    Select Case C
      Case -1
        Res = "1" & Res
        Zaym = 1
      Case -2
        Res = "0" & Res
        Zaym = 1
      Case Else
        Res = C & Res
        Zaym = 0
    End Select
    I = I - 1
    J = J - 1
  Wend
End Function

только функция не учитывает отрицательный результат, поскольку ни слова не было сказано о том, как это все будет представлено)

[Akika]

Благодарствую, DiemonStar! ))

[Akika]

Только что была на консультации у преподавателя которому сдаю, собственно. Итог, изначально не правильно поняла -____-
Огромное спасибо откликнувшимся! За поддержку)))
Кто может помочь с реализацией с помощью Xor? И вообще с этой программой. Согласна на любую помощь, даже за вознаграждение.
UIN: 458319296

[DiemonStar]

Function XOR_Bin(ch1 As String, ch2 As String) As String
  I = Len(ch1)
  J = Len(ch2)
  Res = ""
  While (I > 0) Or (J > 0)
    If I > 0 Then
      A = CInt(Mid(ch1, I, 1))
    Else
      A = 0
    End If
    If J > 0 Then
      B = CInt(Mid(ch2, J, 1))
    Else
      B = 0
    End If
    C = A Xor B
    Res = C & Res
    I = I - 1
    J = J - 1
  Wend
  XOR_Bin = Res
End Function

делаем по аналогии.

Function XOR_Bin(ch1 As String, ch2 As String) As String
  I = Len(ch1)
  J = Len(ch2)
  Res = ""
  While (I > 0) And (J > 0)
    If I > 0 Then
      A = CInt(Mid(ch1, I, 1))
    Else
      A = 0
    End If
    If J > 0 Then
      B = CInt(Mid(ch2, J, 1))
    Else
      B = 0
    End If
    C = A Xor B
    Res = C & Res
    I = I - 1
    J = J - 1
  Wend
  XOR_Bin = Left(ch1, I) & Left(ch2,J) & Res
End Function

или так, чтобы меньше цикл перебирать

[Akika]

DiemonStar, ВЫ МОЙ ГЕРОЙ!)
Функции работают, только не совсем понимаю, верен ли результат...
Не могли бы посмотреть весь документ? Только не знаю как, он сюда грузиться не хочет..

[Akika]

Вот,
http://rusfolder.com/34729198

[DiemonStar]

Если только завтра - сегодня уже не будет времени.

[Akika]

А завтра в какое время? Просто завтра сдавать -____-

[Akika]

Дорогие форумчане! У кого есть минут 15 свободного времени, проверьте окончательный вариант программы.

http://www.fayloobmennik.net/2557871

она не работает на дешифрование.. не пойму в чем беда..

[Akika]

Сдал! Спасибо всем! Вот окончательный вариант функции, вдруг кому пригодиться ^^

Function XOR_Bin(ch1 As String, ch2 As String) As String
  i = Len(ch1)
  j = Len(ch2)
  res = ""
  While (i > 0) Or (j > 0)
    If i > 0 Then
      a = CInt(Mid(ch1, i, 1))
    Else
      a = 0
    End If
    If j > 0 Then
      b = CInt(Mid(ch2, j, 1))
    Else
      b = 0
    End If
    C = a Xor b
    res = res + Trim(Str(C))
    i = i - 1
    j = j - 1
  Wend
  res = StrReverse(res)
  XOR_Bin = res
End Function