�Con esta funci�n podria valerte?
* ----------------------------------------------------------------- * Procedimiento: DayOfWeek * Descripci�n: Recupera el d�a de la semana de una fecha * (1=Lunes - 7=Domingo) * -----------------------------------------------------------------
P DayOfWeek B Export
D DayOfWeek PI 5I 0 D DateIn D Value
D NbrDays S 10I 0 D Lunes S D Inz(D'1904-01-04')
/free
NbrDays = %diff(DateIn:Lunes:*DAYS); Return %rem( %rem(NbrDays:7) + 7 : 7) + 1;
/end-free P DayOfWeek E
[EMAIL PROTECTED] escribi�:
Si quieres el dia 'actual', te vale con llamar a una cl que contenga por
ejemplo la sentencia: RTVSYSVAL SYSVAL(QDAYOFWEEK) RTNVAR(&DIASEM) Si quieres saber un dia aleatorio, me temo que te vas a tener que
'currar' una funci�n.
Alejandro Moreno Ayala <[EMAIL PROTECTED]> Enviado por: [EMAIL PROTECTED] 12/05/05 16:07
Por favor, responda a [email protected]
Para
Consultas as/400 <[email protected]>
cc
Asunto [Forum.help400] Sobre rpgle
Hola Foro:
Alguien sabe en RPGLE de alguna instrucion para saber cual es el dia de la semana, lunes martes etc.
Se los agradecer�a mucho
__________________________________________________ Forum.HELP400 es un servicio m�s de NEWS/400. � Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________
Para darte de baja visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400
