Visual Basic - Símbolo de separador de decimales

Life is soft - evento anual de software empresarial
 
Vista:

Símbolo de separador de decimales

Publicado por Alejandro A. Llerandi (20 intervenciones) el 30/07/2005 16:41:21
Hola:
En mi configuración regional tengo predeterminado a la "," (coma) como separador de decimales, pero necesito que al momento de escribir un número con decimales en un archivo de texto (.txt), el separador de decimales sea el "." (punto) y no el que tengo predeterminado en el sistema. ¿Cómo puedo hacerlo?
Desde ya muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Símbolo de separador de decimales

Publicado por Cecilia Colalongo (3116 intervenciones) el 30/07/2005 22:27:07
Puedes buscar el símbolo decimal del sistema (sea el que fuere) y reemplazarlo por el punto que necesitas, al momento de escribir el archivo TXT puedes hacer:

Replace(CampoNumerico,GetLocaleDecimalSep,".")

Public Const LOCALE_SDECIMAL = &HE

Public Declare Function GetUserDefaultLangID Lib "kernel32" () As Integer
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 GetLocaleDecimalSep() As String
Dim strBuffer As String

strBuffer = String(255, " ")

GetLocaleInfo GetUserDefaultLCID, LOCALE_SDECIMAL, strBuffer, 255

GetLocaleDecimalSep = Trim(Replace(strBuffer, Chr(0), ""))

End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar