Convertir une formule en string en decimal

Version imprimable

27/03/2013, 10h49
slacky

Convertir une formule en string en decimal

Bonjour,

J'ai une formule venant d'une base de données que je récupère dans une variable string

ex : (MT*TVA)/100

Je remplace Mt par son montant et Tva par le sien

J'aimerais un decimal total = CDec((MT*TVA)/100)

Voila comment puis-je transformer ma chaine en résultat decimal ?

Merci
27/03/2013, 11h27
Pol63

tu fais un replace des variables par leurs valeurs
et tu fais du sql pour faire un select (...)
ca peut aussi se faire sur un datatable

C'est ce que je fais.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
      Dim mMT As Decimal = 0
      Dim mTVATaux As Decimal = 0
      Dim mFormule As String 
 
' je recup mes valeurs
        mMT = drEcriture.Item(6) ' valeur recup 10
        mTVATaux = drTrame.Item(8) ' valeur recup 19.6
        mFormule = drTrame.Item(6)  ' valeur récupèré = "(MT*TVA)/100"
 
 
  total = CDec(mFormule.Replace("MT", mMT).Replace("TVA", mTVATaux))

Il me trouve une chaine qui est égale à par exemple : (10*19,6)/100
Et cette chaine n'est pas convertible en decimal

27/03/2013, 11h41
Bluedeep

Citation:

Envoyé par slacky

C'est ce que je fais.

Tu n'as pas du lire le message de Pol63 jusqu'au bout visiblement.

La suite est importante :

Citation:

tu fais du sql pour faire un select (...)
ca peut aussi se faire sur un datatable

Accessoirement, pourquoi utiliser de vieilles verrues du VB6 comme CDec ???
27/03/2013, 11h45
slacky

Ok merci.

Alors je n'ai pas compris ce que je devais faire avec le sql :)

Pour ce qui est du CDec, je sais pas, il faut utiliser quoi ? Ctype(valeur, type) ?
27/03/2013, 11h53
Bluedeep

Citation:

Envoyé par slacky

Ok merci.

Alors je n'ai pas compris ce que je devais faire avec le sql :)

Pour ce qui est du CDec, je sais pas, il faut utiliser quoi ? Ctype(valeur, type) ?

Code:

decimal.Parse
27/03/2013, 12h07
Pol63

si le string après replace est "(5/3)" tu rajoutes select devant et tu demandes à sql de l'executer

Citation:

select (5/3)

sql server il sait répondre à ca ^^
on (bluedeep d'ailleurs il me semble) avait trouvé une solution via l'objet datatable pour ne pas passer par sql suite à une question similaire

Citation:

Envoyé par Bluedeep

Accessoirement, pourquoi utiliser de vieilles verrues du VB6 comme CDec ???

moi qui utilisent de genre de vieilles verrues, la réponse est parce que c'est pratique et que ca fait la même chose ^^
ca va plus vite à taper surtout
cde parenthèse
au lieu de
de . pa parenthèse

et sur certaines de ses fonctions ce n'est pas vb.comp.dll qui est utilisé mais bien le compilateur qui traduit en decimal.parse en gros

donc hormis le côté poo (et encore du shared) utiliser un mot clé du compilateur ca se fait je pense ^^
ou alors les c#iens sont juste jaloux de pas l'avoir :D

Je m'en suis sorti grâce à vous merci beaucoup.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
 
      Dim mMT As Decimal = 0
      Dim mTVATaux As Decimal = 0
      Dim mFormule As String 
 
' je recup mes valeurs
        mMT = drEcriture.Item(6) ' valeur recup 10
        mTVATaux = drTrame.Item(8) ' valeur recup 19.6
        mFormule = drTrame.Item(6)  ' valeur récup= "(MT*TVA)/100"
 
 
  Dim total As String = Nothing
 
            total = (mFormule.Replace("MT", mMT).Replace("TVA", mTVATaux).Replace(",", "."))
 
' connexion sql
            Dim con As New Npgsql.NpgsqlConnection(SessionUtilisateur.mBddConn.getStrConn)
' commande sql
            Dim com As New Npgsql.NpgsqlCommand("select " & total & " as valeur", con)
            con.Open()
 
            Dim dr As Npgsql.NpgsqlDataReader
            dr = com.ExecuteReader()
 
            While (dr.Read)
                total = dr.Item("valeur")
            End While
 
            con.Close()

NB : je suis sous postgre SQL d'où le Npgsql.NpgsqlConnection

Tu t'es compliqué inutilement la vie.
Tu n'avais aucun besoin d'une connection base de données.
Un SQL élementaire peut être exécuté à travers une DataTable.

Exemple (à traduire en VerBeux) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 static void Main() { Console.WriteLine(calcul("100/3 + 4")); Console.ReadKey(); } static decimal calcul(string formule) { using (DataTable dt = new DataTable()) { using (DataColumn dc = dt.Columns.Add()) { dc.DataType = typeof(decimal); dc.Expression = formule; DataRow r = dt.Rows.Add(); return (decimal)r[0]; } } }

27/03/2013, 14h52
Bluedeep

Citation:

Envoyé par Pol63

si le string après replace est "(5/3)" tu rajoutes select devant et tu demandes à sql de l'executer
sql server il sait répondre à ca ^^
on (bluedeep d'ailleurs il me semble) avait trouvé une solution via l'objet datatable pour ne pas passer par sql suite à une question similaire

Non, la solution initiale à ce problème que j'ai postée il y a de longues années (5 ou 6) sur ce forum utilisait la compilation dynamique (mais il est vrai qu'on pouvait manipuler avec cette solution des formules de calcul plus complexes avec fonction triggo, etc ....).

Ci dessus une solutuon avec le "mini interpréteur SQL" des DataTable (qui ne permat d'utiliser de fonctions, seulement les opérations élementaires)

Ah oui en effet ca fonctionne très bien comme ça aussi et moins compliqué.

Merci pour votre aide.

En VB si ça intéresse :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
   Public Function calcul(formule As String) As Decimal
 
        Dim dt As New DataTable
        Dim dc As New DataColumn
        dc.DataType = System.Type.GetType("System.Decimal")
        dc.Expression = formule
        dt.Columns.Add(dc)
        Dim dr As DataRow = dt.Rows.Add()
        Return Decimal.Parse(dr(0))
 
    End Function