Discussion :

[sjprm]

Bonjour à tous,
J'ai un programme VB6 qui s'est mis à ne plus fonctionner le jour ou j'ai re installé windows et j'ai compris au bout de qq temps que win avait la "virgule" comme séparateur décimal, et que j'avais fait le programme avec le "point". Dès que j'ai changé la virgule en pt dans les paramètres régionaux tout est rentré dans l'ordre. Pour éviter de retrouver ce problème dès que je l'installe sur une nouvelle machine, Je voudrais savois s'il n'est pas possible de spécifier le type de séparateur utillisé dès le chargement du programme.
Quelqu'un à une idée ?
A bientot,
Lionel

[AASI]

salut
si tu veux dire le modifier, je te suggère pas de modifier les paramètres utilisateurs, ce n'est pas une très bonne facon de faire.
c'est le bobo avec VB d'avoir à construire le code de sorte à gérer les 2 possibilités.

j'ai ce code à placé dans un module pour connaitre le séparateur...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Public Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal locale As Long, _
    ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
 
Public Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
 
Public Const LOCALE_IDATE = &H21          'format de date courte : 0 = M-J-A, 1 = J-M-A, 2 = A-M-J
Public Const LOCALE_ILDATE = &H22         'format de date longue
Public Const LOCALE_SCOUNTRY = &H6        'pays en toutes lettres
Public Const LOCALE_SNATIVELANGNAME = &H4 'langue, en toutes lettres
Public Const LOCALE_STHOUSAND = &HF       'séparateur des milliers
Public Const LOCALE_SDECIMAL = &HE        'séparateur décimal
 
Public SeparateurDecimal As String
 
 
'Au démarrage du programme, ajouter l'appel suivant
' SeparateurDecimal = ParametreRegional(LOCALE_SDECIMAL)
 
 
 
Public Function ParametreRegional(parametre As Long) As String
Dim lngResultat As Long
Dim buffer As String
Dim pos As Integer
Dim locale As Long 'récupère l'identifiant de l'information locale de type utilisateur
locale = GetUserDefaultLCID() 'renvoie le nombre de caractères nécessaire pour recevoir la valeur du paramètre demandé
lngResultat = GetLocaleInfo(locale, parametre, buffer, 0)
buffer = String(lngResultat, 0)
GetLocaleInfo locale, parametre, buffer, lngResultat
pos = InStr(buffer, Chr(0))
If pos > 0 Then ParametreRegional = Left(buffer, pos - 1)
 
End Function

si ca te conviens

[ar_men]

sur la dates, je m'étais fait ma propre routine qui lisait la cahine de caractères
dès qu'elle rencontrait un "non numérique"
c'était un séparateur que je remplaçait par le mien par exexemple : "/"
puis je vérifias le nombre de jour, puis que les mois soient entre 1 et 12 ...
c une routine fort simple
(désolé de ne pouvoir la fournir n'ayant plus de VB)

oui il y a qq minutes à passer pour cela, mais quel confort ...
en plusieurs dizaines d'année d'utilisation mon logiciel ne c ja mais "planté" sur une date, malgré toutes les évolutions de gwbasic sur DOS à VB ...
les données entrées dans une zone de date de cette manière 1!12m97 se voyait transformée en : 1/12/1997 ou 1.12.1997 et enregistrée sur disque 19971201 (c mieux pour les tris) ...
... j'en dormais super bien la nuit ....