Исходники для длинной арифметики на VBA
Формулировка задачи:
Всем привет!
По просьбе
Аксима
, выкладываю исходники и наработки для длинной арифметики на VBA. Выкладываю самый быстрый "на сейчас" у меня алгоритм на VBA через массив (в прошлых темах писал про алгоритм через класс, пользовательский тип, в итоге победил массив). Возможно пригодится еще кому-то. Для тренировки и поднятия level-а по VBA вполне подходит, для серьезных расчетов - написал библу на С++, в т.ч. для расчетов в VBA. Файл, пример работы алгоритмов - прилагаю.Решение задачи: «Исходники для длинной арифметики на VBA»
textual
Листинг программы
Sub Test() Dim i As Long, j as long, x() As LongPtr, y() As LongPtr, z() As LongPtr, t As Double, avg as double x = StrToL(String(10, "1")) y = StrToL(String(10, "2")) avg = 0 For i = 1 To 1000 t = Timer For j = 1 To 1000000 LSumL x, y, True Next avg = avg + Timer - t Next Debug.Print Format(avg / 1000, "0.00") End Sub