CALENDRIER ANNUEL NORME ISO
veloce35
Messages postés
27
Date d'inscription
jeudi 2 octobre 2003
Statut
Membre
Dernière intervention
18 avril 2010
-
9 sept. 2011 à 13:50
Prog1001 Messages postés 56 Date d'inscription mercredi 5 mai 2004 Statut Membre Dernière intervention 22 septembre 2009 - 16 sept. 2011 à 14:53
Prog1001 Messages postés 56 Date d'inscription mercredi 5 mai 2004 Statut Membre Dernière intervention 22 septembre 2009 - 16 sept. 2011 à 14:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/53562-calendrier-annuel-norme-iso
https://codes-sources.commentcamarche.net/source/53562-calendrier-annuel-norme-iso
16 sept. 2011 à 14:53
14 sept. 2011 à 11:01
14 sept. 2011 à 10:37
J'ai bêtement répondu à TA source. Quelle buse je fais!
Je décoche "Être averti..." et c'est bon.
Sinon, as-tu essayer la dll?
Encore désolé...... ;-)
14 sept. 2011 à 10:28
:)
14 sept. 2011 à 09:53
C'est bien la dll qui permet de calculer la date de Pâques en fonction de l'année saisie. A partir de cette date, on peut calculer toutes les autres dates de fêtes mobiles.
14 sept. 2011 à 09:20
14 sept. 2011 à 09:17
Merci pour ton commentaire, qui n'est pas l'avis de tout le monde, et c'est tant mieux. C'est comme ça qu'on avance.
Bref! En fait, j'ai récemment ajouté une fonction qui retourne directement le nom du jour férié s'il la date fournit en est une.
Elle se trouve dans CalcPâques.DatesFêtes et se nomme justement Férié(<Dates>)
Si la date est un jour férié, elle retourne le nom, sinon, une chaîne vide.
C'est cette fonction qui sera le plus fréquemment utilisée.
Maintenant, que veux-tu dire par "jours fériés présélectionnés"?
PS: comme me l'a fait remarquer à juste titre NHENRY, il y a une petite erreur de code, sans gravité. Il faut remplacer a ligne "LundiPâques DateAdd(DateInterval.Day, 1, Pâques)" par "LundiPâques DateAdd(DateInterval.Day, 1, Pâques(Année))".
13 sept. 2011 à 23:58
12 sept. 2011 à 13:41
En outre, elle te donne le n° de la semaine légale, si l'année est bissextile et si la date est un week-end...
http://www.vbfrance.com/codes/DATES-FETES-FIXES-MOBILES_53581.aspx
12 sept. 2011 à 10:26
Pour la sauvegarde dans un fichier : il suffit de sérialiser les variables : Flags, A.Flags et l'année dans un fichier. Je le ferai à l’occasion.
J'ai pas testé sous Windows 64bits ni sous sous VB Express. Ton problème est étonnant.
Les jours fériés dans la DGV sont la somme des jours marqués avec un drapeau samedi, dimanche ou fériés. Par défaut au lancement du programme, seul les dimanches son marqués : c'est pourquoi ça correspond au nombre de semaine. Essais d'appliquer le drapeau férié sur d'autre date et tu verras que la valeur de la colonne "Jours fériés" change.
je veux bien le code qui permet de calculer les dates des jours fériés en automatique.
12 sept. 2011 à 09:44
Une toute petite erreur: dans ton DGV, je pense qu'il faut remplacer "Jours fériers" par "Nombre de semaines" que comporte le mois.
Par contre, si ça t'intéresse, j'ai créé une petite dll qui calcul, entre autre, les dates des fêtes fixes et mobiles. Ton programme pourrai s'en servir pour les prédéterminer.
9 sept. 2011 à 22:26
Je n'ai pas cherché beaucoup... Mais il y a un dysfonctionnement quelque part. Car après ouvert le fichier Semaine.vb [Design], j'ai eu une erreur dans Semaine.Designer.vb sur la ligne Me.S = New Calendrier.DataGridViewNotSelection() Ce qui n'est pas normal. Bref, soit il y a un truc qui ne va pas dans mon install de VB Express (une ressource manquante disponible uniquement dans les éditions non Express), soit j'ai loupé un truc... Mais je n'ai fait qu'ouvrir le fichier .sln
A noter qu'à la première ouverture, l'exécution n'a posé aucun souci, sauf que les jours ne pouvaient être sélectionnés.
En tout cas, l'affichage du calendrier est sympa !
9 sept. 2011 à 18:26
9 sept. 2011 à 14:00
Merci pour ce commentaire encourageant et pour la remarque du bug ; celui-ci se corrige en ajoutant :
ListViewFlags.Items(0).Selected = True
dans : Calendrier_Load
Après l'insertion des iTems dans la listview.
(= Avant la ligne A.RA())
9 sept. 2011 à 13:50
j'ai pu constater un bug si je clic sur optionButton sans cocher un checkBox sur le calendrier et que j'applique.
Cordialement