Premier et dernier jour de la semaine

Bonjour,
je voudrais recuperer la date du premier et du dernier jour de la semaine à partir du numéro de semaine et de l'année.
si vous avez un truc merci.

Rhum1

bonjour,
Tu peux utiliser la fonction Weekday(Date) qui te renvoie un numéro correspondant à un jour de la semaine (1->dimanche,7->samedi), ou encore utiliser la fonction WeekdayName(Date) qui te renvoie directement le nom du jour correspondant.

Pour ton problème, tu sais qu'une semaine c'est 7 jour (là, je ne t'apprends rien!), donc tu peux multiplier le numéro de ta semaine par 7 (pour savoir le numéro du jour dans l'année) et ensuite tu ajoute le résultat à la date #01/01/année# et à partir de là tu dois pouvoir déterminer le premier et le dernier jour de la semaine.

Désolé si je ne suis pas très clair, mais j'espère que cela va t'aider quand même !
Bon courage.

Merci,
c'est assez clair. J'avais oublié qu'on pouvais faire
des calculs avec les dates.


-------------------------------
Réponse au message :
-------------------------------

bonjour,
Tu peux utiliser la fonction Weekday(Date) qui te renvoie un numéro correspondant à un jour de la semaine (1->dimanche,7->samedi), ou encore utiliser la fonction WeekdayName(Date) qui te renvoie directement le nom du jour correspondant.

Pour ton problème, tu sais qu'une semaine c'est 7 jour (là, je ne t'apprends rien!), donc tu peux multiplier le numéro de ta semaine par 7 (pour savoir le numéro du jour dans l'année) et ensuite tu ajoute le résultat à la date #01/01/année# et à partir de là tu dois pouvoir déterminer le premier et le dernier jour de la semaine.

Désolé si je ne suis pas très clair, mais j'espère que cela va t'aider quand même !
Bon courage.

Cela ne peut pas fonctionner.

Notre calendrier est fait de telle manière que le premier jour de la première semaine de l'année n'est pas forcément le 1er janvier.

Je m'explique : pour la semaine 01 de l'année 2004, le premier jour de cette semaine est le lundi 29 décembre 2003.

Tout comme le premier jour de la semaine 02 de l'année 2004 est le lundi 5 janvier 2004...

Regardez sur votre calendrier...

Je cherche actuellement une solution et c'est vrai qu'à part coder une usine à gaz, je ne vois pas de solution.

Si vous en trouvez une, je suis preneur !!

Fabrice.

tout comme fabrice
je cherche un moyen d'obtenir le numero de la semaine et j'utilise pour cela : DatePart("ww",dat,vbmonday).
Seulement pour la semaine du lundi 29 decembre au dimanceh 4 janvier j'obtient pour le 29 et 31 le numero 53 et pour le 1 au 4 janvier le numero de semaine 1.
que faut t'il faire pour que ma semaine ne soit plus couper en deux?

merci d'avance

Voici deux fonctions qui donnent le numéro de la semaine et le numéro de l'année. Ces deux fonctions ont l'air de renvoyer les bonnes valeurs.


Function TrouveSemaineDeLaDate(ByVal DateConcernee As Date) As String
' Bogue du lundi 29 décembre 2003 qui est compté en semaine 53 au lieu de semaine 1
If Format(DateConcernee, "dd/mm/yyyy", vbMonday, vbFirstFourDays) = "29/12/2003" Then
TrouveSemaineDeLaDate = "01"
Else
TrouveSemaineDeLaDate = Format(Format(DateConcernee, "ww", vbMonday, vbFirstFourDays), "00")
End If
End Function


Function TrouveAnneeDeLaDate(ByVal DateConcernee As Date) As String
' Bogue du lundi 29 décembre 2003 qui est compté en semaine 53 au lieu de semaine 1
If Format(DateConcernee, "dd/mm/yyyy", vbMonday, vbFirstFourDays) = "29/12/2003" Then
TrouveAnneeDeLaDate = "2004"
Else
TrouveAnneeDeLaDate = Format(DateConcernee, "yyyy", vbMonday, vbFirstFourDays)
End If
End Function

Sur fond gris :

Function TrouveSemaineDeLaDate(ByVal DateConcernee As Date) As String ' Bogue du lundi 29 décembre 2003 qui est compté en semaine 53 au lieu de semaine 1 If Format(DateConcernee, "dd/mm/yyyy", vbMonday, vbFirstFourDays) = "29/12/2003" Then TrouveSemaineDeLaDate = "01" Else TrouveSemaineDeLaDate = Format(Format(DateConcernee, "ww", vbMonday, vbFirstFourDays), "00") End If End Function Function TrouveAnneeDeLaDate(ByVal DateConcernee As Date) As String ' Bogue du lundi 29 décembre 2003 qui est compté en semaine 53 au lieu de semaine 1 If Format(DateConcernee, "dd/mm/yyyy", vbMonday, vbFirstFourDays) = "29/12/2003" Then TrouveAnneeDeLaDate = "2004" Else TrouveAnneeDeLaDate = Format(DateConcernee, "yyyy", vbMonday, vbFirstFourDays) End If End Function

dedolé mais cela ne marche pas.De plus je suis en vb.net et donc voici mon message d'erreur :

Message: BC30057: Too many arguments to 'Public Function Format(Expression As Object, [Style As String = ""]) As String'.

Source Error:



Line 13: dim i as integer
Line 14: dim semaine1 as integer
Line 15: if format("dd/mm/yyyy",dat, vbFirstFourDays)="29/12/2003" then
Line 16: semaine="1"

un grand merci qd meme fkuchta

Alors, peut-être qu'en enlevant les arguments :
, vbMonday, vbFirstFourDays

au bout de la fonction format, ça devrait marcher ?

ca y est j'ai resolu mon probleme en lui passant comme date celle du dimanche.cela devrait en plus fonctionné pour toute les années . En tout cas voici mon code
:
Sub Button1_Click(sender As Object, e As EventArgs)
label1.visible=true
label2.visible=true
dim dat as date
dim semaine as integer
dim semain as integer

dat=(calendar1.selecteddate)
semain=weekday(dat)
if semain=2 then
dat=dat.adddays(6)
end if

if semain=3 then
dat=dat.adddays(5)
end if

if semain=4 then
dat=dat.adddays(4)
end if

if semain=5 then
dat=dat.adddays(3)
end if

if semain=6 then
dat=dat.adddays(2)
end if

if semain=7 then
dat=dat.adddays(1)
end if

semaine=datepart("ww",dat,vbmonday)

label2.text=("le numero de la semaine dont la date du " & calendar1.selecteddate & " fait partie est le :").tostring
label1.text=semaine
End Sub

voila c'est assez simple je pense
maintenant je vais créer une classe car je dois réutiliser ce code plusieurs fois
a plus et merci fkuchta