begin process at 2012 02 04 12:41:46
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Date & Heure

 > CALCUL DERNIERE SEMAINE DU MOIS ET MOIS CORRESPONDANT A UNE SEMAINE

CALCUL DERNIERE SEMAINE DU MOIS ET MOIS CORRESPONDANT A UNE SEMAINE


 Information sur la source

Note :
Aucune note
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é :6 157 / 292
Auteur : mstarsup5

Ecrire un message privé
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.


 Conclusion

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

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

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

Source avec Zip MORPION - IA ALGORITHMES MINMAX ET ALPHABETA POUR DÉBUTANTS
Toutes les sources de mstarsup5

 Sources de la même categorie

Source avec Zip Source avec une capture LES FONCTIONS DATE PAR L'EXEMPLE. par pasquet78
Source avec Zip Source avec une capture CALENDRIER, MODE D'EMPLOI par pasquet78
Source avec Zip Source avec une capture Source .NET (Dotnet) HORLOGE DIODE AVEC 3 ALARMES ET REMISE À L'HEURE par EhJoe
Source avec Zip Source avec une capture POINTEUSE HORAIRES PAR SEMAINE par VBNoob13
Source avec Zip Source avec une capture HORLOGE À AIGUILLES SIMPLEMENT DANS UN USERFORM EXCEL par bigbe
Toutes les sources de la catégorie Date & Heure

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) NOM DU JOUR DE LA SEMAINE DE LA DATE CHOISIE par alpha5
Source avec Zip Source avec une capture Source .NET (Dotnet) CALENDRIER ANNUEL NORME ISO par Prog1001
NUMÉRO DE SEMAINE par vb5zh
Source avec Zip Source avec une capture CALENDRIER PAR SEMAINE VBA ACCESS par pillsmen
CALCUL AUTOMATIQUE DES N° DE SEMAINE par fpetit25

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.


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,967 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)