Reporte con formato de fecha
¿Qué debo de hacer para imprimir mis reportes con formatode fecha "viernes 11 de febrero de 2005" tendrás alguna función?
Mi correo es [email protected]
Mi correo es [email protected]
1 Respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
Intenta con algo similar a:
FUNCTION fLarga
PARAMETERS m.dFecha
LOCAL m.aMes, m.aDia
DIMENSION m.aMes(12), m.aDia(7)
m.aMes[01] = "Enero"
m.aMes[02] = "Febrero"
m.aMes[03] = "Marzo
m.aMes[04] = "Abril"
m.aMes[05] = "Mayo"
m.aMes[06] = "Junio"
m.aMes[07] = "Julio"
m.aMes[08] = "Agosto"
m.aMes[09] = "Septiembre"
m.aMes[10] = "Octubre"
m.aMes[11] = "Noviembre"
m.aMes[12] = "Diciembre"
m.aDia[1] = "lunes"
m.aDia[2] = "martes"
m.aDia[3] = "miercoles"
m.aDia[4] = "jueves"
m.aDia[5] = "viernes"
m.aDia[6] = "sábado"
m.aDia[7] = "domingo"
RETURN m.aDia[ DOW( m.dFecha, 2 ) ] + " " + PADL( ALLTRIM( STR( DAY( m.dFecha ) ) ), 2, '0' ) + " de " + aMes[ MONTH( m.dFecha ) ] + " de " + STR( YEAR( m.dFecha ) )
Endfunc
... bueno, eso digo yo.
VíCTOR.
FUNCTION fLarga
PARAMETERS m.dFecha
LOCAL m.aMes, m.aDia
DIMENSION m.aMes(12), m.aDia(7)
m.aMes[01] = "Enero"
m.aMes[02] = "Febrero"
m.aMes[03] = "Marzo
m.aMes[04] = "Abril"
m.aMes[05] = "Mayo"
m.aMes[06] = "Junio"
m.aMes[07] = "Julio"
m.aMes[08] = "Agosto"
m.aMes[09] = "Septiembre"
m.aMes[10] = "Octubre"
m.aMes[11] = "Noviembre"
m.aMes[12] = "Diciembre"
m.aDia[1] = "lunes"
m.aDia[2] = "martes"
m.aDia[3] = "miercoles"
m.aDia[4] = "jueves"
m.aDia[5] = "viernes"
m.aDia[6] = "sábado"
m.aDia[7] = "domingo"
RETURN m.aDia[ DOW( m.dFecha, 2 ) ] + " " + PADL( ALLTRIM( STR( DAY( m.dFecha ) ) ), 2, '0' ) + " de " + aMes[ MONTH( m.dFecha ) ] + " de " + STR( YEAR( m.dFecha ) )
Endfunc
... bueno, eso digo yo.
VíCTOR.
Podrías decirme donde coloco esta fucion y desde donde la tengo que llamar en un reporte, gracias
Puedes colocar como un módulo (PRG) independiente. En este caso, elimina la primera línea (FUNCTION fLarga) y la última (ENDFUNC)
También lo puedes colocar, sin ninguna modificación, en un archivo de procedimientos.
Para la explicación de como invocarlo desde el reporte supondré que el módulo independiente se llama "fLarga"
En el diseñador de reportes agrega un campo cuyo contenido sería:
fLarga( Tabla1.campo_fecha)
También lo puedes colocar, sin ninguna modificación, en un archivo de procedimientos.
Para la explicación de como invocarlo desde el reporte supondré que el módulo independiente se llama "fLarga"
En el diseñador de reportes agrega un campo cuyo contenido sería:
fLarga( Tabla1.campo_fecha)
