tag:blogger.com,1999:blog-8846338869468701351.post856470074942229433..comments2024-02-07T16:53:07.465+01:00Comments on Consultorio Cobol: Fechas: Juliana, Gregoriana, DB2...Tallianhttp://www.blogger.com/profile/07467131702681958877noreply@blogger.comBlogger10125tag:blogger.com,1999:blog-8846338869468701351.post-15648372608429273702016-09-30T08:18:54.309+02:002016-09-30T08:18:54.309+02:00Muchas gracias Ariel!Muchas gracias Ariel!Tallianhttps://www.blogger.com/profile/07467131702681958877noreply@blogger.comtag:blogger.com,1999:blog-8846338869468701351.post-53547729549247693122016-09-29T21:55:54.000+02:002016-09-29T21:55:54.000+02:00*--- COMPROBAR AÑO BISIESTO: RESTO = 0 = AÑO BISIE...*--- COMPROBAR AÑO BISIESTO: RESTO = 0 = AÑO BISIESTO <br> DIVIDE WX-AAAA-JUL BY 100 GIVING WX-FIL9 REMAINDER WX-ANO-BIS<br> IF ANO-BIS-SI<br> DIVIDE WX-AAAA-JUL BY 400 GIVING WX-FIL9 REMAINDER WX-ANO-BIS<br> ELSE <br> DIVIDE WX-AAAA-JUL BY 4 GIVING WX-FIL9 REMAINDER WX-ANO-BIS<br> END-IF.<br><br>esté artículo me ayudó con un tp de la facu en assembler, dandome una idea para continuarAriel Medranohttps://www.blogger.com/profile/00943975557451398344noreply@blogger.comtag:blogger.com,1999:blog-8846338869468701351.post-73484874957213463602014-03-12T08:23:05.911+01:002014-03-12T08:23:05.911+01:00Todo tuyo Rodrigo! jaja Anímate a hacerlo y lo sac...Todo tuyo Rodrigo! jaja <br>Anímate a hacerlo y lo sacamos : )Tallianhttps://www.blogger.com/profile/07467131702681958877noreply@blogger.comtag:blogger.com,1999:blog-8846338869468701351.post-12783043077682057622014-03-12T02:08:46.003+01:002014-03-12T02:08:46.003+01:00Ese algoritmo no funciona para todos los años... m...Ese algoritmo no funciona para todos los años... mas bien tendriamos que hacer el algoritmo domsday, oye deberias de hacer un articulo para sumar fechas por que eso siempre nos da lata jaja al menos a mi siempre me da lata, luego tenemos las rutinas existentes para sumar fechas pero bueno me tope en una instalacion donde solo sumaba dias laborables y necesitaba dias naturales... bueno igual y si Rodrigohttps://www.blogger.com/profile/10928919439138185819noreply@blogger.comtag:blogger.com,1999:blog-8846338869468701351.post-59227376786918765292012-03-29T12:34:58.599+02:002012-03-29T12:34:58.599+02:00Muchas gracias por la aportación! Lo revisaré cuan...Muchas gracias por la aportación! Lo revisaré cuando tenga un momento : )Tallianhttps://www.blogger.com/profile/07467131702681958877noreply@blogger.comtag:blogger.com,1999:blog-8846338869468701351.post-89788935492104918802012-03-28T10:34:16.195+02:002012-03-28T10:34:16.195+02:00Bueno, a ver si a la tercera va la vencida!!!Perdó...Bueno, a ver si a la tercera va la vencida!!!<br><br>Perdón, se ha comido la indentación y creo que no se entiende nada, así que lo repito:<br><br>Quería hacer una aportación a los algoritmos "De AAAAMMDD a AAAADDD", y "De AAAADDD a AAAAMMDD".<br>Falta un detalle en los bisiestos para que esté incompleto, ya que el cálculo de año bisiesto es:<br>.si es divisible por 4<br>....Anónimonoreply@blogger.comtag:blogger.com,1999:blog-8846338869468701351.post-51053279390322414482012-03-28T10:30:56.334+02:002012-03-28T10:30:56.334+02:00Perdón, se ha comido la indentación y creo que no ...Perdón, se ha comido la indentación y creo que no se entiende nada, así que lo repito:<br><br>Quería hacer una aportación a los algoritmos "De AAAAMMDD a AAAADDD", y "De AAAADDD a AAAAMMDD".<br>Falta un detalle en los bisiestos para que esté incompleto, ya que el cálculo de año bisiesto es:<br>.Si es divisible por 4<br>. Si es divisible por 100<br>. Si es divisible por Anónimonoreply@blogger.comtag:blogger.com,1999:blog-8846338869468701351.post-88734425704873093922012-03-28T10:29:20.339+02:002012-03-28T10:29:20.339+02:00Quería hacer una aportación a los algoritmos "...Quería hacer una aportación a los algoritmos "De AAAAMMDD a AAAADDD", y "De AAAADDD a AAAAMMDD".<br>Falta un detalle en los bisiestos para que esté incompleto, ya que el cálculo de año bisiesto es:<br>Si es divisible por 4<br> Si es divisible por 100<br> Si es divisible por 400<br> SI es bisiesto<br> Si no<br> NO es bisiesto<br> fin SI<br> SiAnónimonoreply@blogger.comtag:blogger.com,1999:blog-8846338869468701351.post-77005873179457289612011-05-10T08:58:29.556+02:002011-05-10T08:58:29.556+02:00Pues sí Jose Antonio... pero quien manda manda!! j...Pues sí Jose Antonio... pero quien manda manda!! jeje<br>Gracias por el ejemplo : )Tallianhttps://www.blogger.com/profile/07467131702681958877noreply@blogger.comtag:blogger.com,1999:blog-8846338869468701351.post-70818587376233046582011-05-10T07:31:03.530+02:002011-05-10T07:31:03.530+02:00Bueno, yo creo que más bien quienes dicen eso en d...Bueno, yo creo que más bien quienes dicen eso en dichas instalaciones no tienen mucha idea, por varios motivos:<br><br>1) Las funciones intrínsecas una vez que las conocen son tan simples de usar como cualquier otra instrucción de COBOL.<br>2) Son más rápidas ya que el manejo de los datos de la fecha se hace a nivel de máquina usando directamente sus registros, no a alto nivel usando variables José Antonio Romerohttps://www.blogger.com/profile/11475099319413369349noreply@blogger.com