Modification du séparateur décimal dans la base de registre

Commenter

Contenu du snippet

Permet de trouver le séparateur décimal et de le changer si nécessaire.
En fin de prog, revient au séparateur initialement installé sur la machine

Source / Exemple : 


' A mettre dans un modul au chargement du prog
Public Declare Function SetLocaleInfo Lib "kernel32" _
                        Alias "SetLocaleInfoA" _
                        (ByVal Locale As Long, _
                        ByVal LCType As Long, _
                        ByVal lpLCData As String) As Long
Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long

Public SDecSep As String
Public LCID As Long

Dim iNumber As Single
Dim X__ID  As Long
iNumber = Val("1.1")
SDecSep = Mid(iNumber, 2, 1)
If SDecSep <> "." Then 'si vous voulez forcez le "." sinon "," si vous voulez forcez ","
LCID = GetSystemDefaultLCID()
X__ID = SetLocaleInfo(LCID, 14, ".")
 'et pour remettre le séparateur qu'il y avait à l'ouverure du prog
If SDecSep <> "." Then
X__ID = SetLocaleInfo(LCID, 14, SDecSep)

Conclusion :


Comme je l'ai tiré d'un prog plus important j'espère ne rien voir oublier

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (attila46)