Bonsoir,

J'ai crée un mini programme tiré d'un livre mais lorsque je l'éxécute un message d'erreur apparrait concernant une variable.
voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub cmdCalcpay_Click()
    Dim intHoursWorked As Integer
    Dim sngRate As Single, sgnTaxRate As Single
    Dim curTaxes As Currency, curGrossPay As Currency
    Dim curNetPay As Currency
 
    intHoursWorked = 40
    sngRate = 7.8
    sngTaxRate = 0.42
 
    curGrossPay = intHoursWorked * sngRate
    curTaxes = sngTaxRate * curGrossPay
    curNetPay = curGrossPay - curTaxes
 
    lblGrossPay.Caption = curGrossPay
    lblTaxes.Caption = curTaxes
    lblNetPay.Caption = curNetPay
End Sub