Arrotondamento per eccesso

venerdì 02 marzo 2007 - 09.42

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

contiello Profilo | Senior Member

260 messaggi | Data Invio: ven 2 mar 2007 - 09:42

salve ragazzi o la seguente necessità

immaginate di avere questo valore in una variabile .... 1,3
se uso la funzione Round questa mi restituisce 1 ... io vorrei che il valore fosse arrotondato sempre all'intero maggiore quindi ad esempio

1,1 = 2
1,4 = 2
1,8= 2

come posso fare questo tipo di operazione???????

Giamp72 Profilo | Junior Member

115 messaggi | Data Invio: ven 2 mar 2007 - 12:07

usa questa (è in vb6 ma te la puoi convertire in .NET senza fatica...)

Public Function CalcolaArrotondamento(ByVal valore As Single, _
ByVal TipoArr As Integer, _
ByVal ValArr As Single) As Single

Dim TempVal As Single
Dim TempInt As Single
Dim TempResto As Single

TempVal = valore

If ValArr = 0 Then
CalcolaArrotondamento = TempVal
Exit Function
End If

'calcolo la parte intera
TempInt = Int(TempVal / ValArr) * ValArr

'calcolo il resto
TempResto = TempVal - TempInt

Select Case TipoArr
Case 0 'matematico
If TempResto < (ValArr / 2) Then
TempVal = TempInt
Else
TempVal = TempInt + ValArr
End If

Case 1 'superiore
TempVal = TempInt + ValArr

Case 2 'troncamento
TempVal = TempInt

End Select
CalcolaArrotondamento = TempVal

End Function

ciao
Giamp72

Carlik Profilo | Junior Member

158 messaggi | Data Invio: ven 2 mar 2007 - 17:52

Usa math.ceiling

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !