Date

Ce programme présente l'usage des dates.

Le fichier source est ${UPS_HOME}/upsvtm/demo/${UPS_LANGUAGE}/date.upl.

Mode compilé

Commande de compilation


upscmp Source=date.upl

Commande d'exécution


date

Mode interprété


upssng Source=date.upl

Fichier source


Source Composant "Exemple d'emploi du type Date" Version 4.0.0;



Principal

/*******/

Variable

/******/

   D : Date;

   R : Reel;



Debut

D=Date("27-01-1998");

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date("27-01-1998 21:00:14");

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date("27-01-1998 21:00:14:98");

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");<



D=Date(27, 1, 1998);

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27, 1, 1998, 21, 9, 14);

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27, 1, 1998, 21, 9, 14, 98);

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27, 1, 1998, 21, 9, 14)+70;

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27, 1, 1998, 21, 9, 14);

D+=70;

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27, 1, 1998, 21, 9, 14)-20;

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27, 1, 1998, 21, 9, 14);

D-=20;

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27, 1, 1998, 21, 9, 14).AjouterMinutes(62);

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27,1,1998,21,9,14).AjouterMinutes(-11);

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27,1,1998,21,9,14).AjouterHeures(4);

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27, 1, 1998, 21, 9, 14).AjouterHeures(-11);

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27, 1, 1998, 21, 9, 14).AjouterJours(4);

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27, 1, 1998, 21, 9, 14).AjouterJours(-30);

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27, 1, 1998, 21, 9, 14).AjouterMois(4);

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27, 1, 1998, 21, 9, 14).AjouterMois(-3);

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27, 1, 1998, 21, 9, 14).AjouterAnnees(4);

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27, 1, 1998, 21, 9, 14).AjouterAnnees(-3);

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27, 1, 1998, 21, 9, 14).AjouterMilliemes(980);

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27, 1, 1998, 21, 9, 14).AjouterMilliemes(-980);

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



D=Date(27, 1, 1998, 21, 9, 14).DernierJour();

Ecran.Ecrire(D.Jour);

Ecran.Ecrire(D.Mois);

Ecran.Ecrire(D.Annee);

Ecran.Ecrire(D.Heure);

Ecran.Ecrire(D.Minute);

Ecran.Ecrire(D.Seconde);

Ecran.Ecrire(D.Millieme);

Ecran.Ecrire(");



R=Date(27, 1, 1998, 21, 9, 14)-Date(27, 1, 1998, 20, 8, 6);

Ecran.Ecrire(R);

D=Date(27, 1, 1998, 21, 9, 14).AjouterMilliemes(980);

Si D==Date(27, 1, 1998, 21, 9, 14, 980) Alors

   Ecran.Ecrire("D==29-1-1998 21:9:14:980");

Fin Si

Si D!=Date(27, 1, 1998, 21, 9, 14, 980) Alors

   Ecran.Ecrire("D!=29-1-1998 21:9:14:980");

Fin Si

Si D<=Date(27, 1, 1998, 21, 9, 14, 980) Alors

   Ecran.Ecrire("D<=29-1-1998 21:9:14:980");

Fin Si

Si D>=Date(27, 1, 1998, 21, 9, 14, 980) Alors

   Ecran.Ecrire("D>=29-1-1998 21:9:14:980");

Fin Si

Si D<Date(27, 1, 1998, 21, 9, 14, 980) Alors

   Ecran.Ecrire("D<29-1-1998 21:9:14:980");

Fin Si

Si D>Date(27, 1, 1998, 21, 9, 14, 980) Alors

   Ecran.Ecrire("D>29-1-1998 21:9:14:980");

Fin Si

D=Date("29-1-1998 21:9:14");

Ecran.Ecrire(Caractere(D, "%jj-%mm-%A %HH:%Mi:%S"));

Ecran.Ecrire(Caractere(D, "%J %JJ %M %MM"));

Fin Principal

Résultat de l'exécution

27 1 1998 0 0 0 0 27 1 1998 21 0 14 0 27 1 1998 21 0 14 98 27 1 1998 0 0 0 0 27 1 1998 21 9 14 0 27 1 1998 21 9 14 98 27 1 1998 21 10 24 0 27 1 1998 21 10 24 0 27 1 1998 21 8 54 0 27 1 1998 21 8 54 0 27 1 1998 22 11 14 0 27 1 1998 20 58 14 0 28 1 1998 1 9 14 0 27 1 1998 10 9 14 0 31 1 1998 21 9 14 0 28 12 1997 21 9 14 0 27 5 1998 21 9 14 0 27 10 1997 21 9 14 0 27 1 2002 21 9 14 0 27 1 1995 21 9 14 0 27 1 1998 21 9 14 980 27 1 1998 21 9 13 20 31 1 1998 21 9 14 0 3668.00000000000 D==29-1-1998 21:9:14:980 D<=29-1-1998 21:9:14:980 D>=29-1-1998 21:9:14:980 29-01-1998 21:09:14 jeu jeudi jan janvier