Calculer la prochaine date selon un numero du jour [Résolu]
RahSam
- Messages postés
- 12
- Date d'inscription
- mardi 21 octobre 2014
- Statut
- Membre
- Dernière intervention
- 4 novembre 2014
- Messages postés
- 27064
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
- Modérateur
- Dernière intervention
- 15 décembre 2019
A voir également:
- Vb.net date
- Vb.net date du jour - Meilleures réponses
- Date vb.net - Meilleures réponses
- Vb.net date compare ✓ - Forum - VB.NET
- Vb.net date du jour ✓ - Forum - C# / .NET
- Visual Basic / VB.NET : Date et quantième - CodeS SourceS - Guide
- Visual Basic / VB.NET : Data access component - CodeS SourceS - Guide
- Visual Basic / VB.NET : Date & Heure - Sources , plus de 50 000 CodeS-SourceS. - Guide
9 réponses
- Messages postés
- 12
- Date d'inscription
- mardi 21 octobre 2014
- Statut
- Membre
- Dernière intervention
- 4 novembre 2014
Parce que suppossant que mon numéro du jours est 3 et ma prochaine numero que je veux atteindre est 5. Donc je verifie si mon numero du jours est inferieur a 5 oui alors je soustrait le numero a atteindre avec mon numero du jour et la j increment pour aller jusqu a 5.
Et lorsque j arrive a 5 je sors de ma boucle parce que c mon but.
Et la j fais Date.AddDay(NbjrRetour )
Et lorsque j arrive a 5 je sors de ma boucle parce que c mon but.
Et la j fais Date.AddDay(NbjrRetour )
- Messages postés
- 18038
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
Ah ?
Et quand sors-tu donc de ta boucle ? Je ne le vois pas autrement qu'à la fin, moi ... et donc lorsque diff est atteint... et donc ta boucle ne fait qu'ajouter diff au bout du compte (et est donc inutile !)
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend
Et quand sors-tu donc de ta boucle ? Je ne le vois pas autrement qu'à la fin, moi ... et donc lorsque diff est atteint... et donc ta boucle ne fait qu'ajouter diff au bout du compte (et est donc inutile !)
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend
- Messages postés
- 14046
- Date d'inscription
- mardi 11 mars 2003
- Statut
- Contributeur
- Dernière intervention
- 15 décembre 2019
Ton jour de référence c'est toujours "aujourd'hui" ou non?
Quand le jour cherché à le même numéro que le jour de référence, on reste sur la même semaine ou celle d'après?
Quand le jour cherché à le même numéro que le jour de référence, on reste sur la même semaine ou celle d'après?
- Messages postés
- 14046
- Date d'inscription
- mardi 11 mars 2003
- Statut
- Contributeur
- Dernière intervention
- 15 décembre 2019
Déjà si tu veux une date, alors il faut que ta fonction retourne une date et pas un int.
Ensuite, comme le dit Uc, ta boucle ne sert à rien.
Voici un code qui à l'air de marcher, (testé sur une semaine avec un jour de référence différent d'aujourd'hui)
Ensuite, comme le dit Uc, ta boucle ne sert à rien.
Voici un code qui à l'air de marcher, (testé sur une semaine avec un jour de référence différent d'aujourd'hui)
Function TrouveDate(JourRef As Int32, JourRecherche As Int32) As DateTime
Dim ecart As Int32
Select Case Math.Sign(JourRecherche - JourRef)
Case -1 'le jour recherché vient avant le jour de référence dans la semaine, il sera donc la semaine suivante
ecart = 7 - JourRef + JourRecherche
Case 0 'le jour recherché est le même que le jour de référence
ecart = 7
Case 1 'le jour recherché vient aprés le jour de référence
ecart = JourRecherche - JourRef
End Select
Dim Aujourdhui As DateTime = DateTime.Now.Date 'on part d'aujourd'hui pour avoir la bonne semaine
Dim Dimanche As DateTime = Aujourdhui.AddDays(-1 * Aujourdhui.DayOfWeek) 'on cherche le dimanche précédent
Dim DateRef As DateTime = Dimanche.AddDays(JourRef) 'on arrive à la date de référence
Return DateRef.AddDays(ecart) 'on ajoute l'écart
End Function
- Messages postés
- 27064
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
- Modérateur
- Dernière intervention
- 15 décembre 2019
Bonsoir,
Il est demandé sur ce forum de ne poser QU'UNE question par discussion.
Hors...là... c'est une nouvelle question... tu devrais donc (après avoir mis en RESOLU celle-ci) ouvrir une nouvelle discussion.
Mais bon... faisons une petite exception.
Si tu veux vérifier que les paramètres de ta fonctions ne sont pas vides avant d'en lancer le code... un "simple" IF suffira.
Si tes paramètres sont de type STRING tu peux utiliser :
Il est demandé sur ce forum de ne poser QU'UNE question par discussion.
Hors...là... c'est une nouvelle question... tu devrais donc (après avoir mis en RESOLU celle-ci) ouvrir une nouvelle discussion.
Mais bon... faisons une petite exception.
Si tu veux vérifier que les paramètres de ta fonctions ne sont pas vides avant d'en lancer le code... un "simple" IF suffira.
Si tes paramètres sont de type STRING tu peux utiliser :
If (Not String.IsNullOrEmpty(Mavariable1) AND Not String.IsNullOrEmpty(Mavariable2)) Then '.... '.. Je lance le code else ' je ne lance pas le code End if