Día de la semana rpgile

[Roberto Palomino]

Buenas tardes Foreros, mi pregunta es si hay alguna función que me devuelva
el nro de día de la semana, a partir de una fecha. Si no la ubiera como le
hago?.
Por ejemplo:
Si a esta función le envío 2015/11/06 debería devolverme 07 tomando en
cuenta que el día 01 fue el domingo pasado.
De antemano gracias

[Sergio Luis Puentes-Valladares]

Roberto
Mira en free Rpg, que tiene muchas funciones incorporadas (% )
Saludos

Sergio L

Post by Roberto Palomino
Buenas tardes Foreros, mi pregunta es si hay alguna función que me
devuelva el nro de día de la semana, a partir de una fecha. Si no la ubiera
como le hago?.
Si a esta función le envío 2015/11/06 debería devolverme 07 tomando en
cuenta que el día 01 fue el domingo pasado.
De antemano gracias
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

[Bernabé Estrada]

pdiasem b
ddiasem pi 1 0
d fec d datfmt(*iso)
dfecp s d datfmt(*iso)
dnumdias s 6 0
ddifdias s 2 0
/free
fecp = %date('2006-09-17');
numdias = %diff(fec:fecp:*days);
difdias = %rem(numdias:7);
if difdias < 0;
difdias = difdias + 7;
endif;
return difdias + 1;
/end-free
pdiasem e

El 6 de noviembre de 2015, 11:45, Sergio Luis Puentes-Valladares <

Post by Sergio Luis Puentes-Valladares
Roberto
Mira en free Rpg, que tiene muchas funciones incorporadas (% )
Saludos
Sergio L

Post by Roberto Palomino
Buenas tardes Foreros, mi pregunta es si hay alguna función que me
devuelva el nro de día de la semana, a partir de una fecha. Si no la ubiera
como le hago?.
Si a esta función le envío 2015/11/06 debería devolverme 07 tomando en
cuenta que el día 01 fue el domingo pasado.
De antemano gracias
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

[Paco Medina]

aquí : http://www.recursos-as400.com/como99.shtml



saludos



De: forum.help400-***@listas.combios.es [mailto:forum.help400-***@listas.combios.es] En nombre de Bernabé Estrada
Enviado el: viernes, 06 de noviembre de 2015 18:53
Para: forum.help400
Asunto: Re: Día de la semana rpgile



pdiasem b

ddiasem pi 1 0

d fec d datfmt(*iso)

dfecp s d datfmt(*iso)

dnumdias s 6 0

ddifdias s 2 0

/free

fecp = %date('2006-09-17');

numdias = %diff(fec:fecp:*days);

difdias = %rem(numdias:7);

if difdias < 0;

difdias = difdias + 7;

endif;

return difdias + 1;

/end-free

pdiasem e



El 6 de noviembre de 2015, 11:45, Sergio Luis Puentes-Valladares <***@gmail.com> escribió:

Roberto
Mira en free Rpg, que tiene muchas funciones incorporadas (% )
Saludos

Sergio L



On Fri, Nov 6, 2015, 14:42 Roberto Palomino <***@gmail.com> wrote:

Buenas tardes Foreros, mi pregunta es si hay alguna función que me devuelva el nro de día de la semana, a partir de una fecha. Si no la ubiera como le hago?.
Por ejemplo:
Si a esta función le envío 2015/11/06 debería devolverme 07 tomando en cuenta que el día 01 fue el domingo pasado.
De antemano gracias

____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.


____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

[Paco Medina]

https://www.mail-archive.com/***@combios.es/msg18939.html







De: forum.help400-***@listas.combios.es [mailto:forum.help400-***@listas.combios.es] En nombre de Paco Medina
Enviado el: viernes, 06 de noviembre de 2015 18:58
Para: 'forum.help400'
Asunto: RE: Día de la semana rpgile



aquí : http://www.recursos-as400.com/como99.shtml



saludos



De: forum.help400-***@listas.combios.es [mailto:forum.help400-***@listas.combios.es] En nombre de Bernabé Estrada
Enviado el: viernes, 06 de noviembre de 2015 18:53
Para: forum.help400
Asunto: Re: Día de la semana rpgile



pdiasem b

ddiasem pi 1 0

d fec d datfmt(*iso)

dfecp s d datfmt(*iso)

dnumdias s 6 0

ddifdias s 2 0

/free

fecp = %date('2006-09-17');

numdias = %diff(fec:fecp:*days);

difdias = %rem(numdias:7);

if difdias < 0;

difdias = difdias + 7;

endif;

return difdias + 1;

/end-free

pdiasem e



El 6 de noviembre de 2015, 11:45, Sergio Luis Puentes-Valladares <***@gmail.com> escribió:

