stringa...probl

[verardoelvis]

Ciao ragazzi.
ho un piccolo problema.
Ho una stringa che contiene un prezzo, es: 25,50 ?
e devo moltiplicarla per un valore presente in una text box ogni volta che quest'ultima viene cambiata.

Poi, il risultato dovrà essere sempre una stringa per contenere ?.
Io ho fatto così, per il momento funziona ma ho paura che in futuro crei rogne.

Dim Prezzo as sting
Dim Qta as string
Dim Ris as string

Prezzo = text1.text ==> 25,50 ?
qta = cdbl(text2.text) ==> 2
ris = Prezzo * qta ==> 50,00 ?
Le stringhe dei soldi sono formattate.
Cosa ne pensate?
Avete qualche consiglio?

Forse con mid dovrei prendere solo i numeri della text box eliminando ?, convertendo in dbl, eseguire l'operazione e ritrasformare in stringa con format?

GRAZIE CIAO

[Mabi]

Il tipo di variabile lo decidi tu in base alla precisione sui decimali e alla capacità dello stesso.
Se ti va bene il Double allora escludi dalle stringhe quello che non devi convertire in numero, esegui il prodotto e lo converti in stringa.

Dim Prezzo As String
Dim Qta As String
Dim Ris As String

Prezzo = Replace(Text1.Text, " ?", "")
Qta = Replace(Text2.Text, " ?", "")
Ris = CStr(CDbl(Prezzo) * CDbl(Qta)) & " ?"