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”.