TODAY: Cómo devolver la fecha actual

La función TODAY recupera la fecha actual del sistema operativo en el formato MM/DD/YY o MM/DD/YYYY. Siempre devuelve la fecha actual. Por tanto, si está ejecutando una aplicación tarde por la noche, emplee TODAY. La función EDIT le permite eliminar las barras laterales incrustadas predeterminadas.

Además, puede recuperar la fecha en el mismo formato (separado por barras), utilizando la variable del sistema &DATE de Dialogue Manager. Para recuperar la fecha sin barras, utilice las variables del sistema &YMD, &MDY y &DMY. La variable del sistema &DATEfmt recupera la fecha en un formato especificado.

Sintaxis: Cómo Recuperar la fecha actual

TODAY(output)

donde:

output

Alfanumérico, como mínimo A8

Es el nombre del campo que contiene el resultado, o el formato del valor de salida puesto entre comillas solas.

Se aplica lo siguiente:

Si DATEFNS=ON y el formato es A8 o A9, TODAY devuelve el año de 2 dígitos.
Si DATEFNS=ON y el formato es A10 o superior, TODAY devuelve el año de 4 dígitos.
Si DATEFNS=OFF, TODAY devuelve el año de 2 dígitos, independientemente del formato de output.

Principio de página

Ejemplo: Cómo recuperar la fecha actual

TODAY recupera la fecha actual y la guarda en el campo DATE. A continuación, la solicitud muestra la fecha en el encabezado de la página.

DEFINE FILE EMPLOYEE
DATE/A10 WITH EMP_ID = TODAY(DATE);
END

TABLE FILE EMPLOYEE
SUM CURR_SAL BY DEPARTMENT
HEADING
"PAGE <TABPAGENO  "
"SALARY REPORT RUN ON <DATE  "
END

La salida es:

SALARY REPORT RUN ON 12/13/2006
DEPARTMENT       CURR_SAL
----------     --------
MIS           $108,002.00
PRODUCTION    $114,282.00