Cita:
En un formulario di formato de moneda a un campo, este formulario actualiza datos, sin embargo como puedo regresar la transformación del formato a un formato numerico simple, para que se actualize sin que me marque error por estar en formato de moneda.
Ejemplo:
total=1000
formatcurrency(total,2) ' me formatea $1,000.00
Al actualizar en mi campo numerico me marca error por el formato "$" y la "," de moneda.
¿que funcion me regresa a numero, sin ningun formato?
De antemano valoro mucho tu ayuda.
Ejemplo:
total=1000
formatcurrency(total,2) ' me formatea $1,000.00
Al actualizar en mi campo numerico me marca error por el formato "$" y la "," de moneda.
¿que funcion me regresa a numero, sin ningun formato?
De antemano valoro mucho tu ayuda.
y respondo por aca ya que por mensajes privados nose por que no se puede enviar mucho texto..en fin
checa esto
Cita:
si eso no funciona prueba sacando las comas y el $ con un replaceFunción FormatNumber
Devuelve una expresión con formato de número.
FormatNumber(Expresión [,NúmDigitosDespuésDeDecimal [,IncluirPrimerDígito [,UsarParenParaNúmNegativo [,GrupoDígitos]]]])
Argumentos
Expresión
Necesario. Expresión a la que se va a dar formato.
NúmDígitosDespuésDeDecimal
Opcional. Valor numérico que indica cuántos lugares a la derecha del decimal se van a mostrar. El valor predeterminado es -1, que indica que se utiliza la configuración regional del equipo.
IncluirPrimerDígito
Opcional. Constante para Tristate que indica si se muestra o no un cero delante en los valores fraccionales. Consulte la sección Valores para ver los valores.
UsarParenParaNúmNegativo
Opcional. Constante Tristate que indica si se escriben o no los valores negativos entre paréntesis. Consulte la sección Valores para ver los valores.
GrupoDígitos
Opcional. Constante Tristate que indica si se agrupan o no números con el delimitador de grupo especificado en el panel de control. Consulte la sección Valores para ver los valores.
Valores
Los argumentos IncluirPrimerDígito, UsarParenParaNúmNegativo y GrupoDígitos tienen los siguientes valores:
Constante Valor Descripción
TristateTrue -1 True (verdadero)
TristateFalse 0 False (falso)
TristateUseDefault -2 Utiliza la configuración regional del equipo.
Comentarios
Cuando se omiten uno o más argumentos opcionales, la configuración regional del equipo proporciona valores para los argumentos omitidos.
Nota Toda la información de configuración viene de la ficha Número de Configuración regional.
El siguiente ejemplo utiliza la función FormatNumber para dar formato a un número que tenga cuatro decimales:
Function EjemploDeFormatNumber
Dim MiAngulo, MiSecante, MiNumero
MiAngulo = 1.3 ' Define ángulo en radianes.
MiSecante = 1 / Cos(MiAngulo) ' Calcula secante.
EjemploDeFormatNumber = FormatNumber(MiSecante,4) ' Da formato a MiSecante para que tenga cuatro lugares decimales.
End Function
Devuelve una expresión con formato de número.
FormatNumber(Expresión [,NúmDigitosDespuésDeDecimal [,IncluirPrimerDígito [,UsarParenParaNúmNegativo [,GrupoDígitos]]]])
Argumentos
Expresión
Necesario. Expresión a la que se va a dar formato.
NúmDígitosDespuésDeDecimal
Opcional. Valor numérico que indica cuántos lugares a la derecha del decimal se van a mostrar. El valor predeterminado es -1, que indica que se utiliza la configuración regional del equipo.
IncluirPrimerDígito
Opcional. Constante para Tristate que indica si se muestra o no un cero delante en los valores fraccionales. Consulte la sección Valores para ver los valores.
UsarParenParaNúmNegativo
Opcional. Constante Tristate que indica si se escriben o no los valores negativos entre paréntesis. Consulte la sección Valores para ver los valores.
GrupoDígitos
Opcional. Constante Tristate que indica si se agrupan o no números con el delimitador de grupo especificado en el panel de control. Consulte la sección Valores para ver los valores.
Valores
Los argumentos IncluirPrimerDígito, UsarParenParaNúmNegativo y GrupoDígitos tienen los siguientes valores:
Constante Valor Descripción
TristateTrue -1 True (verdadero)
TristateFalse 0 False (falso)
TristateUseDefault -2 Utiliza la configuración regional del equipo.
Comentarios
Cuando se omiten uno o más argumentos opcionales, la configuración regional del equipo proporciona valores para los argumentos omitidos.
Nota Toda la información de configuración viene de la ficha Número de Configuración regional.
El siguiente ejemplo utiliza la función FormatNumber para dar formato a un número que tenga cuatro decimales:
Function EjemploDeFormatNumber
Dim MiAngulo, MiSecante, MiNumero
MiAngulo = 1.3 ' Define ángulo en radianes.
MiSecante = 1 / Cos(MiAngulo) ' Calcula secante.
EjemploDeFormatNumber = FormatNumber(MiSecante,4) ' Da formato a MiSecante para que tenga cuatro lugares decimales.
End Function
Cita:
y de pasada lee estoFunción Replace
Devuelve una cadena en la que una subcadena se ha sustituido por otra subcadena un número de veces especificado.
Replace(expresión, buscar, reemplazarCon[, inicio[, número[, comparar]]])
Argumentos
expresión
Requerido. Expresión de cadena que contiene la subcadena que se va a reemplazar.
buscar
Requerido. Subcadena que se busca.
reemplazarCon
Requerido. Subcadena de reemplazo.
inicio
Opcional. Posición dentro de expresión donde va a comenzar la subcadena de búsqueda. Si se omite, se supone 1. Se debe utilizar junto con número.
número
Opcional. Número de sustituciones de subcadena que se va a realizar. Si se omite, el valor predeterminado es -1, que significa hacer todas las sustituciones posibles. Se debe utilizar junto con inicio.
comparar
Opcional. Valor numérico que indica el tipo de comparación que se va a utilizar cuando se evalúen subcadenas. Consulte la sección Valores para ver los valores. Si se omite, el valor predeterminado es 0, que significa realizar una comparación binaria.
Valores
El argumento comparar puede tener los siguientes valores:
Constante Valor Descripción
vbBinaryCompare 0 Realiza una comparación binaria.
vbTextCompare 1 Realiza una comparación textual.
Valores de retorno
Replace devuelve los siguientes valores:
Si Replace devuelve
expresión es de longitud cero Cadena de longitud cero ("").
expresión es Null Un error.
buscar es de longitud cero Copia de expresión.
reemplazarcon es de longitud cero Copia de expresión con todas las apariciones de buscar eliminadas.
inicio > Len(expresión) Cadena de longitud cero.
número es 0 Copia de expresión.
Comentarios
El valor de retorno de la función Replace es una cadena, con sustituciones realizadas, que comienza en la posición especificada por inicio y termina al final de la cadena expresión. No es una copia de la cadena original de principio a fin.
El siguiente ejemplo utiliza la función Replace para devolver una cadena:
Dim MiCadena
MiCadena = Replace("XXpXXPXXp", "p", "Y") ' Una comparación binaria que comienza en el principio de la cadena. Devuelve "XXYXXPXXY".
MiCadena = Replace("XXpXXPXXp", "p", "Y", ' Una comparación textual que comienza en la posición 3. Devuelve "YXXYXXY". 3, -1, 1)
Devuelve una cadena en la que una subcadena se ha sustituido por otra subcadena un número de veces especificado.
Replace(expresión, buscar, reemplazarCon[, inicio[, número[, comparar]]])
Argumentos
expresión
Requerido. Expresión de cadena que contiene la subcadena que se va a reemplazar.
buscar
Requerido. Subcadena que se busca.
reemplazarCon
Requerido. Subcadena de reemplazo.
inicio
Opcional. Posición dentro de expresión donde va a comenzar la subcadena de búsqueda. Si se omite, se supone 1. Se debe utilizar junto con número.
número
Opcional. Número de sustituciones de subcadena que se va a realizar. Si se omite, el valor predeterminado es -1, que significa hacer todas las sustituciones posibles. Se debe utilizar junto con inicio.
comparar
Opcional. Valor numérico que indica el tipo de comparación que se va a utilizar cuando se evalúen subcadenas. Consulte la sección Valores para ver los valores. Si se omite, el valor predeterminado es 0, que significa realizar una comparación binaria.
Valores
El argumento comparar puede tener los siguientes valores:
Constante Valor Descripción
vbBinaryCompare 0 Realiza una comparación binaria.
vbTextCompare 1 Realiza una comparación textual.
Valores de retorno
Replace devuelve los siguientes valores:
Si Replace devuelve
expresión es de longitud cero Cadena de longitud cero ("").
expresión es Null Un error.
buscar es de longitud cero Copia de expresión.
reemplazarcon es de longitud cero Copia de expresión con todas las apariciones de buscar eliminadas.
inicio > Len(expresión) Cadena de longitud cero.
número es 0 Copia de expresión.
Comentarios
El valor de retorno de la función Replace es una cadena, con sustituciones realizadas, que comienza en la posición especificada por inicio y termina al final de la cadena expresión. No es una copia de la cadena original de principio a fin.
El siguiente ejemplo utiliza la función Replace para devolver una cadena:
Dim MiCadena
MiCadena = Replace("XXpXXPXXp", "p", "Y") ' Una comparación binaria que comienza en el principio de la cadena. Devuelve "XXYXXPXXY".
MiCadena = Replace("XXpXXPXXp", "p", "Y", ' Una comparación textual que comienza en la posición 3. Devuelve "YXXYXXY". 3, -1, 1)
Cita:
Función FormatCurrency
Devuelve una expresión con formato de moneda con el símbolo de moneda definido en el panel de control del sistema.
FormatCurrency(Expresión[,NúmDígitosDespuésDeDecimal [,IncluirPrimerDígito [,UsarParenParaNúmNegativo [,GrupoDígitos]]]])
Argumentos
Expresión
Necesario. Expresión a la que se va a dar formato.
NúmDígitosDespuésDeDecimal
Opcional. Valor numérico que indica cuántos lugares a la derecha del decimal se van a mostrar. El valor predeterminado es -1, que indica que se utiliza la configuración regional del equipo.
IncluirPrimerDígito
Opcional. Constante para Tristate que indica si se muestra o no un cero delante en los valores fraccionales. Consulte la sección Valores para ver los valores.
UsarParenParaNúmNegativo
Opcional. Constante para Tristate que indica si se escriben o no los valores negativos entre paréntesis. Consulte la sección Valores para ver los valores.
GrupoDígitos
Opcional. Constante para Tristate que indica si se agrupan o no los números con el delimitador de grupo especificado en la configuración regional del equipo. Consulte la sección Valores para ver los valores.
Valores
Los argumentos IncluirPrimerDígito, UsarParenParaNúmNegativo y GrupoDígitos tienen los siguientes valores:
Constante Valor Descripción
TristateTrue -1 True (verdadero)
TristateFalse 0 False (falso)
TristateUseDefault -2 Utiliza la configuración regional del equipo.
Comentarios
Cuando se omiten uno o más argumentos opcionales, la configuración regional del equipo proporciona valores para los argumentos omitidos. La posición del símbolo monetario relativo al valor de moneda se determina a partir de la configuración regional del sistema.
Nota Toda la información de configuración procede de la ficha Moneda de Configuración regional, excepto el cero inicial que procede de la ficha Número.
El siguiente ejemplo utiliza la función FormatCurrency para dar a la expresión el formato de moneda y asignarla a MiCurrency:
Dim MiCurrency
MiCurrency = FormatCurrency(1000) ' MiCurrency contiene 1000,00 $.
Devuelve una expresión con formato de moneda con el símbolo de moneda definido en el panel de control del sistema.
FormatCurrency(Expresión[,NúmDígitosDespuésDeDecimal [,IncluirPrimerDígito [,UsarParenParaNúmNegativo [,GrupoDígitos]]]])
Argumentos
Expresión
Necesario. Expresión a la que se va a dar formato.
NúmDígitosDespuésDeDecimal
Opcional. Valor numérico que indica cuántos lugares a la derecha del decimal se van a mostrar. El valor predeterminado es -1, que indica que se utiliza la configuración regional del equipo.
IncluirPrimerDígito
Opcional. Constante para Tristate que indica si se muestra o no un cero delante en los valores fraccionales. Consulte la sección Valores para ver los valores.
UsarParenParaNúmNegativo
Opcional. Constante para Tristate que indica si se escriben o no los valores negativos entre paréntesis. Consulte la sección Valores para ver los valores.
GrupoDígitos
Opcional. Constante para Tristate que indica si se agrupan o no los números con el delimitador de grupo especificado en la configuración regional del equipo. Consulte la sección Valores para ver los valores.
Valores
Los argumentos IncluirPrimerDígito, UsarParenParaNúmNegativo y GrupoDígitos tienen los siguientes valores:
Constante Valor Descripción
TristateTrue -1 True (verdadero)
TristateFalse 0 False (falso)
TristateUseDefault -2 Utiliza la configuración regional del equipo.
Comentarios
Cuando se omiten uno o más argumentos opcionales, la configuración regional del equipo proporciona valores para los argumentos omitidos. La posición del símbolo monetario relativo al valor de moneda se determina a partir de la configuración regional del sistema.
Nota Toda la información de configuración procede de la ficha Moneda de Configuración regional, excepto el cero inicial que procede de la ficha Número.
El siguiente ejemplo utiliza la función FormatCurrency para dar a la expresión el formato de moneda y asignarla a MiCurrency:
Dim MiCurrency
MiCurrency = FormatCurrency(1000) ' MiCurrency contiene 1000,00 $.
