Tema: Formatear Fecha
Ver Mensaje Individual
  #4
Antiguo 30 de noviembre de 2023, 02:38
Fito
Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por el Avatar Activista del Foro: Activista del Foro - Issue reason: Por aportar ideas 
Última Actividad 21.09.2026 14:47
Posts Posts: 458
Likes enviados Enviados: 269
Likes recibidos Recibidos: 243
Predeterminado
1
Likes

dariodr

 Inactivo Inactivo
Hola:

Tambien lo podés hacer de esta manera

Código COBOL:
  1.  
  2.        WORKING-STORAGE SECTION.
  3.        01  HOY           PIC 9(6).
  4.        01  FECHA-HOY     pic 99/99/99.
  5.  
  6.        PROCEDURE DIVISION.
  7.  
  8.        MAIN-PROCEDURE.
  9.             ACCEPT HOY FROM DATE.
  10.             MOVE HOY TO FECHA-HOY.
  11.             DISPLAY FECHA-HOY.
  12.             STOP RUN.
Fito is offline   Responder Con Cita