Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 21:55:29

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par steeventide

RE : PROBLEME DANS BASE DE DONNéES par Tursiop60

RE : PROBLEME DANS BASE DE DONNéES par PCPT

RE : FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par PCPT

+ de logiciels à télécharger

1 464 877 membres
369 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 010 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CALCUL DERNIERE SEMAINE DU MOIS ET MOIS CORRESPONDANT A UNE SEMAINE

Information sur la source

Catégorie :Date & Heure Classé sous : calcul mois, semaine, annee, ventes Niveau : Débutant Date de création : 03/11/2007 Date de mise à jour : 04/11/2007 16:45:47 Vu / téléchargé: 4 624 / 265

Auteur : mstarsup5

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (9)

Ajouter un commentaire et/ou une note

Description

Bonjour,

C'est un mini programme qui permet de calculer le mois en fonction de la semaine et de l'année, ça peut être utile pour des personnes qui travaillent dans la vente de produits, etc...

Cela fonctionne à partir de 2007, jusqu'en 2099.

Waspy59 en avait besoin, et comme je pense que ça peut être utile à plusieurs, j'ai penser poster la source ici.
Pas besoin de noter, c'est un tout petit truc, mais ça pourra peut être éviter à d'autres personnes de chercher sans trouver.

Source

Dans le zip

Dans le zip

Conclusion

Encore une fois, pas besoin de noter pour dire que vous ça ne vous sert pas :)

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Calcul de la dernière semaine du mois
- Form1.frm 3 773 octets
- Project1.vbp 625 octets
- Project1.vbw 49 octets
Calcul de mois avec pour données année et semaine
- Form1.frm 3 595 octets
- Project1.vbp 625 octets
- Project1.vbw 49 octets

Télécharger le zip

Historique

03 novembre 2007 17:36:08 :: -
03 novembre 2007 17:42:16 :: Rajout commentaire
04 novembre 2007 16:45:47 :: Rajout de la fonction pour calculer la dernière semaine du mois, après demande de waspy59. Encore une fois, ça peut être utile à d'autres.

Sources du même auteur

MORPION - IA ALGORITHMES MINMAX ET ALPHABETA POUR DÉBUTANTS

Toutes les sources de mstarsup5

Sources de la même categorie

HORLOGE À AIGUILLES (RADIAN) par brainbass

HORLOGE BINAIRE A LEDS par Blodox

CHRONOMETRE par fredatcs

CALCUL HEURE DE NUIT par ocejade

CALENDRIER CONVERTISSEUR par Sechaud

Toutes les sources de la catégorie Date & Heure

Sources en rapport avec celle ci

CALENDRIER PAR SEMAINE VBA ACCESS par pillsmen

CALCUL AUTOMATIQUE DES N° DE SEMAINE par fpetit25

VBA EXCEL - ATTRIBUÉ EN FONCTION DE L'ANNÉE UN N° DE SEMAINE... par fpetit25

GESTION DES VENTES par haythem04

TROUVE LES DATE DE DÉBUT ET FIN DE SEMAINE POUR UN SEMAINE E... par Zeroc00l

Commentaires et avis

Commentaire de jack le 04/11/2007 02:34:02 administrateur CS

Trop complexe. Utilise les fonctions toutes faites comme DatePart.

Commentaire de mstarsup5 le 04/11/2007 02:37:53

Oui, tu viens de me les souffler dans le forum, je vais faire ça, ça sera plus simple :)

Commentaire de PCPT le 04/11/2007 13:00:10 administrateur CS

salut,
ton code aura peut-être plus sa place sur www.codyx.org

Commentaire de Chrysostome le 16/04/2008 19:44:16

Salut,
c'est suite à tes commentaires sur le pauvre sujet du jeu de dames, que j'ai trouvé (en toute modestie) tes interventions intéressantes, et j'ai regardé ce programme.
Beh, c'est que d'une manière générale, j'ai pris l'habitude de passer les dates en Long, c'est beaucoup plus faciles à manier.
Et juste une petite réflexion le dernier jour d'un mois est toujours le précédent du 1er du mois d'après.
Ainsi, le dernier jour de Février de l'année sera :
Day(CDate(CLng(CDate(Format("01/03/" & TonAnnée, "dd/mm/yy"))) - 1))
2007 => 28
2008 => 29
Voili,voilou, voilà.

Commentaire de mstarsup5 le 17/04/2008 01:50:40

Salut Chrysostome, et merci pour le post :)

Très intéressante ta formule, je ne connaissais pas les fonctions Day, Cdate et Clng, mais c'est en effet très pratique pour manipuler les dates et faire des calculs avec :)

J'avais oublié que j'avais programmé ça (c'était pour une autre personne à la base), je viens de le revoir donc, et bon... c'est vrai que le truc n'est pas optimisé du tout... DatePart fait le tout en une ligne... >_> (Mais la personne en question voulait le faire sans les fonctions internes de windows, je ne me rappelle plus la raison qu'il m'avait donné d'ailleurs.)

Faudra que je publie mes codes un de ces 4 (je n'en ai publié aucun :/), même si ils ont tous un code assez moche (PCPT peut en témoigner pour avoir vu un de mes programmes :p)

En tout cas, merci pour les fonctions et le post, ça me sera très utile justement pour mon prochain projet :)

