Page 1 of 1
Ayuda para Obtener el Dia de Semana de Fecha SOLUCIONADO
Posted: Wed Nov 13, 2019 12:42 am
by 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
Re: Ayuda para Obtener el Dia de Semana de Fecha
Posted: Wed Nov 13, 2019 2:31 am
by 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...
Re: Ayuda para Obtener el Dia de Semana de Fecha
Posted: Wed Nov 13, 2019 6:29 am
by Bayron
Code: Select all
DayOfWeek := STRTRAN(cdow(Date()), "á", "a")
Re: Ayuda para Obtener el Dia de Semana de Fecha
Posted: Wed Nov 13, 2019 1:27 pm
by remtec
Bayron wrote:Code: Select all
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
Re: Ayuda para Obtener el Dia de Semana de Fecha
Posted: Wed Nov 13, 2019 3:42 pm
by remtec
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
Re: Ayuda para Obtener el Dia de Semana de Fecha
Posted: Wed Nov 13, 2019 3:47 pm
by joseluisysturiz
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
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
*** "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 )
Re: Ayuda para Obtener el Dia de Semana de Fecha
Posted: Wed Nov 13, 2019 4:04 pm
by 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.
Re: Ayuda para Obtener el Dia de Semana de Fecha
Posted: Wed Nov 13, 2019 4:46 pm
by 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
Re: Ayuda para Obtener el Dia de Semana de Fecha
Posted: Wed Nov 13, 2019 7:48 pm
by remtec
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
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.
Re: Ayuda para Obtener el Dia de Semana de Fecha
Posted: Fri Nov 15, 2019 1:27 am
by 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
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
Re: Ayuda para Obtener el Dia de Semana de Fecha
Posted: Sun Nov 24, 2019 3:35 pm
by persi
Code: Select all
Function Dias(dDate)
Return cDow(dDate)+", "+str(day(dDate))+" de " +cMonth(dDate)+" del "+str(year(dDate))
Re: Ayuda para Obtener el Dia de Semana de Fecha
Posted: Mon Nov 25, 2019 3:28 pm
by remtec
Hola Amigos.
Muchas gracias a todos los colegas que me ayudaron a solucionar este problema, hoy ya funciona Perfecto.
Muchos Saludos.
Antonio