Discussion :

[MIG86]

Pourquoi remonter un si vieux sujet ?
Déjà parce que c'est un bel exemple de routine en Pascal. Puis parce qu'il fait double emploi avec le Turbo Pascal.

Que nous disent Richard Wilton et Peter Norton ?
« À partir de la version 1.1, le DOS possède un service de calcul du jour de la semaine [...] pour donner le jour de la semaine courant, mais ce n'est pas un obstacle : nous pouvons temporairement changer la date en cours pour en faire la date qui nous intéresse. »

Sachant que TP7 dispose d'une unité Dos, une recherche dans l'aide en ligne nous aiguille sur la fonction GetDate. Et le programme d'exemple remplit exactement la tâche désirée !

Morale : un prof ne demandera jamais qu'on concurrence Gauss ou Meeus.

[Alcatîz]

Bonjour,

Pourquoi remonter un si vieux sujet ?

... en effet...

Que nous disent Richard Wilton et Peter Norton ?
« À partir de la version 1.1, le DOS possède un service de calcul du jour de la semaine [...] pour donner le jour de la semaine courant, mais ce n'est pas un obstacle : nous pouvons temporairement changer la date en cours pour en faire la date qui nous intéresse. »

Changer temporairement la date du système n'est juste plus possible depuis Windows NT, à moins d'assumer que l'utilisateur ait des droits d'administrateur.

[MIG86]

Il me semble que c'est Windows Vista qui a restreint ce genre d'accès. J'ai en tête l'exemple d'un logiciel d'éphémérides développé sous XP, puis testé sous Vista en 2008. Il avait fallu activer les droits adminisateur pour le faire fonctionner. Après, j'avoue mieux connaître la branche 16 bits que NT.

Le problème du DOS est qu'il ne connaît pas de date antérieure au 1er janvier 1980. Cependant, ce n'est pas dur de tricher avec une date postérieure au 28 février 1900.

De toute façon, il est vrai que cette solution était quasiment obsolète. Je retourne me confiner...

P.S. : je confirme que vous avez raison pour NT.
http://www.frameworkpascal.com/helph...tdate_proc.htm
Aucune certitude quant à XP.

Bonne soirée.