Trouver les date de debut et de fin a partir d'un numero de semaine

Question

Trouver les date de debut et de fin a partir d'un numero de semaine

Signaler

kulinicm

Messages postés: 12
Date d'inscription: mardi 8 février 2005
Statut: Membre
Dernière intervention: 20 mai 2005

- 28 avril 2005 à 14:54
juniorberry

Messages postés: 2
Date d'inscription: mardi 3 juin 2003
Statut: Membre
Dernière intervention: 1 juin 2006

- 22 nov. 2005 à 16:42

salut,

j'ai un probleme je n'arrive pas a trouver les date de debut et de fin d'un semaine a partir du numero de cette semaine ainsi que de l'annee.

qq'un a un solution ??

SVP c urgent.

A voir également:

Dateadd asp
Asp.net dateadd - Meilleures réponses
Trouve les date de début et fin de semaine pour un semaine et une année données - Codes sources - Visual Basic / VB.NET (API)
Probleme Script calendrié avec date de debut et date de fin. ✓ - Forum - PHP
Après avoir entré le numéro du mois recherché, trouver la date de fin du mois (2 ✓ - Forum - Visual Basic 6
IRC : Un script pour colorer votre texte en debut et en fin :) - CodeS SourceS - Guide
Trouve la date du lundi pour une semaine et une année données - Codes sources - Visual Basic / VB.NET (Date & Heure)

5 réponses

Répondre Posez votre question

cs_Yopyop · Answer 1 · 2005-04-28T19:52:09+0200

Réponse 1 / 5

cs_Yopyop

Messages postés: 586
Date d'inscription: lundi 7 janvier 2002
Statut: Membre
Dernière intervention: 10 février 2010

1
28 avril 2005 à 19:52

asp ou asp.net ?

yopyop

kulinicm · Answer 2 · 2005-04-29T10:53:02+0200

Réponse 2 / 5

kulinicm

Messages postés: 12
Date d'inscription: mardi 8 février 2005
Statut: Membre
Dernière intervention: 20 mai 2005

29 avril 2005 à 10:53

en ASP

cs_Yopyop · Answer 3 · 2005-04-29T11:13:56+0200

Function GetWorkWeekDisplay(dtmDate)
intDay = DatePart("w",dtmDate)
If intDay < 2 Then
dtmMonday = DateAdd("d",1,dtmDate)
dtmFriday = DateAdd("d",5,dtmDate)
Elseif intDay = 2 Then
dtmMonday = DateAdd("d",0,dtmDate)
dtmFriday = DateAdd("d",4,dtmDate)
Elseif intDay = 3 Then
dtmMonday = DateAdd("d",-1,dtmDate)
dtmFriday = DateAdd("d",3,dtmDate)
Elseif intDay = 4 Then
dtmMonday = DateAdd("d",-2,dtmDate)
dtmFriday = DateAdd("d",2,dtmDate)
Elseif intDay = 5 Then
dtmMonday = DateAdd("d",-3,dtmDate)
dtmFriday = DateAdd("d",1,dtmDate)
Elseif intDay = 6 Then
dtmMonday = DateAdd("d",-4,dtmDate)
dtmFriday = DateAdd("d",0,dtmDate)
Elseif intDay = 7 Then
dtmMonday = DateAdd("d",-5,dtmDate)
dtmFriday = DateAdd("d",-1,dtmDate)
End If
GetworkweekDisplay = dtmMonday & " thru " & dtmFriday
End Function
response.write "" & GetworkweekDisplay(Date) & ""

teste bien les débuts d'année....

yopyop

kulinicm · Answer 4 · 2005-04-29T11:16:51+0200

Réponse 4 / 5

kulinicm

Messages postés: 12
Date d'inscription: mardi 8 février 2005
Statut: Membre
Dernière intervention: 20 mai 2005

29 avril 2005 à 11:16

oki merci pour ta reponse

juniorberry · Answer 5 · 2005-11-22T16:42:08+0100

Bonjour,

Merci pour ce script. Je l'ai adapté à mes besoins qui étaient d'avoir la date de tous les jours avec un numero de semaine égal à numero de semaine en cours + 1 :

Function GetWorkWeekDisplay(dtmDate,jour)
intDay = DatePart("w",dtmDate)
If intDay < 2 Then
dtmMonday = DateAdd("d",1,dtmDate)
dtmTuesday = DateAdd("d",2,dtmDate)
dtmWednesday = DateAdd("d",3,dtmDate)
dtmThursday = DateAdd("d",4,dtmDate)
dtmFriday = DateAdd("d",5,dtmDate)
dtmSaturday = DateAdd("d",6,dtmDate)
dtmSunday = DateAdd("d",7,dtmDate)
Elseif intDay = 2 Then
dtmMonday = DateAdd("d",0,dtmDate)
dtmTuesday = DateAdd("d",1,dtmDate)
dtmWednesday = DateAdd("d",2,dtmDate)
dtmThursday = DateAdd("d",3,dtmDate)
dtmFriday = DateAdd("d",4,dtmDate)
dtmSaturday = DateAdd("d",5,dtmDate)
dtmSunday = DateAdd("d",6,dtmDate)
Elseif intDay = 3 Then
dtmMonday = DateAdd("d",-1,dtmDate)
dtmTuesday = DateAdd("d",0,dtmDate)
dtmWednesday = DateAdd("d",1,dtmDate)
dtmThursday = DateAdd("d",2,dtmDate)
dtmFriday = DateAdd("d",3,dtmDate)
dtmSaturday = DateAdd("d",4,dtmDate)
dtmSunday = DateAdd("d",5,dtmDate)
Elseif intDay = 4 Then
dtmMonday = DateAdd("d",-2,dtmDate)
dtmTuesday = DateAdd("d",-1,dtmDate)
dtmWednesday = DateAdd("d",0,dtmDate)
dtmThursday = DateAdd("d",1,dtmDate)
dtmFriday = DateAdd("d",2,dtmDate)
dtmSaturday = DateAdd("d",3,dtmDate)
dtmSunday = DateAdd("d",4,dtmDate)
Elseif intDay = 5 Then
dtmMonday = DateAdd("d",-3,dtmDate)
dtmTuesday = DateAdd("d",-2,dtmDate)
dtmWednesday = DateAdd("d",-1,dtmDate)
dtmThursday = DateAdd("d",0,dtmDate)
dtmFriday = DateAdd("d",1,dtmDate)
dtmSaturday = DateAdd("d",2,dtmDate)
dtmSunday = DateAdd("d",3,dtmDate)
Elseif intDay = 6 Then
dtmMonday = DateAdd("d",-4,dtmDate)
dtmTuesday = DateAdd("d",-3,dtmDate)
dtmWednesday = DateAdd("d",-2,dtmDate)
dtmThursday = DateAdd("d",-1,dtmDate)
dtmFriday = DateAdd("d",0,dtmDate)
dtmSaturday = DateAdd("d",1,dtmDate)
dtmSunday = DateAdd("d",2,dtmDate)
Elseif intDay = 7 Then
dtmMonday = DateAdd("d",-5,dtmDate)
dtmTuesday = DateAdd("d",-4,dtmDate)
dtmWednesday = DateAdd("d",-3,dtmDate)
dtmThursday = DateAdd("d",-2,dtmDate)
dtmFriday = DateAdd("d",-1,dtmDate)
dtmSaturday = DateAdd("d",0,dtmDate)
dtmSunday = DateAdd("d",1,dtmDate)
End If if jour 0 then GetworkweekDisplay dtmSunday if jour 1 then GetworkweekDisplay dtmMonday if jour 2 then GetworkweekDisplay dtmTuesday if jour 3 then GetworkweekDisplay dtmWednesday if jour 4 then GetworkweekDisplay dtmThursday if jour 5 then GetworkweekDisplay dtmFriday if jour 6 then GetworkweekDisplay dtmSaturday
End Function

for i=1 to 7
Select Case i
Case 1
jour = "Lundi " & GetworkweekDisplay((Date+7),1)
Case 2
jour = "Mardi " & GetworkweekDisplay((Date+7),2)
Case 3
jour = "Mercredi " & GetworkweekDisplay((Date+7),3)
Case 4
jour = "Jeudi " & GetworkweekDisplay((Date+7),4)
Case 5
jour = "Vendredi " & GetworkweekDisplay((Date+7),5)
Case 6
jour = "Samedi " & GetworkweekDisplay((Date+7),6)
Case 7
jour = "Dimanche " & GetworkweekDisplay((Date+7),0)
End Select

Votre réponse