Apprendre COBOL : Gestion des Dates et Heures

Gestion des Dates et Heures

Manipulation des Dates et Heures en COBOL

La gestion des dates et heures est essentielle dans de nombreux programmes COBOL. Ce guide couvre les bases de la manipulation des dates et heures en COBOL, y compris la lecture, l'affichage et les calculs de dates.

Déclaration de Dates

Les dates peuvent être stockées dans des variables à l'aide de la clause PIC. Par exemple :

DATA DIVISION.
WORKING-STORAGE SECTION.
01 DateDuJour         PIC 9(8).
01 HeureActuelle      PIC 9(6).
01 DateNaissance      PIC 9(8) VALUE '19900101'.
        

Obtention de la Date et Heure Actuelles

Pour obtenir la date et l'heure actuelles, vous pouvez utiliser l'instruction ACCEPT avec des fonctions spéciales :

PROCEDURE DIVISION.
    ACCEPT DateDuJour FROM DATE YYYYMMDD
    ACCEPT HeureActuelle FROM TIME
    DISPLAY 'Date actuelle : ' DateDuJour
    DISPLAY 'Heure actuelle : ' HeureActuelle.
        

Calculs sur les Dates

COBOL permet également d'effectuer des calculs sur les dates. Par exemple, pour calculer l'âge à partir de la date de naissance :

WORKING-STORAGE SECTION.
01 DateActuelle       PIC 9(8).
01 AnneeActuelle      PIC 9(4).
01 AnneeNaissance     PIC 9(4).
01 Age                PIC 99.

PROCEDURE DIVISION.
    ACCEPT DateActuelle FROM DATE YYYYMMDD
    MOVE DateActuelle(1:4) TO AnneeActuelle
    MOVE DateNaissance(1:4) TO AnneeNaissance
    COMPUTE Age = FUNCTION NUMVAL(AnneeActuelle) - FUNCTION NUMVAL(AnneeNaissance)
    DISPLAY 'Age : ' Age.
        

Formatage des Dates et Heures

Vous pouvez formater les dates et heures pour les afficher dans un format plus lisible :

WORKING-STORAGE SECTION.
01 Annee      PIC 9(4).
01 Mois       PIC 9(2).
01 Jour       PIC 9(2).
01 Heure      PIC 9(2).
01 Minute     PIC 9(2).
01 Seconde    PIC 9(2).

PROCEDURE DIVISION.
    ACCEPT DateDuJour FROM DATE YYYYMMDD
    MOVE DateDuJour(1:4) TO Annee
    MOVE DateDuJour(5:2) TO Mois
    MOVE DateDuJour(7:2) TO Jour

    ACCEPT HeureActuelle FROM TIME
    MOVE HeureActuelle(1:2) TO Heure
    MOVE HeureActuelle(3:2) TO Minute
    MOVE HeureActuelle(5:2) TO Seconde

    DISPLAY 'Date formatée : ' Jour '/' Mois '/' Annee
    DISPLAY 'Heure formatée : ' Heure ':' Minute ':' Seconde.
        

Ce programme lit la date et l'heure actuelles, les divise en composants individuels et les affiche dans un format lisible.

Points Clés :

• Utilisez ACCEPT pour obtenir la date et l'heure actuelles.
• Utilisez des fonctions COBOL pour effectuer des calculs sur les dates.
• Formatez les dates et heures pour les afficher dans un format lisible.

Avec ces techniques, vous pouvez gérer efficacement les dates et heures dans vos programmes COBOL.

© 2024 Codez avec moi