Исходники для длинной арифметики на 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

Оцени полезность:

12   голосов , оценка 4.167 из 5