Ayuda para Obtener el Dia de Semana de Fecha SOLUCIONADO

[remtec]

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

[joseluisysturiz]

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]

Code: Select all  Expand view  RUN

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

 

[remtec]

Code: Select all  Expand view  RUN

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

 

Hola Bayron

Muchas gracias por tu ayuda.

Para poder obtener el nombre sin acento, a tu sugerencia la tuve que modificar asi:

DayOfWeek := STRTRAN(OemToAnsi(cdow(fe)), "á", "a")

No se si de esta forma, hay opcion.

Muchos Saludos.

Antonio

[remtec]

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

[joseluisysturiz]

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

saludos, crei solo buscabas saber el dia de semana en algo corto, no por una fecha completa, asi como dices lo que te digo no te sirve si no de la forma que lo piensas hacer, aca te dejo algo que te podria servir, saludos, gracias...

Code: Select all  Expand view  RUN

*** "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 )
 

[remtec]

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.

[EBM]

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

[remtec]

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

Hola Eduardo Borondón Muñiz

Mil gracias por tu gentileza, ayuda y disposición.

He realizado varias pruebas y Funciona PERFECTO.

Muchas gracias.

Saludos
Antonio.

[Bayron]

Casi lo olvido, hace mucho que no programo, pero la tenia por ahi...

Despues del año 2000, ya no se dice

de 2000

sino

del 2000

Code: Select all  Expand view  RUN

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

[persi]

Code: Select all  Expand view  RUN

Function Dias(dDate)
Return cDow(dDate)+", "+str(day(dDate))+" de " +cMonth(dDate)+" del "+str(year(dDate))

[remtec]

Hola Amigos.

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

Muchos Saludos.

Antonio