x

HCNVRT(datetime, '(format)', length, output)

où :

datetime

Date-heure

est la valeur date-heure à convertir, le nom du champ date-heure qui contient la valeur, ou une expression qui renvoie celle-ci.

format

Alphanumérique

est le format du champ date-heure entouré par des parenthèses et des guillemets simples. Le format doit être date-heure (type de données H, jusqu'à H23).

length

Entier

est la longueur du champ alphanumérique qui est renvoyée. Vous pouvez fournir la valeur réelle, le nom d'un champ numérique contenant la valeur ou une expression qui renvoie celle-ci. Si length est inférieur au nombre de caractères nécessaires à l'affichage du champ alphanumérique, la fonction renvoie un espace vide.

output

Alphanumérique

est le champ qui contient le résultat, ou le format de la valeur de sortie entre guillemets simples. Ce champ doit être au format alphanumérique et doit être assez long pour contenir tous les caractères retournés.

Haut de page

Exemple : Convertir un champ date-heure à un format alphanumérique (Reporting)

HCNVRT convertit le champ TRANSDATE à un format alphanumérique. La première fonction ne comprend pas d'options d'affichage date-heure pour le champ ; la seconde fonction fournit des options d'affichage pour améliorer la lisibilité. Elle spécifie également l'affichage de secondes dans un champ saisie.

TABLE FILE VIDEOTR2
PRINT CUSTID TRANSDATE AS 'DATE-TIME' AND COMPUTE
ALPHA_DATE_TIME1/A20 = HCNVRT(TRANSDATE, '(H17)', 17, 'A20');
ALPHA_DATE_TIME2/A20 = HCNVRT(TRANSDATE, '(HYYMDS)', 20, 'A20');
WHERE DATE EQ 2000
END

La sortie est :

CUSTID  DATE-TIME         ALPHA_DATE_TIME1      ALPHA_DATE_TIME2
------  ---------         ----------------      ----------------
1237    2000/02/05 03:30  20000205033000000     2000/02/05 03:30:00
1118    2000/06/26 05:45  20000626054500000     2000/06/26 05:45:00

Haut de page

Exemple : Convertir un champ date-heure à un format alphanumérique (Maintain)

HCNVRT convertit le champ TRANSDATE à un format alphanumérique :

MAINTAIN FILE DATETIME
FOR ALL NEXT ID INTO STK;
COMPUTE
RESULT_HCNVRT/A20 = HCNVRT(STK.DT1,'(HYYMDH)',20, RESULT_HCNVRT);
TYPE "STK(1).DT1 = "STK(1).DT1;
TYPE "RESULT_HCNVRT = " RESULT_HCNVRT;
END