Configuracion Regional

Hola Mauricio,

espero que te sirva el siguiente artículo que escribí:
http://www.microsoft.com/spanish/ms...art116.asp

Un saludo,

Jorge Serrano
MVP VB.NET



"Mauricio Henao Romero" wrote:

Hola a todos.

Ojala puedan ayudarme.

en un aplicacion ASP.NET, realizada en VB.NET, tengo calculos matematicos y
de fechas.
Pero todos estos datos se muestran de acuerdo a la forma en que lo hace el
SqlServer por Dafual.
Ahora bien, el usuario desea que esos detalles de datos los tome el sistema
de acuerdo a la configuracion del PC, es decir, que los decimales se muestren
con comas (,) y no con puntos (.)

Ademas, desea que algunos campos tengan 2,3o 4 decimales.
Como puedo hjacer esto ?

Muchas gracias.

Hola Jorge.

Mil gracias por la respuesta.
Ahora bien, en tu codigo nos muestras:

Dim MiFormato As NumberFormatInfo = New CultureInfo
MiCultura.CurrentCulture.ToString(), False).NumberFormat

MiFormato.NumberDecimalSeparator = "."

Yo no quiero decirle cual es el separador decimal, deseo que el sistema
mismo lo reconosca.

"Jorge Serrano [MVP VB]" wrote:

Hola Mauricio,

espero que te sirva el siguiente artículo que escribí:
http://www.microsoft.com/spanish/ms...art116.asp

Un saludo,

Jorge Serrano
MVP VB.NET



"Mauricio Henao Romero" wrote:

> Hola a todos.
>
> Ojala puedan ayudarme.
>
> en un aplicacion ASP.NET, realizada en VB.NET, tengo calculos matematicos y
> de fechas.
> Pero todos estos datos se muestran de acuerdo a la forma en que lo hace el
> SqlServer por Dafual.
> Ahora bien, el usuario desea que esos detalles de datos los tome el sistema
> de acuerdo a la configuracion del PC, es decir, que los decimales se muestren
> con comas (,) y no con puntos (.)
>
> Ademas, desea que algunos campos tengan 2,3o 4 decimales.
> Como puedo hjacer esto ?
>
> Muchas gracias.
>

Usar el formato que tenga configurado el usuario que ve la pagina no es
posible porque la aplicacion web no tiene acceso a la configuracion regional
del cliente. Lo mas cercano es la informacion de lenguaje que envia el
navegador en los encabezados. Usando esa informacion puedes crear un
CultureInfo para formatear los datos. Esta funcion te devuelve un
CultureInfo para la primer lengua que enviada por el navegador que pueda ser
usada para formatear datos (las lenguas neutrales, aquellas que no
especifican pais, no sirven para formatear datos)

Function GetClientCulture() As Globalization.CultureInfo

Dim acceptLang As String Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
Dim langs() As String = acceptLang.Split(","c)
Dim ci As Globalization.CultureInfo

For i As Integer = 0 To langs.Length - 1
Dim name As String

name = langs(i)

If name.IndexOf(";"c) <> -1 Then
name = name.Substring(0, name.IndexOf(";"c))
End If

ci = New Globalization.CultureInfo(name)

If Not ci.IsNeutralCulture Then Return ci

Next

If ci Is Nothing Then Return Globalization.CultureInfo.InvariantCulture

End Function

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo

Eduardo:
en una aplicacion winforms, puedo tomar la configuracion regional del SO?
O siempre debo forzarla de acuerdo a como se almacena los datos en la base
de dato

"Eduardo A. Morcillo [MS MVP VB]" wrote:

Usar el formato que tenga configurado el usuario que ve la pagina no es
posible porque la aplicacion web no tiene acceso a la configuracion regional
del cliente. Lo mas cercano es la informacion de lenguaje que envia el
navegador en los encabezados. Usando esa informacion puedes crear un
CultureInfo para formatear los datos. Esta funcion te devuelve un
CultureInfo para la primer lengua que enviada por el navegador que pueda ser
usada para formatear datos (las lenguas neutrales, aquellas que no
especifican pais, no sirven para formatear datos)

Function GetClientCulture() As Globalization.CultureInfo

Dim acceptLang As String > Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
Dim langs() As String = acceptLang.Split(","c)
Dim ci As Globalization.CultureInfo

For i As Integer = 0 To langs.Length - 1
Dim name As String

name = langs(i)

If name.IndexOf(";"c) <> -1 Then
name = name.Substring(0, name.IndexOf(";"c))
End If

ci = New Globalization.CultureInfo(name)

If Not ci.IsNeutralCulture Then Return ci

Next

If ci Is Nothing Then Return Globalization.CultureInfo.InvariantCulture

End Function

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo