FiveTech Support Forums

Amigos

Muy buenas tardes.

Tengo un problema o es error mio.

Necesito obtener el Nombre del Día de la Semana, para lo cual uso de la siguiente Forma:

cdow(Date()), mi problema es que obtengo "Sábado", con acento, quisiera obtener cada dia, sin acento. Podría ser " Sabado " o " Saturday ".

Muchos Saludos
Antonio

Saludos, yo que tu me creo un array publico con los dias de la semana, entonces uso en una VAR el numero del dia y eso hacia la posicion del array, asi lo hago con los meses y en mi tabla o dbf solo guardo el dia del mes o de la semana y cuando muestro se ve es los nombres de los meses o dias de la semana, saludos...gracias...

Bayron wrote:

Code (fw): Select all Collapse

DayOfWeek := STRTRAN(cdow(Date()), "á", "a")

joseluisysturiz wrote:Saludos, yo que tu me creo un array publico con los dias de la semana, entonces uso en una VAR el numero del dia y eso hacia la posicion del array, asi lo hago con los meses y en mi tabla o dbf solo guardo el dia del mes o de la semana y cuando muestro se ve es los nombres de los meses o dias de la semana, saludos...gracias...

remtec wrote:

joseluisysturiz wrote:Saludos, yo que tu me creo un array publico con los dias de la semana, entonces uso en una VAR el numero del dia y eso hacia la posicion del array, asi lo hago con los meses y en mi tabla o dbf solo guardo el dia del mes o de la semana y cuando muestro se ve es los nombres de los meses o dias de la semana, saludos...gracias...

Hola Jose Luis.

Muchas gracias por responder.

Segun lo que tu me indicas, tengo la siguiente duda.

Si tengo un Array con los dias de las Semana de "Lunes a Domingo", y por ejemplo el mes de Noviembre con los dias del 01 al 30, como podria saber que el "13/11/2019" corresponde a dia " Miercoles ", cualquier fecha, si en el Array solo tengo los nombres de los 7 dias.

Quisas yo este muy confundido o no entiendo tu explicacion.

Espero por comentarios.

Muchos Saludos.
Antonio

*** "Days in month..:", DaysInMonth( dDate )
*** "Day of year....:", DoY( dDate )
*** "Begin of month.:", BoM( dDate )
*** "End of month...:", EoM( dDate )
*** "Week of month..:", WoM( dDate )
*** "Week of year...:", WoY( dDate )
*** "Begin of year..:", BoY( dDate )
*** "End of year....:", EoY( dDate )

Hola Jose Luis

Reitero las gracias por tu tiempo y ayuda.

Efectivamente lo que necesito es que para cualquier fecha del Mes, el nombre del Dia.

Pense que me seria mas facil, lo hacia en el querido Clipper hace muchos años, pero en Fwh 17.09 y Harbour, me he complicado enormemente, pero requiero dar con la solucion. No creo que sea el unico que ha requerido de esto.

Muchos Saludos.

Antonio.

Hola Antonio,

te paso una función que tengo donde genero el dia de la fecha, espero y te sirva:

FUNCTION Fecha( dFecha )
LOCAL cLeyenda, aDias, aMeses

DEFAULT dFecha := Date()

aDias := { "Domingo, ","Lunes, ","Martes, ","Miercoles, ","Jueves, ","Viernes, ","Sabado, " }
aMeses := { "Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre" }

cLeyenda := aDias[ DoW( dFecha ) ] + Str( Day( dFecha ),2 ) + " de " + aMeses[ Month( dFecha ) ] + ;
" de " + Str( Year( dFecha ),4 )

Return cLeyenda

Cualquier duda estoy a tus ordenes

Saludos!

Eduardo Borondón Muñiz

EBM wrote:Hola Antonio,

te paso una función que tengo donde genero el dia de la fecha, espero y te sirva:


FUNCTION Fecha( dFecha )
LOCAL cLeyenda, aDias, aMeses

DEFAULT dFecha := Date()

aDias := { "Domingo, ","Lunes, ","Martes, ","Miercoles, ","Jueves, ","Viernes, ","Sabado, " }
aMeses := { "Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre" }

cLeyenda := aDias[ DoW( dFecha ) ] + Str( Day( dFecha ),2 ) + " de " + aMeses[ Month( dFecha ) ] + ;
" de " + Str( Year( dFecha ),4 )

Return cLeyenda

Cualquier duda estoy a tus ordenes

Saludos!

Eduardo Borondón Muñiz

de 2000

del 2000

FUNCTION FechaLet()
    LOCAL cMes := { 'Enero     ', 'Febrero   ', 'Marzo     ', 'Abril     ',;
        'Mayo      ', 'Junio     ', 'Julio     ', 'Agosto    ',;
        'Septiembre', 'Octubre   ', 'Noviembre ', 'Diciembre ' }

    LOCAL cDia   := { 'Domingo', 'Lunes','Martes','Miércoles',;
        'Jueves','Viernes','Sábado'}

    LOCAL FechaLet := cDia[ DoW(Date( ) ) ] + ', ' +;
        Str(Day(Date( ) ) ) + ' de ' +;
        AllTrim(cMes[ Month(Date( ) ) ] ) +;
        IF(Year(Date( ) ) > 2000, ' del ', ' de ') +;
        Str(Year(Date( ) ) )

RETURN FechaLet

Hola Amigos.

Muchas gracias a todos los colegas que me ayudaron a solucionar este problema, hoy ya funciona Perfecto.

Muchos Saludos.

Antonio