Calcul de date par un interval de semaine

Soyez le premier à donner votre avis sur cette source.

Vue 10 113 fois - Téléchargée 705 fois

Description

Ce petit programme sert à trouver facilement les dates d'une periode donné avec un interval de semaine. Dans le code vous pouvez changer l'interval pour l'année ou le mois.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Afyn
Messages postés
613
Date d'inscription
samedi 3 août 2002
Statut
Membre
Dernière intervention
22 décembre 2016
-
Yoman... j'suis solidaire... !

Yop !

Afyn
Navedac
cs_Creat
Messages postés
76
Date d'inscription
dimanche 25 juillet 2004
Statut
Membre
Dernière intervention
20 mars 2006
-
oups, tu fonctionnes plutot, jj/MM/aaaa
cs_Creat
Messages postés
76
Date d'inscription
dimanche 25 juillet 2004
Statut
Membre
Dernière intervention
20 mars 2006
-
comme je peux voir c'est ton format de date qui n'est pas comme le mien. Je n'avais pas pensé un autre format de date. le Programme fonctionne avec
aaaa-MM-jj
tu sembles fonctionner avec MM/aaaa/jj

Si tu veux le regler facilement dans le panneau de configuration, Options régionales
cs_Creat
Messages postés
76
Date d'inscription
dimanche 25 juillet 2004
Statut
Membre
Dernière intervention
20 mars 2006
-
Pour les 2 lignes suivantes :
dtDebutCours.Value = (Septembre.Substring(0, 5)) + "09-13"
dtFinCours.Value = (Decembre.Substring(0, 5)) + "12-23"

change le "09-13" pour "09/13" et "12-23" pour "12/23"
blob73
Messages postés
55
Date d'inscription
dimanche 15 août 2004
Statut
Membre
Dernière intervention
20 juin 2005
-
ben ca marche pas !!! visual studio me retourne une erreur sur le code suivant

Sub ResetDateAutomne()
Dim Septembre As String
Dim Decembre As String
' Reset la date du début de cours
Septembre = dtDebutCours.Value.Now
dtDebutCours.Value = (Septembre.Substring(0, 5)) + "09-13"
' Reset la date de la fin du cours
Decembre = dtFinCours.Value.Now
dtFinCours.Value = (Decembre.Substring(0, 5)) + "12-23"
End Sub


Le message d'erreur est :
"Une exception non gérée du type 'System.InvalidCastException' s'est produite dans microsoft.visualbasic.dll

Informations supplémentaires : Cast de la chaîne "15/1009-13" en type 'Date' non valide."


étrange non !!!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.