Recuperation de parametres regionaux !

Bonjour a tous,
sur chacun de mes projets, la manipulation des chiffres et des dates est assez perilleuses selon les parametres regionaux de chaque poste .
Afin de manipuler ces dates et ces chiffers, je voudrai savoir comment recuperer le format de date et le séparateur decimal des chiffres en VB ... ( et ainsi l'ensemble des parametres regionaux ! )

Je vous remercie d'avance sivous connaisez un moyen efficace pour recuperer ces valeurs .

Merci

Bonjour,


Voici de quoi récupérer ce que tu veux

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 sub RecupSeparateur
Dim lplcdate As String * 1
Dim result As Long
Const LOCALE_SDECIMAL = &HE
Const LOCALE_STHOUSAND = &HF

result = GetLocaleInfo(1024, LOCALE_SDECIMAL, lplcdate, 2)
If result <> 0 Then
SeparateurDecimales = lplcdate
End If
result = GetLocaleInfo(1024, LOCALE_STHOUSAND, lplcdate, 2)
If result <> 0 Then
SeparateurMillier = lplcdate
End If
end sub


Cordialement

sébastien Ferrier
Concepteur composants
Alfa Info
s.ferrier@alfainfo.fr




-------------------------------
Réponse au message :
-------------------------------

Bonjour a tous,
sur chacun de mes projets, la manipulation des chiffres et des dates est assez perilleuses selon les parametres regionaux de chaque poste .
Afin de manipuler ces dates et ces chiffers, je voudrai savoir comment recuperer le format de date et le séparateur decimal des chiffres en VB ... ( et ainsi l'ensemble des parametres regionaux ! )

Je vous remercie d'avance sivous connaisez un moyen efficace pour recuperer ces valeurs .

Merci

Merci de l'information mais pourrai je avoir des precisions sur les valeurs des constantes ! On les trouve ou ! Je n'arrive pas a recuperer le format de date :"dd/mm/yyyy" par example !
Comment puis je faire !

Merci


-------------------------------
Réponse au message :
-------------------------------

Bonjour,


Voici de quoi récupérer ce que tu veux

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 sub RecupSeparateur
Dim lplcdate As String * 1
Dim result As Long
Const LOCALE_SDECIMAL = &HE
Const LOCALE_STHOUSAND = &HF

result = GetLocaleInfo(1024, LOCALE_SDECIMAL, lplcdate, 2)
If result <> 0 Then
SeparateurDecimales = lplcdate
End If
result = GetLocaleInfo(1024, LOCALE_STHOUSAND, lplcdate, 2)
If result <> 0 Then
SeparateurMillier = lplcdate
End If
end sub


Cordialement

sébastien Ferrier
Concepteur composants
Alfa Info
s.ferrier@alfainfo.fr




-------------------------------
Réponse au message :
-------------------------------

Bonjour a tous,
sur chacun de mes projets, la manipulation des chiffres et des dates est assez perilleuses selon les parametres regionaux de chaque poste .
Afin de manipuler ces dates et ces chiffers, je voudrai savoir comment recuperer le format de date et le séparateur decimal des chiffres en VB ... ( et ainsi l'ensemble des parametres regionaux ! )

Je vous remercie d'avance sivous connaisez un moyen efficace pour recuperer ces valeurs .

Merci