Roberto
Mira en free Rpg, que tiene muchas funciones incorporadas (% )
Saludos

Sergio L



On Fri, Nov 6, 2015, 14:42 Roberto Palomino <***@gmail.com> wrote:

Buenas tardes Foreros, mi pregunta es si hay alguna función que me devuelva el nro de día de la semana, a partir de una fecha. Si no la ubiera como le hago?.
Por ejemplo:
Si a esta función le envío 2015/11/06 debería devolverme 07 tomando en cuenta que el día 01 fue el domingo pasado.
De antemano gracias

____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.


____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

[Paco Medina]

aquí mas:

http://www.recursos-as400.com/como116.shtml







De: forum.help400-***@listas.combios.es [mailto:forum.help400-***@listas.combios.es] En nombre de Bernabé Estrada
Enviado el: viernes, 06 de noviembre de 2015 18:53
Para: forum.help400
Asunto: Re: Día de la semana rpgile



pdiasem b

ddiasem pi 1 0

d fec d datfmt(*iso)

dfecp s d datfmt(*iso)

dnumdias s 6 0

ddifdias s 2 0

/free

fecp = %date('2006-09-17');

numdias = %diff(fec:fecp:*days);

difdias = %rem(numdias:7);

if difdias < 0;

difdias = difdias + 7;

endif;

return difdias + 1;

/end-free

pdiasem e



El 6 de noviembre de 2015, 11:45, Sergio Luis Puentes-Valladares <***@gmail.com> escribió:

Roberto
Mira en free Rpg, que tiene muchas funciones incorporadas (% )
Saludos

Sergio L



On Fri, Nov 6, 2015, 14:42 Roberto Palomino <***@gmail.com> wrote:

Buenas tardes Foreros, mi pregunta es si hay alguna función que me devuelva el nro de día de la semana, a partir de una fecha. Si no la ubiera como le hago?.
Por ejemplo:
Si a esta función le envío 2015/11/06 debería devolverme 07 tomando en cuenta que el día 01 fue el domingo pasado.
De antemano gracias

____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.


____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

[Bernabé Estrada]

En SQL te puede servir esto:

SELECT DAYOFWEEK(CAST('06/11/2015' AS DATE))
FROM SYSIBM.SYSDUMMY1

Post by Paco Medina
http://www.recursos-as400.com/como116.shtml
*Enviado el:* viernes, 06 de noviembre de 2015 18:53
*Para:* forum.help400
*Asunto:* Re: Día de la semana rpgile
pdiasem b
ddiasem pi 1 0
d fec d datfmt(*iso)
dfecp s d datfmt(*iso)
dnumdias s 6 0
ddifdias s 2 0
/free
fecp = %date('2006-09-17');
numdias = %diff(fec:fecp:*days);
difdias = %rem(numdias:7);
if difdias < 0;
difdias = difdias + 7;
endif;
return difdias + 1;
/end-free
pdiasem e
El 6 de noviembre de 2015, 11:45, Sergio Luis Puentes-Valladares <
Roberto
Mira en free Rpg, que tiene muchas funciones incorporadas (% )
Saludos
Sergio L
Buenas tardes Foreros, mi pregunta es si hay alguna función que me
devuelva el nro de día de la semana, a partir de una fecha. Si no la ubiera
como le hago?.
Si a esta función le envío 2015/11/06 debería devolverme 07 tomando en
cuenta que el día 01 fue el domingo pasado.
De antemano gracias
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

[Roberto Palomino]

Gracias a todos por su apoyo, apliqué una de las rutinas y me sirvió.
Un abrazo

Post by Bernabé Estrada
pdiasem b
ddiasem pi 1 0
d fec d datfmt(*iso)
dfecp s d datfmt(*iso)
dnumdias s 6 0
ddifdias s 2 0
/free
fecp = %date('2006-09-17');
numdias = %diff(fec:fecp:*days);
difdias = %rem(numdias:7);
if difdias < 0;
difdias = difdias + 7;
endif;
return difdias + 1;
/end-free
pdiasem e
El 6 de noviembre de 2015, 11:45, Sergio Luis Puentes-Valladares <

Post by Sergio Luis Puentes-Valladares
Roberto
Mira en free Rpg, que tiene muchas funciones incorporadas (% )
Saludos
Sergio L

Post by Roberto Palomino
Buenas tardes Foreros, mi pregunta es si hay alguna función que me
devuelva el nro de día de la semana, a partir de una fecha. Si no la ubiera
como le hago?.
Si a esta función le envío 2015/11/06 debería devolverme 07 tomando en
cuenta que el día 01 fue el domingo pasado.
De antemano gracias
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

[Bernabé Estrada]

