Fonction Récupération Date

Version imprimable

19/09/2013, 11h55
ARTETA13

Fonction Récupération Date

Bonjour,

Pourriez-vous m'aider svp.
Je souhaiterai une fonction qui me permette de récupérer une date ou de reconstruire la date avec:
sJour = jour de la semaine de 1 à 7
sNumSemaine = au numéro de semaine de 1 à 52 (voir 53)
sAnnée = année (ex: 2013)

Merci pour votre aide.
19/09/2013, 12h05
Marc-L

Bonjour,

à défaut de code, merci de nous montrer au moins l'analyse, comment le calculer manuellement ? …

Pas sur que ce soit ce que tu cherches:

Code:

1
2
3
4
5
6
7
Private Sub Test()
  Debug.Print (Format(CreationDate(2013, 9, 19), "dd/mm/yy"))
End Sub
 
Private Function CreationDate(Annee%, Mois%, Jour%) As Date
  CreationDate = CDate(Mois% & " " & Jour% & " " & Annee%)
End Function

Bonjour, test ça

Code:

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
30
31
Function ConverSemaineDate(sJour As Integer, sNumSemaine As Integer, sAnnée As Integer) As Date
'Pourriez-vous m'aider svp.
'Je souhaiterai une fonction qui me permette de récupérer une date ou de reconstruire la date avec:
'sJour = jour de la semaine de 1 à 7
'sNumSemaine = au numéro de semaine de 1 à 52 (voir 53)
'sAnnée = année (ex: 2013)
 
j = sNumSemaine * 7 'Je calcul le nombre de jour en fonction du dimanche de la semaine 1
d = CDate("1/1/" & sAnnée) 'Je me positionne au 01/01/ de l'année
 
Dim i As Integer
i = 0
'Je recherche le dimanche de la semaine 1
While Weekday(CDate("1/1/" & sAnnée) - i) <> 1 Or CInt(Format(CDate("1/1/" & sAnnée) - i, "w")) <> 1
DoEvents
'Debug.Print Weekday(CDate("1/1/" & sAnnée) - i) & " : " & CInt(Format(CDate("1/1/" & sAnnée) - i, "w"))
i = i + 1
Wend
 
d = CDate("1/1/" & sAnnée) - i 'Je fixe le dimanche de la semaine 1
ConverSemaineDate = d + j - 7 + sJour 'J'ajoute  le nombre de jour pour trouver le dimanche de la semaine concerné, moins 7 jour plus la valeur du jour de la semaine.
End Function
Sub test()
Debug.Print ConverSemaineDate(1, 42, 2013)
Debug.Print ConverSemaineDate(1, 42, 2012)
Debug.Print ConverSemaineDate(1, 42, 2011)
Debug.Print ConverSemaineDate(1, 42, 2010)
Debug.Print ConverSemaineDate(1, 42, 2009)
Debug.Print ConverSemaineDate(1, 42, 2008)
Debug.Print ConverSemaineDate(1, 42, 2007)
End Sub

Cette fonction semble suffisante:

Code:

1
2
3
4
5
6
7
Private Sub Test()
  Debug.Print (Format(CreationDate(2011, 42, 1), "dd/mm/yyyy"))
End Sub
 
Private Function CreationDate(Annee%, Semaine%, Jour%) As Date
  CreationDate = 7 * Semaine% + CDate("3/1/" & Annee%) - Weekday(CDate("3/1/" & Annee%)) - 5 + Jour% - 1
End Function

elle semble marcher mieux

je trouve 10/10/2011 pour 2011 ce qui est une erreur! :cry:
Citation:
Envoyé par vcottineau
Cette fonction semble suffisante:
Code:

1 2 3 4 5 6 7 Private Sub Test() Debug.Print (Format(CreationDate(2011, 42, 1), "dd/mm/yyyy")) End Sub Private Function CreationDate(Annee%, Semaine%, Jour%) As Date CreationDate = 7 * Semaine% + CDate("3/1/" & Annee%) - Weekday(CDate("3/1/" & Annee%)) - 5 + Jour% - 1 End Function
Je me la garde en réserve :ccool:

19/09/2013, 14h41
ARTETA13

pb: Fonction date

Merci à tous.

J'ai réussi à résoudre mon problème.
19/09/2013, 15h08
nibledispo

récupération date
Bonjour,

Peut-on m'expliquer la formule ?

Pourquoi 3/1/......

Partant de celle-ci, j'ai fabriqué cette autre qui semble donner le résultat
Code:

1 2 CreationDate = CDate("1/1/" & 2011) + (semaine%*7) + Jour% - 6
- CDate("1/1/" & 2011) me donne le nombre correspondant au premier jour de l'année.
- (semaine%*7) ajoute le nombre de jour écoulé depuis le début de l'année
- jour% ajoute le nombre de jour de la dernière semaine.

Mais pourquoi faut-il enlever 6 ou 5 selon la formule ?

Je comprend bien la différence entre 6 et 5 qui provient de ce que dans ma formule le premier jour de l'année est pris en compte mais ne comprend pas le pourquoi de ce retrait qu'il soit 5 ou 6.

Cordialement.
19/09/2013, 15h52
Invité

Un tentative d'explication en suivant la norme ISO 8601:

Dans Excel:
en A1 le jour (de 1 à 7)
en A2 la semaine de (1 à 53)
en A3 l'année

Alors la formule (adaptée à la France) devient:

Code:

=7*(B2-1)+DATE(B3;1;4)-JOURSEM(DATE(B3;1;4);2)+1+B1-1

Pourquoi la date du 4 janvier ? Parce que le 4 janvier est toujours contenu dans la semaine n°1.

La logique est donc de partir du 4 janvier, de chercher le lundi de cette même semaine d’où le JOURSEM() et d'y ajouter le nombre de semaine et le nombre de jours pour obtenir la date voulue.

Voila j'espère que c'est clair.
19/09/2013, 16h28
nibledispo

fonction récupération date

Bonjour,

Merci pour l'explication que je vais analyser.
Je vais dans le même temps m'assurer avec de multiples essais que ma formule simplifiée -et peut-être simpliste- est valable dans tous les cas de figure.

Cordialement.
19/09/2013, 17h05
Invité

Citation:

Envoyé par nibledispo

Bonjour,

Merci pour l'explication que je vais analyser.
Je vais dans le même temps m'assurer avec de multiples essais que ma formule simplifiée -et peut-être simpliste- est valable dans tous les cas de figure.

Cordialement.

Par exemple:

Année: 2014
Semaine: 1
Jour: 1

Ta solution donne : 03/01/2014
Ma solution donne: 30/12/2013

Et donc ta formule est fausse.
19/09/2013, 20h34
nibledispo

fonction récupération date

Bonjour Vcottineau,

Effectivement ma formule était trop simple pour être valable dans tous les cas de figure. Le début d'année est toujours délicat à négocier après un réveillon bien arrosé même pour les formules.

Je pense avoir compris ta formulation mais elle me semble difficile à retenir.

Cordialement.