Calcul de date par un interval de semaine

Soyez le premier à donner votre avis sur cette source.

Vue 10 648 fois - Téléchargée 810 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 608 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 22 décembre 2016
16 oct. 2004 à 18:05
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
15 oct. 2004 à 12:40
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
15 oct. 2004 à 12:38
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
15 oct. 2004 à 12:32
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
15 oct. 2004 à 11:29
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 !!!
Afficher les 6 commentaires

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.