' /=======================================\
' | MODULE:    modRegionalSettings
' | CREATED:   2004-05-11 13:09:03
' | COPYRIGHT:  Copyright ©1996-2002 VBnet, Randy Birch, All Rights Reserved.
' |            Terms of use http://www.mvps.org/vbnet/terms/pages/terms.htm
' :---------------------------------------:
' | DESCRIPTION:
' |
' | Ce module permet d'aller chercher les
' | paramètres du "regional settings".
' |
' \=======================================/

Option Explicit
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Copyright ©1996-2001 VBnet, Randy Birch, All Rights Reserved.
' Some pages may also contain other copyrights by the author.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' You are free to use this code within your own applications,
' but you are expressly forbidden from selling or otherwise
' distributing this source code without prior written consent.
' This includes both posting free demo projects made from this
' code as well as reproducing the code in text or html format.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Enum eLOCALE
   LOCALE_SDECIMAL = &HE         'decimal separator
   LOCALE_STHOUSAND = &HF        'thousand separator
   LOCALE_SGROUPING = &H10       'digit grouping
   LOCALE_IDIGITS = &H11         'number of fractional digits
   LOCALE_ILZERO = &H12          'leading zeros for decimal
   LOCALE_INEGNUMBER = &H1010    'negative number mode
   LOCALE_SNATIVEDIGITS = &H13   'native ASCII 0-9
   LOCALE_SPOSITIVESIGN = &H50   'positive sign
   LOCALE_SNEGATIVESIGN = &H51   'negative sign
   
   LOCALE_ILANGUAGE = &H1                'language id
   LOCALE_SLANGUAGE = &H2                'localized name of lang
   LOCALE_SENGLANGUAGE = &H1001          'English name of lang
   LOCALE_SABBREVLANGNAME = &H3          'abbreviated lang name
   LOCALE_SNATIVELANGNAME = &H4          'native name of lang
   LOCALE_ICOUNTRY = &H5                 'country code
   LOCALE_SCOUNTRY = &H6                 'localized name of country
   LOCALE_SENGCOUNTRY = &H1002           'English name of country
   LOCALE_SABBREVCTRYNAME = &H7          'abbreviated country name
   LOCALE_SNATIVECTRYNAME = &H8          'native name of country
   LOCALE_SINTLSYMBOL = &H15             'intl monetary symbol
   LOCALE_IDEFAULTLANGUAGE = &H9         'def language id
   LOCALE_IDEFAULTCOUNTRY = &HA          'def country code
   LOCALE_IDEFAULTCODEPAGE = &HB         'def oem code page
   LOCALE_IDEFAULTANSICODEPAGE = &H1004  'def ansi code page
   LOCALE_IDEFAULTMACCODEPAGE = &H1011   'def mac code page

   LOCALE_IMEASURE = &HD                  '0 = metric, 1 = US

'#if(WINVER >=  &H0400)
   LOCALE_SISO639LANGNAME = &H59         'ISO abbreviated language name
   LOCALE_SISO3166CTRYNAME = &H5A        'ISO abbreviated country name
'#endif /* WINVER >= &H0400 */

'#if(WINVER >=  &H0500)
   LOCALE_SNATIVECURRNAME = &H1008        'native name of currency
   LOCALE_IDEFAULTEBCDICCODEPAGE = &H1012 'default ebcdic code page
   LOCALE_SSORTNAME = &H1013              'sort name

End Enum

Public Declare Function GetThreadLocale Lib "kernel32" () As Long

Public Declare Function GetUserDefaultLCID Lib "kernel32" () As Long

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 Function GetUserLocaleInfo(ByVal dwLCType As eLOCALE) As String

   Dim sReturn As String
   Dim r As Long
   Static LCID As Long
   
   If LCID = 0 Then
      LCID = GetUserDefaultLCID()
   End If
 
  'call the function passing the Locale type
  'variable to retrieve the required size of
  'the string buffer needed
   r = GetLocaleInfo(LCID, dwLCType, sReturn, Len(sReturn))
   
  'if successful..
   If r Then
   
     'pad the buffer with spaces
      sReturn = Space$(r)
       
     'and call again passing the buffer
      r = GetLocaleInfo(LCID, dwLCType, sReturn, Len(sReturn))
     
     'if successful (r > 0)
      If r Then
     
        'r holds the size of the string
        'including the terminating null
         GetUserLocaleInfo = Left$(sReturn, r - 1)
     
      End If
   
   End If
   
End Function

        Dim nbdec As Integer, NombreCorrige As Double
        nbdec = Len(TextBox1.Text) - (InStr(TextBox1.Text, ".") + InStr(TextBox1.Text, ","))
        NombreCorrige = CDbl(Replace(Replace(TextBox1.Text, ".", ""), ",", "")) / (10 ^ nbdec)
        TextBox2.Text = CStr(NombreCorrige)