Discussion :

[kamadji]

bonjour,

je dois construire des rapport qui indique le nombre d'heures passes sur un projet pendant une semaine, je sais recuperer les projets, mais comment faire pour ne garder que les dates correspondant a une semaine ?

en gros si on me donne un jour, comment retrouver les autres dates de la meme semaine : : :

c louche comme question mais ca me serait super utile, merci !

ps: je viens de voir ds l'aide de MSN une methode Week() ki pourrait m'aider....mais c tout en anglais grrrr et c po tres clair, kelkun l'a deja utilise ?

il faudrait ke je test toute mes dates avec week(madate) et recuperer celle qui on le meme numero ?

merci !

[SpaceFrog]

regarde dans msn le datepicker ou monthview, ils ont une propriété week

[soazig]

Pourquoi prendre un marteau piqueur (ou picker ) pour écraser une mouche.
Pour récupérer le numéro de semaine :
Fonction DatePart("ww",MaDate, vbMonday, vbFirstFourDays)
Pour récupérer le numéro de semaine et l'année :
ou Format(MaDate,"ww yyyy", vbMonday, vbFirstFourDays)
Attention, j'ai donné les paramètres de firstdayofweek , firstweekofyear généralement utilisé en France, à savoir que la semaine commence le Lundi, et que la première semaine de l'année est celle où il y a au moins quatre jours.
Si tu ne travailles pas en France, cela peut changer.

Voici quelques fonctions qui pourraient te servir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
'BUT Renvoie le Jour de la semaine spécifié précédent la date passée en paramètre
'iNumJourSem= prend ses valeurs dans vbMonday, à vbSunday
Public Function F_GetJourSemPrecedent(ByVal Dtm As Date, ByVal iNumJourSem As Integer) As Date
F_GetJourSemPrecedent = f_GetJourSem(Dtm, iNumJourSem, -1)
End Function
 
 
'BUT Renvoie le Jour de la semaine spécifié suvant la date passée en paramètre
'iNumJourSem= prend ses valeurs dans vbMonday, à vbSunday
Public Function F_GetJourSemSuivant(ByVal Dtm As Date, ByVal iNumJourSem As Integer) As Date
F_GetJourSemSuivant = f_GetJourSem(Dtm, iNumJourSem, 1)
End Function
 
 
'BUT Renvoie le Jour de la semaine spécifié suivant ou précédent la date passée en paramètre
'paramètres:
'Dtm : Date à partir de laquelle la recherche se fait
'iNumJourSem= prend ses valeurs dans vbMonday à vbSunday
'iSens=+1 pour chercher dans le futur et -1 dans le passé
Public Function f_GetJourSem(ByVal Dtm As Date, ByVal ivbNumJourSem As Integer, ByVal iSens As Integer) As Date
Dim dtmJour As Date
Dim iPas As Integer
iPas = Sgn(iSens)
dtmJour = Dtm
While WeekDay(dtmJour, vbSunday) <> ivbNumJourSem
      dtmJour = DateAdd("d", iPas, dtmJour)
Wend
f_GetJourSem = dtmJour
End Function

[kamadji]

merci bcp je vais bucher ca....

[SpaceFrog]

Joli Swaz !
Je mettais juste sur une piste mais là c'est LA solution !
On en apprend tous les jours !!!

[kamadji]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Command1_Click()
Dim i As Integer
 
i = DatePart("ww", 2 / 11 / 3, vbMonday, vbFirstFourDays)
 
MsgBox " numero de la semaine : " & i
 
End Sub

il m'affiche tjrs 52.... meme kan je change la date... ???? ci ca fonctionnait, ca resoudrait tout mes problemes... !!!!!


ps: eux si vous pouviez aussi me dire ou trouver le control Monthview...paske j'en aurais surement besoin kan meme pour plus tard...

[soazig]

Bonjour,
Je suis étonnée que tu n'aies pas d'erreur de syntaxe , DatePart attend une date en deuxieme paramètre, ce que tu lui fournis n'en est pas une
Solution a/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DatePart("ww", CDate("02 /11/2003"), vbMonday, vbFirstFourDays)

et là je ne sais pas si il considère que c'est le 2 Novembre ou le 11 février, ça dépend des paramètres internationnaux.
Solution b ma préférée /

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DatePart("ww", DateSerial(2003,11,2), vbMonday, vbFirstFourDays)

Et là c'est sûr, il prend le 2 Novembre 2003.

DateSerial renvoie une date en fonction de l'année, mois, jour.
A+
Soazig

[kamadji]

mes remerciements les plus sinceres je devrait pouvoir faire un truc bien maintenant....