Resultados 1 al 8 de 8

Tema: Calculo entre dos fecha

  1. #1
      Junior
    j

    Fecha de Ingreso
    24 abr, 17
    Mensajes
    94
    Ciudad
    Curico Chile

    Agradecimientos
     
    Recibidos
    3
    Enviados
    24

    Citaciones y menciones
     
    Mentioned
    0 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

    Fecha de Ingreso
    01 ene, 15
    Edad
    37
    Mensajes
    2,009
    Ciudad
    Madrid

    Agradecimientos
     
    Recibidos
    857
    Enviados
    718

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    5 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!

    NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
    ¿Te han ayudado? NO TE OLVIDES de darle al botón GRACIAS
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención con el botón y escribiendo su Nick.

  3. #3
      Junior
    j

    Fecha de Ingreso
    24 abr, 17
    Mensajes
    94
    Ciudad
    Curico Chile

    Agradecimientos
     
    Recibidos
    3
    Enviados
    24

    Citaciones y menciones
     
    Mentioned
    0 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

    Fecha de Ingreso
    14 jun, 16
    Edad
    56
    Mensajes
    280
    Ciudad
    Albacete

    Agradecimientos
     
    Recibidos
    181
    Enviados
    91

    Citaciones y menciones
     
    Mentioned
    2 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 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

    Fecha de Ingreso
    01 ene, 15
    Edad
    37
    Mensajes
    2,009
    Ciudad
    Madrid

    Agradecimientos
     
    Recibidos
    857
    Enviados
    718

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    5 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!

    NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
    ¿Te han ayudado? NO TE OLVIDES de darle al botón GRACIAS
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención con el botón y escribiendo su Nick.

  6. #6
      Junior
    j

    Fecha de Ingreso
    24 abr, 17
    Mensajes
    94
    Ciudad
    Curico Chile

    Agradecimientos
     
    Recibidos
    3
    Enviados
    24

    Citaciones y menciones
     
    Mentioned
    0 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

    Fecha de Ingreso
    01 ene, 15
    Edad
    37
    Mensajes
    2,009
    Ciudad
    Madrid

    Agradecimientos
     
    Recibidos
    857
    Enviados
    718

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    5 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!

    NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
    ¿Te han ayudado? NO TE OLVIDES de darle al botón GRACIAS
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención con el botón y escribiendo su Nick.

  8. #8
      Junior
    j

    Fecha de Ingreso
    24 abr, 17
    Mensajes
    94
    Ciudad
    Curico Chile

    Agradecimientos
     
    Recibidos
    3
    Enviados
    24

    Citaciones y menciones
     
    Mentioned
    0 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, 09: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, 10:49
  3. [Sintaxis] Formato de Fecha
    Por jmeza en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 1
    Último Mensaje: 03/12/2017, 18:03
  4. [Sintaxis] Validación de Fecha
    Por jmeza en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 4
    Último Mensaje: 24/11/2017, 10:32
  5. [Componente] Direferencia entre horas
    Por Gatomalo en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 1
    Último Mensaje: 20/11/2015, 22:32

User Tag List

Permisos de Publicación

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