Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ 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 ~
 Rechercher un site :
  

~ Partenaires ~

Fonction : LireSymbole
Retourne les différents composants des symbôles monétaires en vigueur sur votre système.
(Consulté 18041 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
Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr