Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Sostituire separatore decimale "punto" in automatico con la "virgola"

1,838 views
Skip to first unread message

Dino

unread,
Feb 8, 2012, 10:19:50 AM2/8/12
to
Ciao a tutti volevo sapere se era possibile impostare tramite codice o
maschera di input in automatico la sostituzione del punto come
separatore dec. con la virgola.Premetto che i campi in esame hanno
tutti come prop.numerico con precisione doppia e come formato euro a 5
dec.oppure valuta a 5 dec.
In sostanza se io scrivo in questi campi 6,3 ottengo 6,3 se invece
scrivo 6.3 ottengo 63.Io vorrei invece ottenere lo stesso risultato.

Grazie in anticipo

Dino

BFS

unread,
Feb 9, 2012, 3:01:32 AM2/9/12
to
vedi l'istruzione replace(valore,stringa da cercare, stringa da sostituire)



ciao
BFS

Dino

unread,
Feb 9, 2012, 5:41:23 AM2/9/12
to
Ok,provo e ti faccio sapere.
Grazie mille
Dino

sv

unread,
Feb 9, 2012, 9:39:23 AM2/9/12
to
Dino ha scritto:
Su KeyDown:

Private Sub TuoControllo_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 190 Then KeyCode = 110
End Sub

--
sv

--

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news segnala gli abusi ad ab...@newsland.it


Vladimiro Leone

unread,
Feb 9, 2012, 5:11:09 PM2/9/12
to
Ciao Dino

Private Sub TuaCasella_KeyPress(KeyAscii As Integer)
If KeyAscii = Asc(".") Then
KeyAscii = Asc(",")
End If

Ciao Vladimiro.
End Sub

Silvio

unread,
Feb 10, 2012, 1:28:34 AM2/10/12
to

"Dino" <verreng...@alice.it> ha scritto nel messaggio
news:e3af13b2-1a13-4ef7...@c21g2000yqi.googlegroups.com...
Ciao

A quanto scritto dagli altri, aggiungerei una funzione per verificare il
separatore decimale impostato sul PC che stai usando.
Mi ero inventato questa funzioncina:

Public Function SeparatoreDecimale() As String
'Individua se il separatore decimale di questa macchina (punto o la
virgola)
'Resituisce "." oppure ","
SeparatoreDecimale = Mid(CStr(1.2), 2, 1)
End Function

Ciao

Silvio


Dino

unread,
Feb 10, 2012, 3:36:12 AM2/10/12
to
On 10 Feb, 07:28, "Silvio" <m...@mail.com> wrote:
> "Dino" <verrengia.d...@alice.it> ha scritto nel messaggionews:e3af13b2-1a13-4ef7...@c21g2000yqi.googlegroups.com...
Ringrazio tutti per le varie risposte.Non ho ancora avuto modo di
provare.Oggi dovrei riuscire e poi vi faccio sapere.

Grazie ancora

Dino

Dino

unread,
Feb 10, 2012, 9:55:18 AM2/10/12
to
> Dino- Nascondi testo citato
>
Eccomi .....Allora ragazzi le ho provate tutte.Vanno piu' o meno bene
tutte.
L'unica che non mi funziona e' la soluzione di SV,avete provato anche
voi????
Quella di Vladimiro e' perfetta e velocissima (non ci avervo
pensato,bastava una semplice istruzione If sul tasto giusto)
Va bene anche il "replace" di B & F
Anche la funzione di Silvio va bene,anche se nel mio caso non vedo
l'utilita' di scoprire il separatore decimale del mio Pc.

Ok, ribadisco ancora un grazie a tutti per la disponibilita' datami.

Dino

sv

unread,
Feb 10, 2012, 1:20:25 PM2/10/12
to
Dino ha scritto:
Provala dal tastierino numerico.
In genere è quello che si usa per l'inserimento di valori numerici in
gestionali.

Dino

