Google Groupes n'accepte plus les nouveaux posts ni abonnements Usenet. Les contenus de l'historique resteront visibles.
Dismiss

Formule plus courte de numéro de semaine

4 vues
Accéder directement au premier message non lu

news.libertysurf.fr

non lue,
21 janv. 2004, 19:00:3421/01/2004
à
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

non lue,
21 janv. 2004, 19:44:1821/01/2004
à
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

non lue,
21 janv. 2004, 20:14:2221/01/2004
à
et valable seulement en europe ;-)
isabelle

"Daniel.M" a écrit :

Daniel.M

non lue,
21 janv. 2004, 20:44:0921/01/2004
à
> et valable seulement en europe ;-)
> isabelle

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

Salutations,

Daniel M.


Modeste

non lue,
22 janv. 2004, 08:25:5822/01/2004
à
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 nouveau message