Resultados 1 al 8 de 8

Tema: Calculo entre dos fecha

  1. #1
      Junior
    j

    Registrado
    abril de 2017
    Ubicación
    Curico Chile
    Mensajes
    94
    Última visita
    28.11.2022

    Agradecimientos
     
    Recibidos
    3
    Enviados
    24

    Citaciones y menciones
     
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    6

    Predeterminado Calculo entre dos fecha

    Hola, alguien me podría ayudar con una rutina de calculo entre dos fechas para RMCOBOL85
    Tengo una pero no es exacta.
    La que tengo de PawercobolV9 no funciona en Rmcobol

    Saludos

    0 Not allowed!

  2. #2
      Administrador
    Avatar de Kuk

    Registrado
    enero de 2015
    Ubicación
    Madrid
    Edad
    37
    Mensajes
    2,087
    Última visita
    Hoy a las 00:34

    Agradecimientos
     
    Recibidos
    908
    Enviados
    784

    Citaciones y menciones
     
    Mentioned
    39 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    12 Post(s)
    Poder de Reputación
    10

    Predeterminado

    Cita Iniciado por jmeza Ver Mensaje
    La que tengo de PawercobolV9 no funciona en Rmcobol
    Raro... A ver ese código, porque me extraña mucho que no funcione en RM. Salvo que sea alguna función puramente Fujitsu.

    0 Not allowed!
    ¿Te han ayudado? NO TE OLVIDES de darle al botón
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención, tienes 2 opciones:
    1. Haciendo clic en el icono al lado de su nick
    2. Haciendo clic en el botón en el editor y escribiendo su nick.

  3. #3
      Junior
    j

    Registrado
    abril de 2017
    Ubicación
    Curico Chile
    Mensajes
    94
    Última visita
    28.11.2022

    Agradecimientos
     
    Recibidos
    3
    Enviados
    24

    Citaciones y menciones
     
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    6

    Predeterminado

    Cita Iniciado por Kuk Ver Mensaje
    Raro... A ver ese código, porque me extraña mucho que no funcione en RM. Salvo que sea alguna función puramente Fujitsu.
    Kuk, este es el código en rmcobol85, se cae en esta línea, CALL "DIFERMES" USING LNK-DIFER.
    error 234 (no object file found) error loading subprogram DIFERMES.

    Esta rutina la baje de la pagina y en powercobolv9 funciona sin problemas

    COBOL Código:
    1. WORKING-STORAGE SECTION.
    2.        01 DIA PIC 99.
    3.        01 MES PIC 99.
    4.        01 ANO PIC 99.
    5.        01 N-FECHA   PIC X(100).
    6.        01 F-INICIAL PIC X(10).
    7.        01 F-FINAL   PIC X(10).
    8.        01 SV-FECHA    PIC X(10).    
    9.        01 status-code PIC S9(4) COMP-5.
    10.        01 LNK-DIFER.
    11.           COPY "CPY-DIFER.COB".
    12.  
    13. PROCEDURE DIVISION.
    14.        CALCULO-FECHA-CONTRATO.
    15.            MOVE 1 TO DIF-OPCION.
    16.            MOVE REM02-FECCONT TO F-INICIAL.
    17.            MOVE F-INICIAL TO SV-FECHA.          
    18.            MOVE SV-FECHA(1:2)       TO DIF-FECHA-1(1:2).
    19.            MOVE SV-FECHA(4:2)       TO DIF-FECHA-1(3:2).
    20.            MOVE SV-FECHA(7:4)       TO DIF-FECHA-1(5:4).
    21.    
    22.            MOVE AC-FECING TO F-FINAL.
    23.            MOVE F-FINAL TO SV-FECHA.
    24.            MOVE SV-FECHA(1:2)       TO DIF-FECHA-2(1:2).
    25.            MOVE SV-FECHA(4:2)       TO DIF-FECHA-2(3:2).
    26.            MOVE SV-FECHA(7:4)       TO DIF-FECHA-2(5:4).
    27.      
    28.            CALL "DIFERMES" USING LNK-DIFER.
    29.            MOVE DIF-ANIOS TO ANO.
    30.            MOVE DIF-MESES TO MES.
    31.            MOVE DIF-DIAS  TO DIA.
    32.            STRING ANO DELIMITED BY SIZE
    33.                   " Años " DELIMITED BY SIZE
    34.                   MES DELIMITED BY SIZE
    35.                   " Meses " DELIMITED BY SIZE
    36.                   DIA DELIMITED BY SIZE
    37.                   " Dias" DELIMITED BY SIZE
    38.                   INTO N-FECHA.
    39.            DISPLAY N-FECHA LINE 18 POSITION 3.

    0 Not allowed!

  4. #4
      Senior
    J

    Registrado
    junio de 2016
    Ubicación
    Albacete
    Edad
    56
    Mensajes
    316
    Última visita
    Hoy a las 01:08

    Agradecimientos
     
    Recibidos
    204
    Enviados
    116

    Citaciones y menciones
     
    Mentioned
    22 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    4 Post(s)
    Poder de Reputación
    24
    Activista del Foro / Point Value: 0 Agradecimientos / Point Value: 0

    Predeterminado

    Es porque no te encuentra el programa "difermes".

    Debes de localizarlo e intentar compilarlo para ver si te funciona.

    0 Not allowed!

  5. #5
      Administrador
    Avatar de Kuk

    Registrado
    enero de 2015
    Ubicación
    Madrid
    Edad
    37
    Mensajes
    2,087
    Última visita
    Hoy a las 00:34

    Agradecimientos
     
    Recibidos
    908
    Enviados
    784

    Citaciones y menciones
     
    Mentioned
    39 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    12 Post(s)
    Poder de Reputación
    10

    Predeterminado

    @JCantero, es una DLL, viene on una LIB pero no sé como se hará en RM para utilizarla.

    0 Not allowed!
    ¿Te han ayudado? NO TE OLVIDES de darle al botón
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención, tienes 2 opciones:
    1. Haciendo clic en el icono al lado de su nick
    2. Haciendo clic en el botón en el editor y escribiendo su nick.

  6. #6
      Junior
    j

    Registrado
    abril de 2017
    Ubicación
    Curico Chile
    Mensajes
    94
    Última visita
    28.11.2022

    Agradecimientos
     
    Recibidos
    3
    Enviados
    24

    Citaciones y menciones
     
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    6

    Predeterminado

    Cita Iniciado por JCantero Ver Mensaje
    Es porque no te encuentra el programa "difermes".

    Debes de localizarlo e intentar compilarlo para ver si te funciona.
    JCantero, ya lo compile cero error, se cae al momento de ejecutar

    Difermes, es un archivo oculto que no reconoce el Rmcobol

    0 Not allowed!

  7. #7
      Administrador
    Avatar de Kuk

    Registrado
    enero de 2015
    Ubicación
    Madrid
    Edad
    37
    Mensajes
    2,087
    Última visita
    Hoy a las 00:34

    Agradecimientos
     
    Recibidos
    908
    Enviados
    784

    Citaciones y menciones
     
    Mentioned
    39 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    12 Post(s)
    Poder de Reputación
    10

    Predeterminado

    @jmeza, yo tenía una rutina hecha hace muchos años, creo que la publiqué en el antiguo foro, y se llamaba así, DIFERMES

    Bueno, al caso, coge este fuente y no necesitas librerías: [Aporte] DLL de cáculo de fecha y hora - COBOL Foro

    0 Not allowed!
    ¿Te han ayudado? NO TE OLVIDES de darle al botón
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención, tienes 2 opciones:
    1. Haciendo clic en el icono al lado de su nick
    2. Haciendo clic en el botón en el editor y escribiendo su nick.

  8. #8
      Junior
    j

    Registrado
    abril de 2017
    Ubicación
    Curico Chile
    Mensajes
    94
    Última visita
    28.11.2022

    Agradecimientos
     
    Recibidos
    3
    Enviados
    24

    Citaciones y menciones
     
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    6

    Predeterminado

    Cita Iniciado por Kuk Ver Mensaje
    @jmeza, yo tenía una rutina hecha hace muchos años, creo que la publiqué en el antiguo foro, y se llamaba así, DIFERMES

    Bueno, al caso, coge este fuente y no necesitas librerías: [Aporte] DLL de cáculo de fecha y hora - COBOL Foro
    Lo resolví de este modo, para lo que necesitaba, saber la cantidad de años entre dos fechas

    COBOL Código:
    1. WORKING-STORAGE SECTION.
    2.  
    3. 01 FECHA-INGRESO.
    4.          02 AC-FECING      PIC 9(08).
    5.          02 R-AC-FECING REDEFINES AC-FECING.
    6.                   03  AA-FECING PIC 9(04).
    7.                   03  MM-FECING PIC 9(02).
    8.                   03  DD-FECING PIC 9(02).
    9. 01  VARI-ANTIGUEDAD.
    10.            02 AC-FECCON      PIC 9(08).
    11.            02 R-AC-FECCON REDEFINES AC-FECCON.
    12.                03  AA-FECCON PIC 9(04).
    13.                03  MM-FECCON PIC 9(02).
    14.                03  DD-FECCON PIC 9(02).
    15.            02 AC-DIATOT     PIC 9(05)V999.
    16.            02 AC-MESTOT   PIC 9(03)V999.
    17.            02 AC-ANOTOT   PIC 9(02)V999.
    18.            02 FECHA1         PIC 9(08).
    19.            02 FECHA2         PIC 9(08).
    20.  
    21. PROCEDURE DIVISION.
    22.        CALCULO-FECHA-CONTRATO.
    23.            MOVE 0 TO AC-DIATOT AC-MESTOT AC-ANOTOT
    24.            MOVE REM02-FECCONT TO AC-FECCON
    25.            COMPUTE FECHA1 = (AA-FECCON * 365.25) + DANO(MM-FECCON) +
    26.                              DD-FECCON
    27.            COMPUTE FECHA2 = (AA-FECING * 365.25) + DANO(MM-FECING) +
    28.                              DD-FECING
    29.            IF  FECHA1 > FECHA2
    30.                MOVE " !! Fecha < a la Primera !! " TO MENSAJE
    31.                PERFORM EMITE-MENSAJE
    32.            ELSE
    33.                COMPUTE AC-DIATOT ROUNDED = FECHA1 - FECHA2
    34.                COMPUTE AC-MESTOT ROUNDED = (AC-DIATOT / 30)
    35.                COMPUTE AC-ANOTOT ROUNDED = (AC-DIATOT / 365.25).


    Mensaje de MODERADOR

    Usa los botones de resalto de sintaxis



    0 Not allowed!

Información de Tema

Usuarios Viendo este Tema

Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)

Temas Similares

  1. [Sintaxis] Calcular dias, meses y años entre dos fechas
    Por Roger en el foro Fujitsu COBOL
    Respuestas: 7
    Último Mensaje: 06.02.2020, 10:27
  2. [Sintaxis] Calculo de dia de la semana
    Por Breew en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 1
    Último Mensaje: 12.02.2019, 11:49
  3. [Sintaxis] Formato de Fecha
    Por jmeza en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 1
    Último Mensaje: 03.12.2017, 19:03
  4. [Sintaxis] Validación de Fecha
    Por jmeza en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 4
    Último Mensaje: 24.11.2017, 11:32
  5. [Componente] Direferencia entre horas
    Por Gatomalo en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 1
    Último Mensaje: 20.11.2015, 23:32

Marcadores

Marcadores

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •