toma copia y pega
H J C** C EXSR MAIN C MOVE '1' *INLR C RETRN C*================================================================ C*== INICIO DEL PROGRAMA C*== C*================================================================ C MAIN BEGSR C *ENTRY PLIST C PARM PAR01 4 C PARM IND 1 C MOVE PAR01 ANO 50 C CLEARCALC4D C ANO DIV 1000 V$CA0 120 C MVR CALC4D 94 C CALC4D IFNE *ZERO C ANO DIV 4 V$CA0 C MVR CALC4D C CALC4D IFEQ *ZERO C ANO DIV 100 V$CA0 C MVR ESD100 94 C ESD100 IFEQ *ZERO C ANO DIV 400 V$CA0 C MVR CALC4D 94 C END C END C END C CALC4D IFEQ 0 C MOVEL'1' IND C ELSE C MOVEL'0' IND C END C ENDSR -----Mensaje original----- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] nombre de Alfonso Quintanar Monroy Enviado el: viernes, 21 de mayo de 2004 17:15 Para: [EMAIL PROTECTED] Asunto: C�lculo para a�o bisiesto. Hola Amigos del [EMAIL PROTECTED] Alguien me puede facilitar su c�digo para calcular cuando un a�o es bisiesto. De antemano muchas GRACIAS. Ing. Alfonso Quintanar Monroy Analista Programador Gcia. Soluciones Operativas Corporativo de Inform�tica (CCIT) Grupo A.D.O., M�xico, D.F. Tel. 51331100 Exts. 4773, 4774 y 4796 _____________________________________________________ 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, env�a el mensaje resultante de pulsar mailto:[EMAIL PROTECTED] _____________________________________________________ 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, env�a el mensaje resultante de pulsar mailto:[EMAIL PROTECTED]
