You are here:---Rispondi a: rivedere piramidi
Rispondi a: rivedere piramidi 2018-12-11T19:28:33+00:00

Home Forum Domande su Excel VBA e MACRO rivedere piramidi Rispondi a: rivedere piramidi

giorgioantonio
Partecipante
    Post totali: 207

    l’udf

    Public Function PIRAMIDE(n1, n2, n3, n4, n5) As Integer
    Dim vArr As Variant
    Dim j As Long
    Dim s As String, sAppoggio As String
    Dim nDecina As Integer, nUnita As Integer
    vArr = Array(n1, n2, n3, n4, n5)

    For j = LBound(vArr) To UBound(vArr)
    nUnita = vArr(j) Mod 10 ‘unità
    nDecina = (vArr(j) – nUnita) / 10 ‘decina
    s = s & nDecina & nUnita
    Next j

    Do
    For j = 1 To Len(s) – 1
    If Val(Mid(s, j, 1)) + Val(Mid(s, j + 1, 1)) > 9 Then
    sAppoggio = sAppoggio & Val(Mid(s, j, 1)) + Val(Mid(s, j + 1, 1)) – 9
    Else
    sAppoggio = sAppoggio & Val(Mid(s, j, 1)) + Val(Mid(s, j + 1, 1))
    End If
    Next j
    s = sAppoggio
    sAppoggio = vbNullString
    Loop Until Len(s) = 2

    PIRAMIDE = Val(s)
    End Function

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi