Discussion :

[slacky]

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

[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

[slacky]

C'est ce que je fais.

Code :

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

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

[Bluedeep]

C'est ce que je fais.

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

La suite est importante :

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 ???

[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) ?

[Bluedeep]

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 :

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

decimal.Parse

[Pol63]

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

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

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

[slacky]

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

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
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

[Bluedeep]

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 :

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
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];
		}
	}
}

[Bluedeep]

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)

[slacky]

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 :

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

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