Normalmente edito y creo reportes (en su mayoría) de Crystal Repots XI. Y muchas veces me demoró en la edición por cosas como estas. Por ello decidí abrir esta nueva sección…
Vamos al caso que nos compete en esta ocasión:
Quitar los decimales al usar las funciones cstr o totext
//Ejemplo con cstr con sintaxis Crystal
NumberVar Numero := 200.555;
cstr(Numero, 0);
//End
//Ejemplo con toText con sintaxis Crystal
NumberVar Numero:= 200.555;
ToText(Numero, 0);
//End
Algunos Ejemplos de la función cstr (se aplican para la función totext)
Los siguientes ejemplos son aplicables tanto a sintaxis Basic como Crystal:
- CStr ({Pedidos.Enviados})
Devuelve Verdadero cuando el valor en ({pedidos.ENVIADOS}) es verdadero.
Devuelve «123,45».
Devuelve «12345,67».
Devuelve «12345,68».
Devuelve «12345».
Devuelve «12346».
- CStr({archivo.MONTO} * {archivo.CANTIDAD})
Devuelve «44,890.20» cuando Monto = 24.45 y Cantidad = 1836.
«El precio base del elemento # » + {archivo.NÚMERO DE ELEMENTO} + » es $» + CStr({archivo.PRECIO BASE}) + «.»
Imprime la oración «El precio base del elemento A1/4520/B12 es $50.00.» cuando el Número de Elemento es A1/4520/B12 y Precio Base es 50.00, convertido a texto y con formato de dos lugares decimales.
- CStr(CDate(1996, 11, 1), «aa MMM dd, dddd»)
Devuelve «Viernes, 01 Nov 96».
- CStr(CDateTime(1995,10,12,3,30,11),»HH:mm, aa MMMM ddd»)
Devuelve «03:30, 95 octubre jue.».
- CStr(CTime(12, 10, 10), «HH*mm*ss tt», «amStr», «pmStr»)
Devuelve «12*10*10 pmStr».