Function Multiplier$(x$, y$)
Dim a$(), i%, retenue, n%, j%, z, maxi%
ReDim a(1 To Len(y))
'---multiplications---
For i = UBound(a) To 1 Step -1
retenue = 0
n = n + 1
For j = Len(x) To 1 Step -1
z = Mid(x, j, 1) * Mid(y, i, 1) + retenue
retenue = Int(z / 10)
a(n) = IIf(j = 1 And retenue, retenue, "") & Right(z, 1) & a(n)
Next j
a(n) = a(n) & String(n - 1, "0") 'ajout de zéros à droite
If Len(a(n)) > maxi Then maxi = Len(a(n))
Next i
retenue = 0
'---ajout de zéros à gauche pour avoir la même longueur---
For j = 1 To n
a(j) = String(maxi - Len(a(j)), "0") & a(j)
Next
'---additions et résultat---
For i = maxi To 1 Step -1
z = retenue
For j = 1 To n
z = z + Val(Mid(a(j), i, 1))
Next j
retenue = Int(z / 10)
Multiplier = IIf(i = 1 And retenue, retenue, "") & Right(z, 1) & Multiplier
Next i
End Function
Function Additionner$(x$, y$)
Dim maxi%, i%, z As Byte, retenue As Byte
maxi = Application.Max(Len(x), Len(y))
'---ajout de zéros à gauche pour avoir la même longueur---
x = String(maxi - Len(x), "0") & x
y = String(maxi - Len(y), "0") & y
'---additions et résultat---
For i = maxi To 1 Step -1
z = retenue + Val(Mid(x, i, 1)) + Val(Mid(y, i, 1))
retenue = Int(z / 10)
Additionner = IIf(i = 1 And retenue, retenue, "") & Right(z, 1) & Additionner
Next
End FunctionFunction MAddition$(matrice)
Dim e
matrice = matrice
If Not IsArray(matrice) Then MAddition = matrice: Exit Function
For Each e In matrice
MAddition = Additionner(CStr(e), MAddition)
Next
End Function
Function AdditionAvecSigne$(x$, y$)
Dim negx As Boolean, negy As Boolean, neg As Boolean
Dim maxi%, t$, i%, z%, retenue As Byte
negx = Left(x, 1) = "-": negy = Left(y, 1) = "-"
x = Mid(x, 1 - negx): y = Mid(y, 1 - negy)
If negx And negy Then
AdditionAvecSigne = "-" & Additionner(x, y)
ElseIf Not negx And Not negy Then
AdditionAvecSigne = Additionner(x, y)
Else
maxi = Application.Max(Len(x), Len(y))
'---ajout de zéros à gauche pour avoir la même longueur---
x = String(maxi - Len(x), "0") & x
y = String(maxi - Len(y), "0") & y
neg = negx And x > y Or negy And y > x 'signe final
If x < y Then t = x: x = y: y = t 'classement
'---soustractions et résultat---
For i = maxi To 1 Step -1
z = Mid(x, i, 1) - Mid(y, i, 1) - retenue
If z < 0 Then z = z + 10: retenue = 1 Else retenue = 0
AdditionAvecSigne = z & AdditionAvecSigne
Next
'---suppression des zéros non significatifs---
For i = 1 To maxi - 1
If Mid(AdditionAvecSigne, i, 1) <> 0 Then Exit For
Next
AdditionAvecSigne = Mid(AdditionAvecSigne, i)
If neg Then AdditionAvecSigne = "-" & AdditionAvecSigne
End If
End FunctionFunction MAdditionAvecSigne$(matrice)
Dim e
matrice = matrice
If Not IsArray(matrice) Then MAdditionAvecSigne = matrice: Exit Function
For Each e In matrice
MAdditionAvecSigne = AdditionAvecSigne(CStr(e), MAdditionAvecSigne)
Next
End Function