Commentaire de Renfield le 17/04/2008 07:14:37 administrateur CS

ouh que c'est laid :

"01/03/" & TonAnnée

je crois que je vais me sentir mal...
bon, plaisanterie mise a part, faut avouer que c'est pas top. ca fonctionne (Mars) sur TON poste, avec TES parametres regionnaux...
mais si le poste est configuré en british, par exemple, on aura MM/DD/YY et la, tta date serait compris comme un 3 janvier.

d'autre part, tu fais un CDate de cette chaine de caractère... donc, ca va utiliser, une nouvelle fois tes parametres régionnaux.

01/03/YYYY (3 Janvier), formaté donnera 03/01/YYYY auquel tu appliques le CDate
on retombes là sur le 1 Mars. Un peu risqué comme gymnastique, non ?

les dates en dur dans le code se notent #MM/DD/YYYY#
exemple :

DateNaissance = #12/31/1983#

les dates composées DOIVENT passer par DateSerial.

dans ton cas, tu aurais donc pu faire

DateSerial(TonAnnée, 3, 1)

et même mieux :

day(dateserial(2007,3,0))

donnera directement 28

Commentaire de Chrysostome le 17/04/2008 16:55:11

Voilà la preuve qu'un modeste contributeur ne sera jamais un Administrateur, et que je perds mon temps à programmer alors que des Grands Chefs le font si bien.
Mon propos était surtout de faire remarquer que "le dernier jour d'un mois est toujours le précédent du 1er du mois d'après."
Et que j'ai juste voulu l'étayer par un exemple.
Merci de cette précision! Et plus optimisé que ça c'est dur!
Dès que je ferai des programmes pour l'international, je me permettrai de te demander des précisions.
Renfield, encore merci.

Commentaire de Renfield le 17/04/2008 17:01:30 administrateur CS

c'est effectivement du vécu, les parametres regionnaux, j'ai bossé dans une boite qui vendait un logiciel a l'internationnal, je suis donc assez sensible a ce genre de choses. (valable pour les numériques, les dates, les formules Excel, ....)

j'ai cependant l'impression que tu te sens rabaissé suite a mon intervention...
je le déplore. au réveil, j'ai surveillé du coin de l'oeil les messages déposés sur les sources, ton code m'a inspiré et j'ai a mon tour posté. le but est de te faire avancer, pas te rabaisser (idem pour tous ceux a qui je fais partager mon experience)

a ta disposition, pour l'international (ou tout autre chose pour quoi je pourrais t'etre utile)

Commentaire de Chrysostome le 17/04/2008 17:56:15

Non, non rassure-toi! Je suis toujours debout. Et je ne suis absolument pas vexé, mais je voulais appuyer surtout sur le fait qu'il y a comme toi (et quelques autres) des gens qui sont largement supérieurs à d'autres, dont moi!
En toute amitié!

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Pb Requete Sql [ par LittleTab ] Bonjour,J'ai un problème lors de l'execution de ma requête SQL qui me permet de supprimer une ligne de ma table.Voici ma requête :DELET retrouver une date avec le jour, la semaine et l'annee [ par BosB ] Je m'explique: je cherche une fonction pouvant me donne une date au format jj/mm/aaaa, sachant que je dispose du jour (ex lundi=1, mardi=2), du numero "URGENT" De numero de semaine vers date [ par stephG01 ] Salutje cherche le format a appliquer au numero de semaine pour obtenir la date du premie jour de la semaine.ex: semaine 48 -> 22/11/2004merci Help sur base access avec du VB (assez urgent) [ par kyo87 ] Bonjour j'ai du faire une base access mais j ai un gros probleme en VBJe dois récupérer les données d'une des tables (T Four)(saisies dans un formulai Gros pb avec les dates [ par arbomont ] je developpe un programme vb ou je voudrais afficher la semaine en cours, avec les jours et les dates.Je me prend la tete depuis plusieurs jours, je n Mettre deux niveaux de regroupement dans un DATAREPORT VB6 [ par pupuce60 ] Bonjour,Je cherche à mettre deux niveaux de regroupement dans un DataReport.J'arrive à faire :Semaine 46 09/11/2004 xxxxxxxxxxxxx 09/11/200 combo classer jour [ par oxram ] Bonjour je suis a la recherche d'une fonction me permettant de mettre dans ma combo box la liste des jour de la semaine de la semaine dans l'ordre des besoin d aide svp [ par peur2r1en ] Peur2Rien , Hello allsvp veuillez m aidez j ai un prob concernant une procedure ke je doi codé , avec des conditions precise : je doi creer une feuil URGENT Expert demandé ( Date, trouver le début de la semaine ) [ par Nightcourrier ] Voici mon problème, Je veux savoir d'Apres une date X quand était le début de cette semaine.Ex :On est le 27 janvier 2005 et je ve Access 2002 [ par Paul Seguin ] Comment déterminer dans Access 2002 que la semaine égal 5 jour comme [EndDate]-[StartDate] = Résultat en semaine de 5 jour exp.