Le Blog de DSR57 - Programmation WinDev

Ce billet traite du cas de l'ann�e est bissextile dans les EDI Pc-Soft.

Pc-Soft � travers le WLangage met � disposition des d�veloppeurs un tr�s grand nombre de fonctions facilitant le quotidien du d�veloppeur.
Lors de la cr�ation d'un programme de gestion de date de fin de contrat, j'ai eu � identifier les ann�es bissextiles. Le WLangage n'a pas de fonction permettant de savoir si le fameux 29 f�vrier existe pour une ann�e.
C'est pour cette raison que je partage le code de la proc�dure que j'ai d�velopp� pour l'occasion

Code windev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
 
PROCEDURE AnnéeBissextile(pi_année est un entier)
 
SI modulo(pi_année, 400) = 0 ALORS RENVOYER Vrai
SI modulo(pi_année, 100) = 0 ALORS RENVOYER Faux
SI modulo(pi_année, 4) = 0 ALORS RENVOYER Vrai
RENVOYER Faux

L'algorithme mis en place dans cette fonction est celui d'�cris sur wikip�dia : http://fr.wikipedia.org/wiki/Ann%C3%A9e_bissextile et enseign� dans les �coles de programmation lors des premier TD.

Maintenant, voyons une �criture plus WinDevienne, en utilisant une variable de type date et la fonction DateValide

Code windev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
PROCEDURE AnnéeBissextile(pi_année est un entier)
 
 
RENVOYER DateValide(NumériqueVersChaîne(pi_année,"04D") + "0229")

Attention aux limitations de la fonction DateValide, d'apr�s la documentation officielle :

• Si la date est ant�rieure au 4 octobre 1582, cette date est consid�r�e comme appartenant au calendrier Julien. Cette date est valide.
• Si la date est post�rieure au 15 octobre 1582, cette date est consid�r�e comme appartenant au calendrier Gr�gorien. Cette date est valide.

Vous avez maintenant le choix entre ces deux �critures, � vous de choisir.

Bon d�veloppement � tous