COBOL中处理日期时间的示例代码与技术解答

本示例展示了在COBOL中处理日期时间的方法，包括日期计算、格式化输出和日期比较等功能。通过COBOL的内置函数和数据类型，可以轻松地对日期时间进行操作和处理。

IDENTIFICATION DIVISION.
PROGRAM-ID. DateExample.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 CURRENT-DATE.
   05 TODAYS-DATE.
      10 YEAR        PIC 9(04).
      10 MONTH       PIC 9(02).
      10 DAY         PIC 9(02).
   05 TODAYS-TIME.
      10 HOUR        PIC 9(02).
      10 MINUTE      PIC 9(02).
      10 SECOND      PIC 9(02).

PROCEDURE DIVISION.
    DISPLAY "当前日期和时间：".
    DISPLAY FUNCTION CURRENT-DATE
        DISPLAY YEAR, MONTH, DAY
        DISPLAY HOUR, MINUTE, SECOND
    DISPLAY "日期计算示例：".
    MOVE FUNCTION CURRENT-DATE TO CURRENT-DATE
    ADD 30 TO DAY OF CURRENT-DATE
    COMPUTE MONTH = MONTH + 1
    IF MONTH > 12 THEN
        MOVE 1 TO MONTH
        ADD 1 TO YEAR
    END-IF
    DISPLAY "30天后的日期：" YEAR, MONTH, DAY
    STOP RUN.

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com