[kapetang]

Καλησπέρα

Μια άλλη απλή πρόταση.

Έχω δημιουργήσει με τον παρακάτω κώδικα:

Public Function SUMAbs(x As Variant) As Long
    Dim i As Long, sum As Long
    For i = 1 To 100
        sum = sum + Abs(x - i)
    Next
    SUMAbs = sum
End Function

μια συνάρτηση χρήστη, την SUMAbs(x) .

Η συνάρτηση παίρνει ως όρισμα μία τιμή x (πχ 10) και επιστρέφει το άθροισμα των απόλυτων τιμών:

|x-1| + |x-2| + ...+ |x-100|

Δημήτρη, δες το συνημμένο.