Separatore decimale in VB6

[esposito]

Salve, ho un problema che riguarda l'uso del separatore decimale in VB6.

Ho prodotto alcuni programmi di contabilità che, rispettando le convenzioni numeriche italiane, richiedono la virgola come separatore decimale.

Se nelle Impostazioni internazionali del Pannello di controllo è impostato il punto, anziché la virgola, come separatore decimale, viene generato un errore di runtime 13 (Tipo non corrispondente).

Purtroppo questo è successo ad alcuni utenti, che erano ignari del fatto che sulla propria macchina era impostata la convenzione numerica anglosassone.

Domanda: esiste un modo per individuare tramite codice VB quale separatore decimale è impostato e, magari, per modificarlo?

Grazie in anticipo.

Pasquale Esposito

[amodio]

è successo anche a me!!
rispondete grazie

[xegallo]

premettendo il fatto che cambiare le impostazioni internazionali va a cambiarle anche al di fuori della vostra applicazione poichè va ad agire sul sistema operativo, e sarebbe + opportuno leggerle e fare si che la vostra applicazione agisca di conseguenza le funzioni api che si interessano di questo sono

GetThreadLocale
GetSystemDefaultLCID
GetLocaleInfo
SetLocaleInfo

per esempi sul loro utilizzo
consultare http://msdn.microsoft.com/library/de...l/nls_8d0z.asp

[esposito]

Sul sito della Microsoft scarseggiano esempi concreti riguardanti il mio caso particolare.

Qualcuno è riuscito a leggere e/o modificare il tipo di separatore decimale nelle Impostazioni internazionali?

[esposito]

Gli esempi nel sito della Microsoft fanno riferimento al linguaggio C.

Sei per caso riuscito a convertirli in codice VB?

Originariamente inviato da amodio
è successo anche a me!!
rispondete grazie

[Birgy]

Nessuno ha ancora una soluzione a questo problema?
Grazie!

[erosmax]

Provate a fare così:

Separatore = Mid(1 / 2, 2, 1)

nella variabile troverai . o ,

In questo modo saprai qual'è il separatore usato in quell'istante

[Birgy]

Ciao!
Io ho usato un semplicissimo MsgBox per visualizzare la variabile e quindi vedere il tipo di separatore usato.
Poi ho trovato questa soluzione per imporre il separatore che voglio:

Dim ValoreDecimale

ValoreDecimale= CStr(ors.Fields("Costo")) 'trasformo in stringa un campo prelevato da tabella
ValoreDecimale= Replace(ValoreDecimale, ",", ".") 'sostituisco la virgola con il punto
ValoreDecimale= CCur(ValoreDecimale)  'trasformo in valuta

Così sono sicura che ci sia il punto e non la virgola come separatore.

[tippolo]

Originariamente inviato da erosmax
Provate a fare così:

Separatore = Mid(1 / 2, 2, 1)

nella variabile troverai . o ,

In questo modo saprai qual'è il separatore usato in quell'istante

Che senso ha rispondere ad un thred di oltre 5 anni fa?

[jack.mauro]

Originariamente inviato da tippolo
Che senso ha rispondere ad un thred di oltre 5 anni fa?

Ha senso, ho appena trovato con google questo thread e mi è stata utile la risposta.