En el ámbito de los lenguajes de programación heredados, COBOL es un incondicional que continúa desempeñando un papel clave en muchos entornos informáticos empresariales. Una de las tareas comunes cuando se trabaja con COBOL es manejar fechas, especialmente fechas futuras. Esto implica lograr competencia no solo en la programación COBOL básica, sino también comprender cómo se calculan y manipulan las fechas futuras dentro de su ecosistema. Este artículo profundiza en cómo se puede ejecutar el cálculo de fechas futuras de manera ilustrativa y completa en COBOL.
Dada una fecha, el objetivo es encontrar una fecha que caiga después de un número determinado de días. Es esencial tener en cuenta los diferentes escenarios que surgen de la variación del número de días en diferentes meses y también considerar los años bisiestos al calcular la fecha futura.
DIVISIÓN DE IDENTIFICACIÓN.
ID DE PROGRAMA. Fecha futura.
DIVISIÓN DE DATOS.
SECCIÓN DE ALMACENAMIENTO DE TRABAJO.
01 ws-fecha foto 9(8).
01 ws-futuros-días foto 9(4).
01 ws-fecha-futura foto 9(8).
DIVISIÓN DE PROCEDIMIENTOS.
ACEPTAR fecha-ws.
ACEPTAR ws-futuros-días.
COMPUTAR ws-fecha-futura = FUNCIÓN ENTERO-DE-FECHA (ws-fecha)
+ ws-futuros-días.
FUNCIÓN DE PANTALLA FECHA-DE-INTEGER (ws-fecha-futura).
DETENER CORRER.
Entendiendo el Código
Familiarizarse con las secciones de este programa COBOL es beneficioso para comprender cómo funciona el cálculo de fechas futuras en acción.
En la primera sección, DECLARAMOS las variables ws-date para aceptar la fecha actual, ws-future-days para aceptar el número de días para calcular la fecha futura y ws-future-date para mantener la fecha futura. En la `DIVISIÓN DE PROCEDIMIENTOS`, ACEPTAMOS la fecha actual y el número de días del usuario.
Después de esto, calculamos la fecha futura. COBOL proporciona funciones integradas como `FUNCTION INTEGER-OF-DATE` y `FUNCTION DATE-OF-INTEGER` para cálculos de fechas. `FUNCTION INTEGER-OF-DATE` convierte una fecha en un número entero. Luego sumamos el número de días a este número entero. Posteriormente, `FUNCTION DATE-OF-INTEGER` convierte este número entero nuevamente a un formato de fecha.
Funciones de fecha integradas de COBOL
Vale la pena obtener información sobre las funciones de fecha de COBOL que desempeñan un papel esencial en la realización eficiente de cálculos de fechas en los programas.
COBOL proporciona varias funciones integradas diseñadas específicamente para manipulaciones y cálculos de fechas. En particular, `FUNCTION INTEGER-OF-DATE` y `FUNCTION DATE-OF-INTEGER` son dos de esas funciones que se utilizan en nuestro programa de cálculo de fechas. Estas funciones ofrecen una manera fluida y eficiente de manejar fechas en su aplicación COBOL, ahorrándole la molestia de escribir lógica compleja para manejar diferentes formatos de fecha y escenarios de años bisiestos.
Las funciones de manejo de fechas de COBOL complementan la solidez y eficiencia comprobadas del lenguaje, brindándole la destreza necesaria para administrar escenarios modernos del mundo real que requieren tareas de manipulación de fechas, incluido el cálculo de fechas futuras.
