Accueil > Manip’s > Delphi > Atelier Delphi pour les Nuls > Exercices > Calculer l’âge du capitaine > Jouer avec les Dates -1-
Jouer avec les Dates -1-
samedi 19 avril 2008, par
Le moment est donc venu de nous familiariser avec les calculs de date :
Pour écrire
* I := I + 1 ;
Pascal préfère utiliser une formule dite d’incrémentation
* Inc( I ) ;
Ce qui rappelle étrangement le langage C, extrêmement puissant et compact
* I++ ;
L’utilisation de INC (ou I++) au lieu de I+1, permet au compilateur d’optimiser le code Machine
La formule de Décrémentation pour :
* I := I-1 ;
Etant tout naturellement
* Dec ( I ) ;
Venons en aux dates
Soit le Jour J de type Date
* var J : TDate ;
* Notez le nouveau type données (je vous avez prévenu que pascal était Trrrrès fortement typé)
Le lendemain s’écrit :
* Demain := IncDay ( J , +1 ) ;
* Rien de compliqué
Il n’y a pas de DecDay, la veille s’écrit donc :
* Veille := IncDay ( J , -1 ) ; // (l’argument est tout simplement négatif)
La semaine suivante :
* Semaine_Prochaine := IncWeek ( J , +1 ) ;
Et le Mois suivant devinez ???
* Mois_suivant := IncMonth ( J , +1 ) ;
Etc ...
TRAVAUX PRATIQUES
Si
* var DDR : Tdate ;
Est la date des dernières règles
- Trouvez la date de Conception
- Date de l’accouchement (calcul au choix pour 9 mois ou 40 semaines)
- Dates des Echos de 12, 22 et 32 SA
Conseil :
* Rajouter la bibliothèque DateUtils dans les Uses du formulaire pour accéder aux formules magiques :’-))
Exemple commenté dans le billet suivant
Messages
1. Jouer avec les Dates -1-, 19 avril 2008, 23:40, par BlueGYN