CALCUL DE DATE PAR UN INTERVAL DE SEMAINE

cs_yoman64 Messages postés 592 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 4 décembre 2008 - 15 oct. 2004 à 05:02
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
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/26839-calcul-de-date-par-un-interval-de-semaine

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 !!!
cs_yoman64 Messages postés 592 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 4 décembre 2008
15 oct. 2004 à 05:02
Snif :'( Il y a de plus en plus de projet .Net...
qu'est ce que je vais devenir avec seulement mon 'vieu' Visual Basic 6 :'(
Rejoignez-nous