[VB 2005] - Arrotonda multiplo

[mandrake_01]

Salve a tutti,
vorrei fare un piccolo programmino che mi esegua alcuni calcoli come ho già fatto in excel dove ho utilizzato la funzione arrotonda multiplo per trattare alcuni numeri. Vorrei sapere se esiste una funzione equivalente in vb 2005.

Grazie
Ciao

[MItaly]

La puoi facilmente scrivere tu:

Public Function ArrotondaMultiplo(Numero As Double, Fattore As Double) As Double
    If Numero * Multiplo < 0 Then Throw New System.ArgumentException("Numero e Fattore devono essere concordi.")
    If Multiplo = 0 Then Throw New System.ArgumentException("Fattore non può essere 0.","Fattore")
    Dim difetto As Double, eccesso As Double
    difetto = Math.Floor(Numero / Fattore) * Fattore
    eccesso = Math.Ceil(Numero / Fattore) * Fattore
    If Abs(difetto - Numero) < Abs(eccesso - Numero) Then
        Return difetto
    Else
        Return eccesso
    End If
End Function

[mandrake_01]

Grazie 1000!

Ciao

[MItaly]