unread,
Feb 11, 2012, 2:05:50 AM2/11/12
to
> questo articolo e` stato inviato via web dal servizio gratuitohttp://www.newsland.it/newssegnala gli abusi ad ab...@newsland.it- Nascondi testo citato
>
> - Mostra testo citato -

Ok,e' vero con il tastierino num. funziona.Questo da cosa puo' dip???
Se hai potuto provare la soluzione di Vladi funziona in entrambi i
casi.

Grazie ancora SV

Dino

sv

unread,
Feb 11, 2012, 5:05:02 AM2/11/12
to

Dino

unread,
Feb 11, 2012, 5:30:44 AM2/11/12
to
On 11 Feb, 11:05, salv...@accessgroup.it (sv) wrote:
> Dino ha scritto:
>
> [CUT]
>
>
>
>
>
> > > > Eccomi .....Allora ragazzi le ho provate tutte.Vanno piu' o meno bene
> > > > tutte.
> > > > L'unica che non mi funziona e' la soluzione di SV,avete provato anche
> > > > voi????
> > > > Quella di Vladimiro e' perfetta e velocissima (non ci avervo
> > > > pensato,bastava una semplice istruzione If sul tasto giusto)
> > > > Va bene anche il "replace" di B & F
> > > > Anche la funzione di Silvio va bene,anche se nel mio caso non vedo
> > > > l'utilita' di scoprire il separatore decimale del mio Pc.
> > > > Ok, ribadisco ancora un grazie a tutti per la disponibilita' datami.
> > > > Dino
>
> > > Provala dal tastierino numerico.
> > > In genere è quello che si usa per l'inserimento di valori numerici in
> > > gestionali.
>
> > > --
> > > sv
>
> > > --
>
> > > questo articolo e` stato inviato via web dal servizio
>
> gratuitohttp://www.newsland.it/newssegnalagli abusi ad ab...@newsland.it-
> Nascondi testo citato
>
>
>
> > > - Mostra testo citato -
> > Ok,e' vero con il tastierino num. funziona.Questo da cosa puo' dip???
> > Se hai potuto provare la soluzione di Vladi funziona in entrambi i
> > casi.
> > Grazie ancora SV
> > Dino
>
> Una panoramica:
>
> http://lnx.accessgroup.it/community/vba/evento-keypress.htmlhttp://lnx.accessgroup.it/community/vba/eventi-keydown-e-keyup.html
>
> con il demo allegato.
>
> --
> sv
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuitohttp://www.newsland.it/newssegnala gli abusi ad ab...@newsland.it- Nascondi testo citato
>
> - Mostra testo citato -

Grazie ancora
Dino

Vladimiro Leone

unread,
Feb 11, 2012, 6:20:40 AM2/11/12
to
On 11 Feb, 11:05, salv...@accessgroup.it (sv) wrote:
> Dino ha scritto:
>
> [CUT]
>
>
>
>
>
> > > > Eccomi .....Allora ragazzi le ho provate tutte.Vanno piu' o meno bene
> > > > tutte.
> > > > L'unica che non mi funziona e' la soluzione di SV,avete provato anche
> > > > voi????
> > > > Quella di Vladimiro e' perfetta e velocissima (non ci avervo
> > > > pensato,bastava una semplice istruzione If sul tasto giusto)
> > > > Va bene anche il "replace" di B & F
> > > > Anche la funzione di Silvio va bene,anche se nel mio caso non vedo
> > > > l'utilita' di scoprire il separatore decimale del mio Pc.
> > > > Ok, ribadisco ancora un grazie a tutti per la disponibilita' datami.
> > > > Dino
>
> > > Provala dal tastierino numerico.
> > > In genere è quello che si usa per l'inserimento di valori numerici in
> > > gestionali.
>
> > > --
> > > sv
>
> > > --
>
> > > questo articolo e` stato inviato via web dal servizio
>
> gratuitohttp://www.newsland.it/newssegnalagli abusi ad ab...@newsland.it-
> Nascondi testo citato
>
>
>
> > > - Mostra testo citato -
> > Ok,e' vero con il tastierino num. funziona.Questo da cosa puo' dip???
> > Se hai potuto provare la soluzione di Vladi funziona in entrambi i
> > casi.
> > Grazie ancora SV
> > Dino
>
> Una panoramica:
>
> http://lnx.accessgroup.it/community/vba/evento-keypress.htmlhttp://lnx.accessgroup.it/community/vba/eventi-keydown-e-keyup.html
>
> con il demo allegato.
>
> --
> sv
>
> --
>
> questo articolo e` stato inviato via web dal servizio gratuitohttp://www.newsland.it/newssegnala gli abusi ad ab...@newsland.it- Nascondi testo citato
>
> - Mostra testo citato -

Carino il demo
:-)
Vladimiro
0 new messages