Discussion :

[leomath]

Bonjour,

J'avais besoin de savoir si une date était en heure d'hiver ou d'été en TP7. N'ayant pas de fonction qui différencie l'heure locale et l'heure GMT, comme dans d'autres langages, j'ai écrit ce programme. Peut-être existe-t-il déjà ? En tous les cas s'il peut servir à quelqu'un.

[Alcatîz]

Bonjour,

Merci pour ce petit source, qui a rejoint notre application de téléchargement :
http://pascal.developpez.com/telecha...ou-heure-d-ete

[leomath]

Bonjour,

Je corrige mon source en le rendant un peu plus élégant. Les derniers "if " étaient surchargés.
PS : Merci à Alcatîz de modifier si nécessaire dans l'application de téléchargement.

[Alcatîz]

PS : Merci à Alcatîz de modifier si nécessaire dans l'application de téléchargement.

C'est fait.

http://pascal.developpez.com/telecha...ou-heure-d-ete

[leomath]

Dans la deuxième version, j'avais remplacé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if (MOIS=3) and (JOUR >=25)
                then if (JOUR-25 >=NUM)
                  then HIV:= false;

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 if (MOIS=3) and (JOUR-25>=NUM)
              then HIV:= false;

Ce qui est mathématiquement équivalent et si toutes les variables sont des bytes.

Dans une application que je développe sur un site météo, jai créé une fonction [I]hiverouete[/I, pour la clarté du programme. Mais les valeurs des variables ci-dessus étant issues de l'appel de la procédure GetDate, les arguments sont des words. Ce qui entraine que la différence JOUR-25 est évaluée par TP comme un word et JOUR-25 vaut 65000 et quelques , si JOUR-25 est négatif mathématiquement parlant.
Les solutions les plus élégantes ne sont pas toujours les plus portables.

[Paul TOTH]

Dans la deuxième version, j'avais remplacé :
if (MOIS=3) and (JOUR >=25)
then if (JOUR-25 >=NUM)
then HIV:= false;
par if (MOIS=3) and (JOUR-25>=NUM)
then HIV:= false;
Ce qui est mathématiquement équivalent et si toutes les variables sont des bytes.

Dans une application que je développe sur un site météo, jai créé une fonction [I]hiverouete[/I, pour la clarté du programme. Mais les valeurs des variables ci-dessus étant issues de l'appel de la procédure GetDate, les arguments sont des words. Ce qui entraine que la différence JOUR-25 est évaluée par TP comme un word et JOUR-25 vaut 65000 et quelques , si JOUR-25 est négatif mathématiquement parlant.
Les solutions les plus élégantes ne sont pas toujours les plus portables.

moi je suis dans l'hémisphère sud