[VB6] Verifica valore Euro/lire in TextBox

[LMondi]

Prima di tutto i miei migliori auguri a tutti gli amici del Forum !!
Dovrei verificare se un valore inserito in una TextBox corrisponda a Lire o ad Euro. Pensavo di fare riferimento al fatto se vi sono i due decimali o meno, cioè 1000,25 = €; 1000 = Lit. .
Da qui la domanda: come faccio ad individuare la presenza dei decimali?

[LMondi]

Ho risolto in questo modo:

If FrmTariffa.TxtControv.Text <> "" Then
        If InStr(1, FrmTariffa.TxtControv.Text, ",") Then
            MsgBox "Il valore della controversia è espresso in Euro.", vbInformation + vbOKOnly, "Computo della tariffa"
            Else
            MsgBox "Il valore della controversia è stato espresso in Lit. Si" & Chr(13) _
            & "procede alla conversione in Euro (cambio 1.936,27).", vbInformation + vbOKOnly, "Computo della tariffa"
        End If
 End If

[MdE2005]

Ciao Lmondi..ti volevo fare una domanda: se l'utente inserisce nella tua casella di testo il valore "2500" come fai a distinguere se sono euro o no? Sicuramente no dai decimali..

La situazione ottimale sarebbe l'inserimento di un combobox o di un radiobutton per dare la possibilità di inserire il valore o in lire o in euro, e il programma saprebbe come interpretare quel valore..

Cmq, apparte questa precisazione, la tua soluzione è l'unica che si prospetta..quindi va bene..

Ciao AUGURI

[LMondi]

Hai ragione, in effetti dopo la verifica della mancanza di decimali viene attivato un avviso per la trasformazione in Euro. Se l'utente non vuole - ad esempio perchè la cifra è già in Euro, fa clic su Annulla e viene comunque azzerato il valore di partenza (direi: "così impara che con l'Euro deve inserire i decimali, comunque ...).
Avrei però un problema che mi sembra solo in parte superato.
Quando si deve effettuare la conversione Lit/Euro dovrei inserire nella stessa Txt il valore convertito. Valore che risiede nella Txt di partenza. In altri termini, attualmente, carico una variabile con il valore della Txt, la variabile la divido per 1936,27 e poi la stessa variabile l'assegno alla Txt di partenza. Sembra funzionare, però ho il sospetto che sia un loop.
Cosa ne dici?

[MdE2005]

Se fai così non dà errori:

Private Sub Command1_Click()
Dim ValoreDaConvertire
ValoreDaConvertire = val(Text1.Text)
Text1.Text = ValoreDaConvertire / 1936.27
End Sub

Poi con le istruzioni Instr e Mid metti in evidenza quanti decimali ti interessano (presumo, trattandosi di euro, 2).

Non è possibile fare queste operazioni nel metodo text1_change..

ciao

[LMondi]

Grazie MdE2005, ti auguro Buon Natale.