Définition...
Opérateurs...
Exemple...
Traduction...
/***************************************************************/
Type Date Implemente Public : IEspaceMetre Defaut Final
/* Objet : Encapsulation du type Date. */
/***************************************************************/
Prive :
Jour : Entier Lecture Public;
Mois : Entier Lecture Public;
Annee : Entier Lecture Public;
Heure : Entier Lecture Public;
Minute : Entier Lecture Public;
Seconde : Entier Lecture Public;
Millieme : Entier Lecture Public;
Public :
/*-------------------------------------------------------------*/
/* Heritage des methodes d'IEspaceMetre. */
/*-------------------------------------------------------------*/
Operateur Optimiser(Invariant, NulAbsorbant) <=(D : Nul Ou Date) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) >=(D: Nul Ou Date) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) <(D : Nul Ou Date) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) >(D : Nul Ou Date) Retourner Nul Ou Booleen;
/*-------------------------------------------------------------*/
/* Methodes propres. */
/*-------------------------------------------------------------*/
Constructeur Optimiser(Invariant, NulAbsorbant) (D : Nul Ou Caractere);
Constructeur Optimiser(Invariant, NulAbsorbant) (J : Nul Ou Entier, M : Nul Ou Entier, A : Nul Ou Entier);
Constructeur Optimiser(Invariant, NulAbsorbant) (J : Nul Ou Entier, M : Nul Ou Entier, A : Nul Ou Entier, H : Nul Ou Entier, Mi : Nul Ou Entier, S : Nul Ou Entier);
Constructeur Optimiser(Invariant, NulAbsorbant) (J : Nul Ou Entier, M : Nul Ou Entier, A : Nul Ou Entier, H : Nul Ou Entier, Mi : Nul Ou Entier, S : Nul Ou Entier, Ms : Nul Ou Entier);
Operateur Optimiser(Invariant, NulAbsorbant) +(S : Nul Ou Entier) Retourner Nul Ou Date;
Operateur Optimiser(Invariant, NulAbsorbant) -(S : Nul Ou Entier) Retourner Nul Ou Date;
Operateur Optimiser(Invariant, NulAbsorbant) -(D : Nul Ou Date) Retourner Nul Ou Reel;
Fonction Optimiser(Invariant, NulAbsorbant) AjouterJours(J : Nul Ou Entier) Retourner Nul Ou Date;
Fonction Optimiser(Invariant, NulAbsorbant) AjouterMois(M : Nul Ou Entier) Retourner Nul Ou Date;
Fonction Optimiser(Invariant, NulAbsorbant) AjouterAnnees(A : Nul Ou Entier) Retourner Nul Ou Date;
Fonction Optimiser(Invariant, NulAbsorbant) AjouterHeures(H : Nul Ou Entier) Retourner Nul Ou Date;
Fonction Optimiser(Invariant, NulAbsorbant) AjouterMinutes(Mi : Nul Ou Entier) Retourner Nul Ou Date;
Fonction Optimiser(Invariant, NulAbsorbant) AjouterMilliemes(F : Nul Ou Entier) Retourner Nul Ou Date;
Fonction Optimiser(Invariant) DernierJour(D : Nul Ou Date) Retourner Nul Ou Entier;
Fin Type
Le type Date possède les constructeurs suivants :
Principal
Variable
DateDuContrat : Date;
DateDuJour : Date;
Debut
DateDuContrat=DateDuContrat.AjouterJours(1);
/* La date du contrat est augmentée d'un jour. */
DateDuContrat=DateDuContrat.AjouterJours(-1);
/* La date du contrat est diminuée d'un jour. */
Si DateDuContrat==DateDuJour Alors
/* Egalité entre deux dates. */
...
Fin Si
Si DateDuContrat!=DateDuJour Alors
/* Inégalité entre deux dates. */
...
Fin Si
Si DateDuContrat<=DateDuJour Alors
/* Infériorité large entre deux dates. */
...
Fin Si
Si DateDuContrat<DateDuJour Alors
/* Infériorité stricte entre deux dates. */
...
Fin Si
DateDuContrat=Date("21-06-1997");
/* Conversion d'une chaîne de caractères en une date. Il s'agit du 21 juin 1997. */
DateDuContrat=Date("21-06-1997 17:9:23");
/* Conversion d'une chaîne de caractères en une date. Il s'agit du 21 juin 1997 à 17 heure 9 minute et 23 seconde. */
DateDuContrat=Date(21,6,1997);
/* Conversion de trois entiers en une date. Il s'agit du 21 juin 1997. */
DateDuContrat=Date(21,6,1997,17,9,23);
/* Conversion de trois entiers en une date. Il s'agit du 21 juin 1997 à 17 heure 9 minute et 23 seconde. */
Fin Principal
Datum | Date | 日期 | Fecha | - | - | - | - |