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
- Date interval
- Vb interval - Meilleures réponses
- Calculer la date de pâques - Codes sources - Visual Basic / VB.NET (Date & Heure)
- Calcule pour date - Codes sources - Visual Basic / VB.NET (Date & Heure)
- Trouve la date du lundi pour une semaine et une année données - Codes sources - Visual Basic / VB.NET (Date & Heure)
- ColdFusion : Script pour convertir une date gregorienne en date iso 8601 (n° de semaine) - Code - Guide
- Visual Basic / VB.NET : Calculer la date prévue d'accouchement - CodeS SourceS - Guide
Commentaires
- Messages postés
- 613
- Date d'inscription
- samedi 3 août 2002
- Statut
- Membre
- Dernière intervention
- 22 décembre 2016
-Yop !
Afyn
Navedac
- Messages postés
- 76
- Date d'inscription
- dimanche 25 juillet 2004
- Statut
- Membre
- Dernière intervention
- 20 mars 2006
-- Messages postés
- 76
- Date d'inscription
- dimanche 25 juillet 2004
- Statut
- Membre
- Dernière intervention
- 20 mars 2006
-aaaa-MM-jj
tu sembles fonctionner avec MM/aaaa/jj
Si tu veux le regler facilement dans le panneau de configuration, Options régionales
- Messages postés
- 76
- Date d'inscription
- dimanche 25 juillet 2004
- Statut
- Membre
- Dernière intervention
- 20 mars 2006
-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"
- Messages postés
- 55
- Date d'inscription
- dimanche 15 août 2004
- Statut
- Membre
- Dernière intervention
- 20 juin 2005
-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.