Justo esa es una función que solicito en los exámenes que se hacen a los
postulantes a una nueva plaza, pues se trata únicamente de algunos pequeños
cálculos:
Tomar como base cualquier fecha del calendario, de la cual sabemos que día
es, sacar la diferencia de dias entre la fecha dada y la fecha a buscar,
dividir entre 7, y el reminder nos dará el día de la semana. Claro, con
algunas excepciones como cuando la fecha base es menor a la fecha buscada.
Ese es el principio.
Adjunto una pequeña rutina que hace lo que entiendo que necesitas:
pdiasem b
ddiasem pi 1 0
d fec d datfmt(*iso)
dfecp s d datfmt(*iso)
dnumdias s 6 0
ddifdias s 2 0
/free
fecp = %date('2006-09-17');
numdias = %diff(fec:fecp:*days);
difdias = %rem(numdias:7);
if difdias < 0;
difdias = difdias + 7;
endif;
return difdias + 1;
/end-free
pdiasem e

Saludos.

El 6 de noviembre de 2015, 11:45, Sergio Luis Puentes-Valladares <

Post by Sergio Luis Puentes-Valladares
Roberto
Mira en free Rpg, que tiene muchas funciones incorporadas (% )
Saludos
Sergio L

Post by Roberto Palomino
Buenas tardes Foreros, mi pregunta es si hay alguna función que me
devuelva el nro de día de la semana, a partir de una fecha. Si no la ubiera
como le hago?.
Si a esta función le envío 2015/11/06 debería devolverme 07 tomando en
cuenta que el día 01 fue el domingo pasado.
De antemano gracias
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

[Paco Medina]

A ver si te sirve esto lo saque de algún ejemplo del as400 :



5761WDS V7R1M0 100416 LISTADO FUENTE SEU 06/11/15 18:46:42 CAMACHO PµG. 1

MIEMBRO . . . . . . . . . ARRE983R

SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

100 HDECEDIT('0,') DATEDIT(*DMY.) 09/01/01

200 ********************************************************************** 20/12/99

300 ** Realizado por: Fco.Jose Medina Barajas para EXCL.CAMACHO,S.L ** 06/06/01

400 ** Fecha. . . . : 21 DE MAYO DEL 2010 ** 21/05/10

500 ********************************************************************** 20/12/99

800 FQsys198 O F 198 PRINTER OFLIND(*INOF) 05/04/11

900 * Fichero Detalle de Modificacion 20/04/10

1500 * Busca em Maestro Articulo 21/05/10

1800 * Nueva Busqueda Precio Vigente 21/05/10

1801 D DS 05/04/11

1802 D pDataEntrada D 05/04/11

1803 * 05/04/11

1804 D SemanaNum S 2 0 05/04/11

1805 D miFechaISO S 10 05/04/11

1806 * 05/04/11

1807 c *ENTRY PLIST 05/04/11

1808 c PARM pfecha 8 05/04/11

1810 c PARM pSemana 2 05/04/11

1836 * Tengo un campo AAAAMMDD y se pasa a Formato ISO para convertir a 05/04/11

1837 * CampoFecha. 05/04/11

1838 c eval miFechaISO = %subst(pfecha: 1: 4) + '-' 05/04/11

1839 c + %subst(pfecha: 5: 2) + '-' 05/04/11

1840 c + %subst(pfecha: 7: 2) 05/04/11

1841 c eval pDataEntrada= %date(miFechaISO:*ISO) 05/04/11

1842 c/EXEC SQL 05/04/11

1843 + set :SemanaNum = Week_ISO(:pDataEntrada) 05/04/11

1844 c/END-EXEC 05/04/11

1845 c move SemanaNum pSemana 05/04/11

1846 * ----* 05/04/11

1847 c except LISLOG1 05/04/11

1848 * ----* 05/04/11

1849 C SETON LR 05/04/11

4000 * ----* 20/04/10

4100 Oqsys198 E LISLOG1 20/04/10

4200 o pFecha + 1 05/04/11

4300 o pSemana + 1 05/04/11

* * * * F I N D E F U E N T E * * * *

_







De: forum.help400-***@listas.combios.es [mailto:forum.help400-***@listas.combios.es] En nombre de Roberto Palomino
Enviado el: viernes, 06 de noviembre de 2015 18:40
Para: forum. help400
Asunto: Día de la semana rpgile



Buenas tardes Foreros, mi pregunta es si hay alguna función que me devuelva el nro de día de la semana, a partir de una fecha. Si no la ubiera como le hago?.
Por ejemplo:
Si a esta función le envío 2015/11/06 debería devolverme 07 tomando en cuenta que el día 01 fue el domingo pasado.
De antemano gracias