Code - Visual Basic Research Center

~ Edito ~

12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

~ Annuaire VB ~

~ Partenaires ~

Retour à la liste des fonctions

Fonction : LireSymbole
Retourne les différents composants des symbôles monétaires en vigueur sur votre système.
(Consulté 19281 fois.)

' Déclaration de la fonction API
Private 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
' Déclaration des constantes
Private Const LOCALE_USER_DEFAULT = &H400
' Utilisation d'un énumération pour la fonction
Public Enum eInfoMonetaire
    LOCALE_SCURRENCY = &H14 ' Symbole monétaire
    LOCALE_SINTLSYMBOL = &H15 ' Symbole monétaire sur 3 caractères
                                  ' (représentation internationale ISO 4217)
    LOCALE_SMONDECIMALSEP = &H16 ' Séparateur décimal monétaire
    LOCALE_SMONTHOUSANDSEP = &H17 ' Séparateur de millier monétaire
    LOCALE_ICURRDIGITS = &H19 ' Précision décimale monétaire
                                  ' (nombre de chiffre après la virgule)
End Enum

Public Function LireSymbole(lgTypeInfo As eInfoMonetaire) As String
Dim lgRep As Long
Dim stTmp As String
stTmp = Space$(50)
lgRep = GetLocaleInfo(LOCALE_USER_DEFAULT, lgTypeInfo, stTmp, 49)
If (lgRep <> 0) Then
    LireSymbole = Mid$(stTmp, 1, InStr(1, stTmp, vbNullChar))
Else
    LireSymbole = vbNullString
End If
End Function

Retour à la liste des fonctions