TODAY : Retourner une date actuelle

La fonction TODAY extrait la date actuelle du système d'exploitation en format MM/DD/YY ou MM/DD/YYYY. La date renvoyée est toujours actuelle. Par conséquent, si vous exécutez une application tard dans la nuit, utilisez TODAY. Vous pouvez supprimer les barres obliques incorporées par défaut avec la fonction EDIT.

Vous pouvez également récupérer la date au même format (délimitée par des barres obliques) avec la variable système Gestionnaire de dialogue &DATE. Vous pouvez récupérer la date sans les barres obliques en utilisant les variables système &YMD, &MDY, et &DMY. La variable système &DATEfmt récupère la date dans un format spécifié.

Syntaxe : Récupérer la date actuelle

TODAY(output)

où :

output

Alphanumérique, au moins A8

est le champ qui contient le résultat, ou le format de la valeur de sortie entre guillemets simples.

Les définitions suivantes s'appliquent :

Si DATEFNS est activé (ON) et que le format est A8 ou A9, TODAY renvoie l'année à deux chiffres.
Si DATEFNS est activé (ON) et que le format est A10 ou supérieur, TODAY renvoie l'année à quatre chiffres.
Si DATEFNS=OFF, TODAY renvoie l'année à deux chiffres, quel que soit le format outfield.

Haut de page

Exemple : Récupérer la date actuelle

TODAY récupère la date actuelle et la stocke dans le champ DATE. La requête affiche ensuite la date dans l'en-tête de page.

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 sortie est :

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