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.
Afyn
Messages postés608Date d'inscriptionsamedi 3 août 2002StatutMembreDernière intervention22 décembre 2016 16 oct. 2004 à 18:05
Yoman... j'suis solidaire... !
Yop !
Afyn
Navedac
cs_Creat
Messages postés76Date d'inscriptiondimanche 25 juillet 2004StatutMembreDernière intervention20 mars 2006 15 oct. 2004 à 12:40
oups, tu fonctionnes plutot, jj/MM/aaaa
cs_Creat
Messages postés76Date d'inscriptiondimanche 25 juillet 2004StatutMembreDernière intervention20 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és76Date d'inscriptiondimanche 25 juillet 2004StatutMembreDernière intervention20 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és55Date d'inscriptiondimanche 15 août 2004StatutMembreDernière intervention20 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."
16 oct. 2004 à 18:05
Yop !
Afyn
Navedac
15 oct. 2004 à 12:40
15 oct. 2004 à 12:38
aaaa-MM-jj
tu sembles fonctionner avec MM/aaaa/jj
Si tu veux le regler facilement dans le panneau de configuration, Options régionales
15 oct. 2004 à 12:32
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"
15 oct. 2004 à 11:29
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.