Codice: Seleziona tutto
Format(Mytol.Lettera(), "-#########.##")il problema arriva se inserisco manualmente un numero nel campo testo, questo mi viene accettato solo se seguo il formato americano, con il punto che precede i decimali. Come posso risolvere? Magari è una stupidaggine e non me ne sono accorto. Tra l'altro il programma è perfetto nel suo funzionamento, c'è solo sta cosa che devo risolvere.
==
Ho risolto in questa maniera:
Codice: Seleziona tutto
IF InStr(txtPrezzoSell.Text, ",") > 0 THEN 'nessuna virgola
valore = Mytol.LetteraFree(CFloat(Replace$(txtPrezzoSell.Text, ",", ".")))
ENDIF 
