Inanzitutto grazie mille
ho provato ad adattare il tuo codice alle mie esegenze ma non va (sicuramente ho sbagliato io)
mi da errore di compilazione
codice:
Private Sub Option2_Click()
Dim euro As Double
Dim i, j, sw As Integer
prezzo.Caption = ""
euro = prezzo / 1936.27
For i = 1 To Len(euro)
prezzo = prezzo & Mid(euro, i, 1)
If Mid(euro, i, 1) = "," Then sw = 1
If sw = 1 Then j = j + 1
If j = 3 Then Exit For
Next i
If Right(prezzo, 3) = ",00" Then prezzo = Replace(prezzo, ",00", "")
End Sub
lo adattato bene??
:bubu: