UpsKrn.Date

Définition


/***************************************************************/

Type Date Implemente Public : IEspaceMetre Defaut Final TailleSegment 32 ConserverObjets

/* Objet : Encapsulation du type Date. */

/***************************************************************/

/*-------------------------------------------------------------*/

/* Heritage des proprietes d'Objet.  */

/*-------------------------------------------------------------*/

Prive :

	
	EstInstanceDe : Type Lecture Public;

/*-------------------------------------------------------------*/

/* Proprietes propres.                     					      */

/*-------------------------------------------------------------*/

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;

/*-------------------------------------------------------------*/

/* Heritage des methodes d'Objet.    					      */

/*-------------------------------------------------------------*/

Public :

	
	Fonction Optimiser(Invariant) Identique(O : Nul Ou Objet) Retourner Nul Ou Booleen;
	

	Procedure Convertir(O : Nul Ou Objet);
	

	Fonction Optimiser(Invariant) CreeParLeServeur() Retourner Entier;
	

	Fonction Optimiser(Invariant) CreeParLeProcessus() Retourner Entier;
	

	Fonction Optimiser(Invariant) CreeDansLEntrepot() Retourner Entrepot;
	

	Fonction Cloner(EntrepotCible : Nul Ou Entrepot=Nul, Profondeur : ModeClonage = ClonageObjetSeul) Retourner Nul Ou Objet;
	

	Fonction LirePropriete(NomPropriete : Caractere) Retourner Nul Ou Objet;
	

	Procedure EcrirePropriete(NomPropriete : Caractere, Valeur : Nul Ou Objet);
	

	Fonction IncrementerDecrementerPropriete(NomPropriete : Nul Ou Caractere, Incrementer : Booleen, Prefixe : Booleen) Retourner Nul Ou Objet;
	

	Procedure SupprimerPropriete(NomPropriete : Caractere);
	

	Fonction Optimiser(Invariant) EnumererProprietes(NumeroPropriete : Entier, TypePropriete : Nul Ou Type=? Sortie, PeutEtreNul : Booleen=? Sortie, Aide : Nul Ou Caractere=? Sortie, NomEnumere : Nul Ou Caractere=? Sortie) Retourner Nul Ou Caractere;
	

	Fonction Optimiser(Invariant) Adresse() Retourner Nul Ou Caractere;

Prive :

	
	Fonction Exporter(E : Nul Ou IEchangeElementaire) Retourner Boolean;
	

	Fonction Importer(E : Nul Ou IEchangeElementaire, EntrepotCible : Nul Ou Entrepot=Nul, EstFiltre : Booleen=Faux, V : Entier=0, R : Entier=0, C : Entier=0) Retourner Nul Ou Objet;

/*-------------------------------------------------------------*/

/* Heritage des methodes d'IEspaceMetre.    					      */

/*-------------------------------------------------------------*/

Public :


	
	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.                                           */

/*-------------------------------------------------------------*/

Public :


	
	Constructeur Optimiser(Invariant, NulAbsorbant) (D : Nul Ou Caractere);
	

	Constructeur Optimiser(Invariant, NulAbsorbant) (J : Nul Ou Entier, M : Nul Ou Entier, A : Nul Ou Entier, 
	   H : Nul Ou Entier=Nul, Mi : Nul Ou Entier=Nul, S : Nul Ou Entier=Nul, Ms : Nul Ou Entier=Nul);
	

	Constructeur Optimiser(Invariant, NulAbsorbant) (J : Nul Ou Entier);
	

	Constructeur Optimiser(Invariant, NulAbsorbant) (J : Nul Ou Reel);
	

   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) +(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;

Prive :

	
   Destructeur(MettreEnAnteMemoire : Booleen) Retourner Booleen;

Fin Type

Le type date modélise la date (jour, mois et année) et l'heure (heure, minute, seconde et millième de seconde) dans l'intervalle -9.000.000 d'années à 9.000.000 d'années avec la précision le millième de secondes.

Le type Date possède les constructeurs suivants :

Conversion en une date d'une chaîne de caractères.
La chaîne doit être au format jour-mois-annee, jour-mois-annee heure:minute:seconde ou jour-mois-annee heure:minute:seconde:millieme.
Conversion en une date de sept entiers représentant respectivement le numéro du jour dans le mois (1 à 31), le numéro du mois dans l'année (1 à 12), le numéro de l'année, le numéro de l'heure (0 à 23), le numéro des minutes (0 à 59), le numéro des secondes (0 à 59) et le nombre de millièmes de secondes (0 à 999).
Conversion en une date d'un entier représentant un date dans le calendrier Julien.
Conversion en une date d'un réel représentant un date et heure dans le calendrier Julien.

Opérateurs

Le type Date possède les opérateurs standards suivants :

+ pour l'ajout de secondes à une date. Le résultat est une date.
- pour le retrait de secondes à une date. Le résultat est une date.
- pour la différence en secondes de deux dates. Le résultat est un réel.
== pour l'égalité entre deux dates. Le résultat est un booléen.
!= pour l'inégalité entre deux dates. Le résultat est un booléen.
<= et >= pour respectivement l'infériorité large et la supériorité large entre deux dates. Le résultat est un booléen.
< et > pour respectivement l'infériorité stricte et la supériorité stricte entre deux dates. Le résultat est un booléen.
= pour l'affectation d'une date dans une autre.
+= pour l'addition d'un nombre de secondes puis l'affectation du résultat.
-= pour soustraction d'un nombre de secondes puis l'affectation du résultat.

Exemple

Pour un exemple complet, merci de se référer à Date.

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

Traduction


-	-	-	-	-	-	-	-	-