[Aporte] DLL de cáculo de fecha y hora

[Kuk]

Rutina COBOL hecha en MicroFocus que calcula varias cosas:

*----------------------------------------------------------------------------- *
|                            CALL "PBDMR001"                                   |
| ---------------------------------------------------------------------------- |
|        01. Validar una Fecha   [Formato AAAA-MM-DD]                          |
|        02. Validar una Hora.                                                 |
|        03. Validar TIMESTAMP.                                                |
|        04. Sumar un numero de dias a una fecha.                              |
|        05. Sumar un numero de meses a una fecha.                             |
|        06. Sumar un numero de anios a una fecha.                             |
|        07. Sumar un numero de horas a la hora proporcionada.                 |
|        08. Sumar un numero de minutos a la hora proporcionada.               |
|        09. Sumar un numero de segundos a la hora proporcionada.              |
|        10. Sumar un numero de dias a TIMESTAMP.                              |
|        11. Sumar un numero de meses a TIMESTAMP.                             |
|        12. Sumar un numero de anios a TIMESTAMP.                             |
|        13. Sumar un numero de horas a TIMESTAMP.                             |
|        14. Sumar un numero de minutos a TIMESTAMP.                           |
|        15. Sumar un numero de segundos a TIMESTAMP.                          |
|        16. Calcular la diferencia en dias entre dos fechas.                  |
|        17. Calcular la diferencia entre dos horas en segundos.               |
* ---------------------------------------------------------------------------- *

Hay que incluir la PBDMR001.lib en el proyecto y hacer:

 CALL "PBDMR001" USING VA-PBDM001R

En el ZIP van:

• La DLL
• La LIB
• La lista de opciones en TXT
• La COPY de LINKAGE

[Calbercaza]

Buenas.
Podéis por favor poner el código en formato txt?
Un saludo,muchas gracias.

[Kuk]

Calbercaza, toma