Comment convertir un double en chaine de caractères ?Résolu

Question

Bonjour tout le monde,

Petit problème de conversion :

J'ai une variable de type double qui se nomme AAjouter (elle est en globale)

J'utilise ce code :
sql "SELECT nom,prix FROM taille_support WHERE taille_support.nom " & """" & LeNom & """" & " AND ref_support IN (SELECT id from support WHERE id = " & comboTypeSupport.ItemData(comboTypeSupport.ListIndex) & ") "
Set rsTable = BDOuvrirTable(sql, True)
AAJouter = rsTable(1)

AAjotuer contient par exemple 0,35

J'appelle une fonction pour ajouter ces 0,35 au montant existant :

Ajout_prix_de_Vente (AAJouter)

Private Sub Ajout_prix_de_Vente(ByVal somme_A_Ajouter)
    Dim En_Integer As Double
    Dim Somme_Actuelle As Double
    Dim total As Double
    Dim totalString As String
 
   Somme_Actuelle = Val(textPrix.Text) 'je mets dans un double la valeur du montant actuel
    
    total = Somme_Actuelle + somme_A_Ajouter 'je fais le total de ce qu'il y'a déjà et de ce que je dois ajouter

    totalString = Chr(total) 'j'essaie ensuite de convertir en chaine pour l'affichage dans la zone de texte mais problème

    textPrix.Text = totalString
End Sub

Sauriez-vous svp me dire ce que je dois faire svp ?

Merci
beegeezzz

nhervagault · Accepted Answer

Salut

@KIPRE74 Pour info, C'est du VB6 qui semble etre demandé

totalString = CStr(total)

KIPRE74 · Answer

Salut,
Essaie ça  totalString = CType(total,String)
                textPrix.Text = totalString

" Celui qui croit savoir quelque chose ne l'a pas encore connue dans sa totalité "

KIPRE74 · Answer

Merci
J'ai pensé à VB.Net

" Celui qui croit savoir quelque chose ne l'a pas encore connue dans sa totalité "

beegeezzz · Answer

Merci beaucoup.

Beegeezzz

Renfield · Answer

utilises Str$

? cstr(3.14)
3,14
? Trim(str$(3.14))
3.14

(gaffe, Str a la facheuse tendance a ajouter un espace)

Comment convertir un double en chaine de caractères ?

5 réponses

Votre réponse

Discussions similaires