Retrouver une date à partir d'un numéro de semaine
CyberCorp
-
4 mars 2001 à 17:45
fred19732 Messages postés 10 Date d'inscription mercredi 16 novembre 2005 Statut Membre Dernière intervention 3 mars 2010 - 12 déc. 2006 à 13:35
fred19732 Messages postés 10 Date d'inscription mercredi 16 novembre 2005 Statut Membre Dernière intervention 3 mars 2010 - 12 déc. 2006 à 13:35
A voir également:
- Retrouver une date à partir d'un numéro de semaine
- Calcul date a date - Forum Javascript / DHTML
- Semaine paire impaire ✓ - Forum C# / .NET
- Calculer bic à partir de l'iban ✓ - Forum VB.NET
- Vérifier la validité d un numéro de téléphone - Forum PHP
- Premier jour de la semaine ✓ - Forum Visual Basic
3 réponses
-------------------------------
Réponse au message :
-------------------------------
Pourrais-tu donner un exemple ? Je comprends mal ce que tu cherches.
Merci!
-------------------------------
Réponse au message :
-------------------------------
Est-il possible de retrouver la date du premier jour d'une semaine en entrant uniquement le numéro de la semaine (et l'année bien sur).
Je n'ai trouvé aucune référence à ce sujet.
Merci.
-------------------------------
Function LaDate(semaine, année)
JourDeLAn = CDate("01/01/" & année)
MonJourSem = WeekDay(JourDeLAn, 2)
Select Case MonJourSem
Case 1
NbresJours = ((Val(semaine) - 1) * 7) + 2
Case 2
NbresJours = ((Val(semaine) - 1) * 7) + 1
Case 3
NbresJours = ((Val(semaine) - 1) * 7) + 0
Case 4
NbresJours = ((Val(semaine) - 1) * 7) + 6
Case 5
NbresJours = ((Val(semaine) - 1) * 7) + 5
Case 6
NbresJours = ((Val(semaine) - 1) * 7) + 4
Case 7
NbresJours = ((Val(semaine) - 1) * 7) + 3
End Select
LaDate = CDate(Day(NbresJours) & "/" & Month(NbresJours) & "/" & année)
End Function
-
------------------------------
Réponse au message :
-------------------------------
Pourrais-tu donner un exemple ? Je comprends mal ce que tu cherches.
Merci!
-------------------------------
Réponse au message :
-------------------------------
Est-il possible de retrouver la date du premier jour d'une semaine en entrant uniquement le numéro de la semaine (et l'année bien sur).
Je n'ai trouvé aucune référence à ce sujet.
Merci.
-------------------------------
Function LaDate(semaine, année)
JourDeLAn = CDate("01/01/" & année)
MonJourSem = WeekDay(JourDeLAn, 2)
Select Case MonJourSem
Case 1
NbresJours = ((Val(semaine) - 1) * 7) + 2
Case 2
NbresJours = ((Val(semaine) - 1) * 7) + 1
Case 3
NbresJours = ((Val(semaine) - 1) * 7) + 0
Case 4
NbresJours = ((Val(semaine) - 1) * 7) + 6
Case 5
NbresJours = ((Val(semaine) - 1) * 7) + 5
Case 6
NbresJours = ((Val(semaine) - 1) * 7) + 4
Case 7
NbresJours = ((Val(semaine) - 1) * 7) + 3
End Select
LaDate = CDate(Day(NbresJours) & "/" & Month(NbresJours) & "/" & année)
End Function
-
------------------------------
fred19732
Messages postés
10
Date d'inscription
mercredi 16 novembre 2005
Statut
Membre
Dernière intervention
3 mars 2010
12 déc. 2006 à 13:35
12 déc. 2006 à 13:35
Bonjour,
Cette fonction est pas mal, mais je cherche autre chose.
J'ai un numéro de semaine (par ex 50), un jour (par ex le lundi), une année (2006) et je voudrais avoir la date exacte (11 dec 2006).
quelqu'un peut il m'aider?
merci d'avance
fred
Cette fonction est pas mal, mais je cherche autre chose.
J'ai un numéro de semaine (par ex 50), un jour (par ex le lundi), une année (2006) et je voudrais avoir la date exacte (11 dec 2006).
quelqu'un peut il m'aider?
merci d'avance
fred
