Discussion :

[SISGI]

Bonjour à tous SVP je veux calculer le salaire d'un agent voilà la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
iif(Cdbl(Format(iif(isnull(B.TaxablePeriode),0,B.TaxablePeriode),'0.00'))+ " _
             & " Cdbl(Format(iif(isnull(B.ExonerePeriode),0,B.ExonerePeriode),'0.00')))>=6000,6000,(Cdbl(Format(iif(isnull(B.TaxablePeriode),0,B.TaxablePeriode),'0.00'))+ " _
             & " Cdbl(Format(iif(isnull(B.ExonerePeriode),0,B.ExonerePeriode),'0.00'))) as CumulBaseCalcule "

voilà le msg d'erreur

Erreur de syntaxe(virgule) dans l'expression

[XylonAkau]

___Ia ora na.
___Voici la forme la plus proche qui paraisse acceptée par l'éditeur de VB6 (non testée en exécution) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim A As Double
 
A = IIf(CDbl(Format(IIf(IsNull(B.TaxablePeriode), 0, B.TaxablePeriode), "0.00")) + _
        CDbl(Format(IIf(IsNull(B.ExonerePeriode), 0, B.ExonerePeriode), "0.00")) >= 6000, _
            6000, _
            (CDbl(Format(IIf(IsNull(B.TaxablePeriode), 0, B.TaxablePeriode), "0.00")) + _
             CDbl(Format(IIf(IsNull(B.ExonerePeriode), 0, B.ExonerePeriode), "0.00"))))

___Les lignes 3 et 4 contiennent la condition du Iif, la ligne 5 (si la condition est remplie) le plafonnement à 6000, les lignes 6 et 7 (sinon) le calcul réel de A.
___Le code proposé dans le message #1 semble mélanger variables numériques (ligne 1) :
CDbl(Format(IIf(IsNull(B.TaxablePeriode), 0, B.TaxablePeriode) ou +
et chaînes de caractères (lignes 2 et 3) : & ou bien
" Cdbl(Format(iif(isnull(B.ExonerePeriode),0,B.ExonerePeriode),'0.00'))) as CumulBaseCalcule "
___Les rôles respectifs de Iif et de as CumulBaseCalcule pourraient aussi être précisés.
___De plus, en pur VB6, seuls des guillemets permettent de spécifier une chaîne de caractères (l'apostrophe étant interprétée comme le début d'un commentaire). D'ailleurs, entré dans l'éditeur, le code en question déclenche un message d'erreur

Erreur de compilation
Attendu : expression

pointant sur la première des apostrophes.
___Mais le code est-il destiné à être exécuté directement en VB6 ?
___Bon courage pour la suite de votre travail.

[SISGI]

j'ai résolu le problème mercii bc