ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

trouver un lundi d'une semaine dans une année   



L'auteur

eddymaue
Canada Canada
Membre Simple
# 0000000075
enregistré le 26/10/2004
Maue Eddy
j8j 8j8 Gatineau
de la société Formatek
Fiche personnelle


Note des membres
pas de note

Contributions > 01 - PRG : Programmation

trouver un lundi d'une semaine dans une année
# 0000000421
ajouté le 06/03/2007 17:15:00 et modifié le 05/01/2014
consulté 8600 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0
VFP 5.0

Code source :
? Mow(2007,1,1)  && lundi le 1er jour du mois de janvier de l'an de grâce 2007

function Mow(lnyear,lnweek)

#define lnj Dow(Date(lnyear,01,01))
&& evaluer la bonne semaine
&& ajouter le nombre de semaine pour cibler la semaine à évaluer
Return iif(lnj>5,9-lnj,2-lnj)+Date(lnyear ,01,01);
+     (iif(Vartype(m.lnweek)="N",m.lnweek-1,0)*7)

Commentaires
le 21/04/2007, eddymaue a écrit :
excuse moé Maître mais ici ma fonction fonctionne bien a+

pis ca ma pris une semaine pour la créer
Pis t'ai aussi tannant que Anders mais j'apprécie
bonne soirée ;o)

le 17/02/2015, eddymaue a écrit :
corriger en 2014

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3