//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




gcSeparateurDecimaleest un caractère=OFX_SeparateurNumerique(LOCALE_SMONDECIMALSEP)// Ici le séparateur Décimal si on en a besoin
gcSeparateurMilleest 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.

SIAsc(gcSeparateurMille)<>32ALORSChangeSéparateur(sepMILLIER,Caract(32))

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






//------------------------------------------------------
DANSles procédures globales
//------------------------------------------------------

ProcedureSeparateurNumerique(_SeparateurRechercher)
sReturnestune chaîne
nlReturnest un entier
nlLocaleIDest un entier
niTypeest 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..
SInlReturnALORS
//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)
SInlReturn>0ALORS
//lReturn contient la taille de la chaîne de caractères comprenant la terminaison nulle
RENVOYERGauche(sReturn,nlReturn-1)
FIN
FIN