//Dans le code en début de projet
CONSTANT
LOCALE_SMONDECIMALSEP = 0x16 //Séparateur décimal monétaire
LOCALE_SMONTHOUSANDSEP = 0x17 //Séparateur de millier monétaire
FIN




gcSeparateurDecimale est un caractère = OFX_SeparateurNumerique(LOCALE_SMONDECIMALSEP) // Ici le séparateur Décimal si on en a besoin
gcSeparateurMille est un caractère = OFX_SeparateurNumerique(LOCALE_SMONTHOUSANDSEP) // Ici le séparateur des Milles, et qui nous interesse Ici


// On contrôle, si le séparateur des Mille est differend de "Espace" alors on change.

SI Asc(gcSeparateurMille)<>32 ALORS ChangeSéparateur(sepMILLIER, Caract(32))

//Ce qu'il y a de bien, c'est que l'on ne modifie pas la configuration de Windows.






//------------------------------------------------------
DANS les procédures globales
//------------------------------------------------------

Procedure SeparateurNumerique(_SeparateurRechercher)
sReturn est une chaîne
nlReturn est un entier
nlLocaleID est un entier
niType est un entier


niType =_SeparateurRechercher

nlLocaleID = API("kernel32","GetUserDefaultLCID","USER")

//Appel de la fonction en passant la variable locale
//Pour récupérer la taille du buffer du string dont nous avons besoin
nlReturn= API("kernel32","GetLocaleInfoA",nlLocaleID,niType, sReturn, Taille(sReturn))

//Si c'est OK..
SI nlReturn ALORS
//On complète le buffer avec des espaces
sReturn = Complete(sReturn,nlReturn)
//et nouvel appel en passant la mémoire tampon
nlReturn = API("kernel32","GetLocaleInfoA",nlLocaleID, niType, sReturn, Taille(sReturn))
//Si Ok (lReturn > 0)
SI nlReturn >0 ALORS
//lReturn contient la taille de la chaîne de caractères comprenant la terminaison nulle
RENVOYER Gauche(sReturn, nlReturn - 1)
FIN
FIN