(ASP) Arrotondamento

[SuperMariano81]

ciao a tutti quelli del Forum
ho un numero (3315.24) dovrei arrotondarlo alle centinaia (3300) come che posso fare tramite le ASP??
Ho trovato la funzione Cint ma mi toglie solo i valori dopo la virgola!

G R A Z I E

[Sypher]

Originariamente inviato da SuperMariano81
ciao a tutti quelli del Forum
ho un numero (3315.24) dovrei arrotondarlo alle centinaia (3300) come che posso fare tramite le ASP??
Ho trovato la funzione Cint ma mi toglie solo i valori dopo la virgola!

G R A Z I E

beh per arrotondarlo alle centinaia devi scrivere una semplice funzioncina tu, non credo esista qualche funzione che lo faccia

[Sypher]

mmm...na cosa del genere:

Private Function arrotonda(num)
    numerointero = FormatNumber(num, 0)
    If (Len(CStr(numerointero))) > 2 Then
        centinaia = Left(numerointero, Len(numerointero) - 2)
        arrotonda = centinaia & "00"
    End If
End Function

p.s. ricorda che se usi CInt se il numero è più grande di 35000 più o meno , non ricordo il numero esatto va in errore!

[SuperMariano81]

Ecco un codicino da me fatto (ho preso spunto da quello suggerito da Sypher)

Private Function arrotonda(num)
    num = Replace(num, ".", ",") 
    num = CInt(num)
    If (Len(CStr(num))) >= 4 Then
        fisso = Left$(num, 2)
        centinaia = Right$(num, 2)
        If centinaia > 50 Then
                          fisso = fisso + 1

        End If
        arrotonda = fisso & "00"
                                Else
    If (Len(CStr(num))) = 3 Then
        fisso = Left$(num, 1)
        centinaia = Right$(num, 2)
        If centinaia > 50 Then
                          fisso = fisso + 1

        End If
        arrotonda = fisso & "00"
    End If
    End If
End Function

Arrotonda numeri di 4 o 3 cifre e con la virgola (o il punto).
Funziona bene :sexpulp:

Grazie Sypher per l'idea

[Corwin]

x = 3315.24
x = (Int(x / 100) * 100

[Sypher]

Originariamente inviato da Corwin
x = 3315.24
x = (Int(x / 100) * 100

mmm...interessante!
ma c'è un errorino!

x = 3315.24
x = CInt(x / 100) * 100

:zamm:

[Corwin]

Originariamente inviato da Sypher
mmm...interessante!
ma c'è un errorino!

x = 3315.24
x = CInt(x / 100) * 100

:zamm:

Ah si ? E perchè sarebbe un errore ? :quipy:

[Sypher]

Originariamente inviato da Corwin
Ah si ? E perchè sarebbe un errore ? :quipy:

quello è quello corretto...tu al posto della C avevi messo la parentesi!

Originariamente inviato da Corwin

x = 3315.24
x = (Int(x / 100) * 100

[Corwin]

Ok, c'era una parentesi in più, ma la funzione Int esiste e funziona.

[Sypher]

Originariamente inviato da Corwin
Ok, c'era una parentesi in più, ma la funzione Int esiste e funziona.

è vero anche questo! però l'errorino c'era! :zamm: