Vb6 funzione di Sconto

[XVincentX]

Salve ragazzi
Ho fatto una funzione che faccia lo sconto di un prezzo.
eseguendo tutti i calcoli sulla calcolatrice mi trovo, ma sul programma no, mi da valori un po di meno
Ad esempio da 100 faccio sconto 20 è 80
Su vb6 faccio sconto 20 mi da 78,40...
Mentre se su vb6 faccio sconto 5 da 95 (che è giusto)
in base a cosa fa queste operazioni?
Vb6 ha già qualche funzione di suo?
Grazie

[web@web]

se ci scrivi il codice che hai realizzato per la funzione, ti possiamo aiutare

[XVincentX]

Sub sconto(valore As Currency, sconto As Currency, scontatos As Currency)
On Error GoTo err
scontatos = valore * sconto / 100
valore = valore - scontatos
sconto = "0"
err:
Select Case err.Number
Case 6
MsgBox "Troppo sconto"
Exit Sub
End Select
End Sub

[tas]

Perchè non hai usato una function invece di una sub?
Così funziona:

Public Function Sconto(valore As Currency, perc As Single) As Currency
    Dim scontatos As Currency
    
    scontatos = valore * perc / 100
    Sconto = valore - scontatos
End Function

'la si usa così:
k = Sconto(100, 20)     'restituisce 80

Ciao

[XVincentX]

perchè non le sapevo ancora usare. Proverò!