Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Formule plus courte de numéro de semaine

4 views
Skip to first unread message

news.libertysurf.fr

unread,
Jan 21, 2004, 7:00:34 PM1/21/04
to
Bonjour,
J'ai trouvé la formule suivante pour obtenir le numéro de la semaine, plus
courte que celle bien connue de LL. Si la date est en A1 :
=ENT(MOD(ENT((A1-2)/7)+0,6;52+5/28))+1
Elle est basée sur la régularité du calendrier qui redevient semblable tous
les 28 ans, elle ne sera donc plus valable après 2100 qui ne sera pas
bissextile (après le 28 janvier 2104 exactement).

Christophe Péjout


Daniel.M

unread,
Jan 21, 2004, 7:44:18 PM1/21/04
to
Salut Christophe,

Merci beaucoup de ta contribution. Ça fonctionne très bien chez moi.
Juste une précaution, la formule est non-compatible avec un calendrier 1904.

Salutations,

Daniel M.

"news.libertysurf.fr" <pej...@libertysurf.fr> wrote in message
news:bun3ud$ps1$1...@news.tiscali.fr...

isabelle

unread,
Jan 21, 2004, 8:14:22 PM1/21/04
to
et valable seulement en europe ;-)
isabelle

"Daniel.M" a écrit :

Daniel.M

unread,
Jan 21, 2004, 8:44:09 PM1/21/04
to
> et valable seulement en europe ;-)
> isabelle

Exact. Il s'agit de la norme ISO-européenne.

Salutations,

Daniel M.


Modeste

unread,
Jan 22, 2004, 8:25:58 AM1/22/04
to
bonjour Christophe au losange ;-)))

Voir aussi en réponse à une proposition récente de AV
(24 12 2003 ici même)

extrait d'un correctif microsoft
http://support.microsoft.com/default.aspx?
scid=kb;fr;200299

'uniquement en VBA et avec EXCEL 2000+
Function sem_Iso (MyDate As Date) As Integer ' Semaine
de l'année
sem_Iso = Format(MyDate, "ww", vbMonday,
vbFirstFourDays)
If sem_Iso > 52 Then
If Format(MyDate + 7, "ww", vbMonday,
vbFirstFourDays) = 2 Then sem_Iso Y = 1
End If
End Function

@+

0 new messages