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 <
[email protected]> escribió:
> Roberto
> Mira en free Rpg, que tiene muchas funciones incorporadas (% )
> Saludos
>
> Sergio L
>
> On Fri, Nov 6, 2015, 14:42 Roberto Palomino <[email protected]> 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.
>
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
