Déterminer le jour d'une date sans utiliser les formats de date et de temps (pascal, console)

Soyez le premier à donner votre avis sur cette source.

Vue 12 024 fois - Téléchargée 753 fois

Description

Initialement, c'était un programme Maple que je voulais migrer en C++ ou en PHP. Mais finalement, Delphi n'avait pas de prog de ce genre. Donc => migration.

L'idée était de ne pas utiliser les types TDateTime et compagnie, car Maple est un outil mathématique et non bureautitique (sans faute!). En affirmant ceci, on part d'un tableau et on récurse le tout avec des boucles. Un modulo 7 a la fin clos le calcul. Aucune limite n'est à concevoir: on peut démarrer des hommes préhistorique et finir avec l'Univers.

Non seulement le prog affiche le jour d'une date, mais il peut donner un intervalle de jours entre les dates prédéfinies. Le code source peut sembler à première vue pas évident à la compréhension, mais il se révèle en fait tout simple par son principe. La mise en oeuvre est seulement plus délicate...

Le Zip est séparé entre une interface console et une unité réutilisable dans d'ultérieurs programmes. Mais étant donné l'existence de la fonction DayOfWeek, ceci serait surprenant. En revanche, ce code source est qualifiable de 95% Pascal pur, car en définitivement aucun USES n'est requis dans ce code, excepté bien sûr SysUtils pour les fonctions StrToInt et IntToStr. Des fonctions existantes telles que IsLeapYear ont été intégrées.

Indication: la révolution française était un mardi, le Titanic un dimanche. Ca permet de savoir si ça bugge...

Conclusion :


Vous pouvez toujours visiter http://altert.family.free.fr/

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de Caribensila

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.