Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionFunction 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
If (Not String.IsNullOrEmpty(Mavariable1) AND Not String.IsNullOrEmpty(Mavariable2)) Then '.... '.. Je lance le code else ' je ne lance pas le code End if