arbomont
Messages postés57Date d'inscriptionmardi 21 septembre 2004StatutMembreDernière intervention 3 février 2014
-
25 nov. 2004 à 16:20
lijohann
Messages postés76Date d'inscriptionlundi 26 juillet 2004StatutMembreDernière intervention 8 avril 2008
-
25 nov. 2004 à 17:04
je developpe un programme vb ou je voudrais afficher la semaine en cours, avec les jours et les dates.
Je me prend la tete depuis plusieurs jours, je n'arrive pas à trouver une solution pour calculer les dates des jours de la semaines en cours.
Je récupere la date du jour, et j'ajoute ou soustrait à cette date les autres jours de la semaine.
Le pb c'est qu'une semaine peut etre à cheval sur 2 mois, voir 2 années, que les mois font 28,29,30 ou 31 jours...
Bref je suis au bord du suicide, est ce que quelqu'un conaitrait une solution, ou un algoryhtme simple pour calculer les dates des jours de la semaine?
arbomont
Messages postés57Date d'inscriptionmardi 21 septembre 2004StatutMembreDernière intervention 3 février 2014 25 nov. 2004 à 16:46
Ce n'est pas exactement ça mon pb.
Pour expliquer plus simplement, je voudrais un algorithme permettant de calculer la date des lendemains.
Il suffit d'ajouter 1 à la date du jour, mais si la date du jour est la derniere du mois, ou de l'année, la date passe à 1 (le 31 du mois on ne passe pas à 32), etc...
C'est tout ceci que je n'arrive pas à resoudre, je recherche un algorithme qui tienne permette de le faire.
Si quelqu'un sait comment faire, il me sauverais presque la vie :shy)
lijohann
Messages postés76Date d'inscriptionlundi 26 juillet 2004StatutMembreDernière intervention 8 avril 20081 25 nov. 2004 à 16:51
tu as un fonction weekday(date, 1er jour de la semaine) qui te renvoie le jour de la semaine de ta date . l'argument 1er jour de la semaine te permet de specifier si ta semaine commence le dimanche ou le lundi.
Une fois ke tu as le our de la semaine pour avoir la liste des jours de la semaine tu peux faire un fct du style (en considerant que tu recupére tes dates dans un tableau):
' recupere le jour de la semaine
jour = weekday(tadate, vbmonday)
'boucle sur les 7 jours de la semaine
for i = 1 to 7
'la fct dateadd donne la date du jour qui se trouve à un intervalle defini par son unité ( jour, mois,année...), ici les jours ("d") et le nombre ( ici : on enleve la soustraction entre lejour de la semaine de ta date et le compteur, ce qui permet de retrouver tout les jours des la semaine)
tableau[i] = dateadd("d",-(jour - i), tadate)
next
'voila, j'ai fais ça vite fais mais ça devrais marcher
Vous n’avez pas trouvé la réponse que vous recherchez ?