Dim NumberToPrint As Decimal = "-232,53" 'Creamos un objeto de tipo NumberFormatInfo basado en un formato existente Dim objCulture As Globalization.NumberFormatInfo = _ New Globalization.CultureInfo("ES-ES").NumberFormat 'Uno a uno cambiamos las propiedades de ese formato (en este caso estamos repitiendo valores por defecto para la demostración) objCulture.CurrencyDecimalDigits = 1 objCulture.CurrencyDecimalSeparator = ","objCulture.CurrencyGroupSeparator = "."objCulture.CurrencyNegativePattern = 1 'Ahora simplemente aplicamos el formato llamando a ToString() el C representa currenc y objCulture el objeto que hemos creado antes Response.Write(NumberToPrint.ToString( "C", objCulture)) |