Вопрос по VBA в Excel

[dimon305]

VBA в Excel нужно зделать программу которая переводит целые и дробные чила в разных системах счисления(2,10,16). Как самому написать прогу?Помогите из заданиям! Буду благодарен)

[IgorGO]

' из 10-ричной системы в какую-то n-ричную
Function D2xz(d As Long, n As Long) As String
  Dim r As Integer, s As String
  r = Int(Log(d + 0.001) / Log(n))  'Для 64, 128 перевод в 2-ичную систему дало неожиданный результат: Log(128)/Log(2) = 7 - это
  'правильно, а Int(Log(128)/Log(2)) уже равно 6 и в старшем разряде получается "2"!!!, пришлось добавить нелогичный 0.001
  Do
    s = s & Int(d / n ^ r)
    d = d - Int(d / n ^ r) * n ^ r
    r = r - 1
  Loop Until r = -1
  D2xz = s
End Function

' и обратно
Function xz2D(s As String, n As Long) As Long
  Dim r As Integer, d As Long
  For r = 0 To Len(s) - 1
    d = d + Val(Mid(s, Len(s) - r, 1)) * n ^ r
  Next
  xz2D = d
End Function

Вот Вам две функции.

[dimon305]

Очень благодарен! Спс! А млжеш если не сложно сказать где ето уводить все)

[IgorGO]

вводить непосредственно в модуль проекта.

Успехов в учебе и огромного счастья в личной жизни!

[dimon305]

Еще вопрос где VBA в 2007? не могу найти) в 2003 знаю где а тут не могу найти)))

[IgorGO]

Alt+F11 ...

[dimon305]

шото я туплю) Мож написать пожалуста алгоритм ввода кода и как запускать?

[IgorGO]

С Вами все нормально. Это я протупил, что ввязался в переписку

[Aent]

IgorGO, приведённая функция D2xz очевидно не будет работать для систем с основанием > 10 так как просто ничего не знает о добавочных цифрах

[dimon305]

Aent если вам не сложно можете представить свой вариант етого задания?