[VB6] Calcolo corretto di valori percentuale

[suono2]

ciao ragazzi sono alle prime armi con il visual basic.
Ho fatto un piccolo programmino per fare dei calcoli...

inserisco un valore e in base a quel valore mi deve calcolare la percentuale.
Se inserisco il valore 90000 tutto va bene (apllica il 30%) se invece inserisco 100000 (applica il 9%) non va.

Ecco il listato:


Private Sub Command1_Click()
Dim quote_tot, perc_clienti_inc, bonus, n_quote, quote

If (num_quote.Text = "" Or num_clienti.Text = "" Or num_clienti_inc.Text = "") Then
MsgBox "Inserire tutti i valori richiesti."

Else

If (num_quote.Text <= "15000") Then
quote_tot = (num_quote.Text * 9) / 100
Else
If (num_quote.Text > "15000") And (num_quote.Text <= "25000") Then
quote_tot = (num_quote.Text * 18) / 100
Else
If (num_quote.Text > "25000") Then
quote_tot = (num_quote.Text * 30) / 100
End If
End If
End If


AIIIUUUUUUUTTTTOOOOOO

[oregon]

Allora ... prima di tutto mi sembra che le If e le End If non siano corrette ...

Secondo, se fai dei calcoli allora devi utilizzare delle variabili di tipo apposito, per esempio di tipo double

Dim quote_tot As Double, perc_clienti_inc As Double, bonus As Double, n_quote As Double, quote As Double

e i confronti vanno fatti senza le virgolette (dato che non sono stringhe)

If Val(num_quote.Text) <= "15000" Then

Infine, devi spiegare meglio quale e' il criterio da adottare, in modo da suggerirti il codice corretto.

[alka]

Originariamente inviato da suono2
ciao ragazzi sono alle prime armi con il visual basic.

Ho spostato la discussione all'interno del forum dedicato a Visual Basic (VBx, VBA, ...) e ai linguaggi per .NET Framework (VB.NET, C#, ...).

In futuro, poni in questo forum le domande relative a questi linguaggi.

Ciao!

[LMondi]

Conviene usare Select Case:

Private Sub Command1_Click()
    Dim quote_tot As Double, perc_clienti_inc As Double, bonus As Double, n_quote As Double, quote As Double
    
    If (num_quote.Text = "" Or num_clienti.Text = "" Or num_clienti_inc.Text = "") Then
        MsgBox "Inserire tutti i valori richiesti."
        Else
        
        Select Case num_quote.Text
            Case Is <= 15000
                quote_tot = num_quote.Text * (9 / 100)
            Case Is <= 25000
                quote_tot = num_quote.Text * (18 / 100)
            Case Is > 25000
                quote_tot = num_quote.Text * (30 / 100)
        End Select
    End If
       Text1.Text = Format(quote_tot, "#,##0.00")
End Sub

[suono2]

Grazie 100000000000

ho tolto le virgolette e tutto oook

grazie ancora...