none
Semaine paire impaire RRS feed

  • Question

  • Bonjour,

    J'ai besoin d'avoir une semaine sur deux paire/impaire.  Le numéro de la semaine ne me convient pas parce que parfois nous avons 53 semaines.  Semaine 53 impaire suivie de la semaine 1 impaire, l'alternance est cassée.

    Quelqu'un aurait-il une routine vba qui sorte en alternance un 1 et un 0 ?

    Un grand merci d'avance

    jeudi 3 janvier 2013 09:24

Réponses

  • Function SemainePaire(ddate As Date) As Boolean
        Application.Volatile
        SemainePaire = DateDiff("ww", "02/01/12", ddate, vbMonday) Mod 2 = 0
    End Function

    Tout simplement ;)

    • Marqué comme réponse blaise032 jeudi 3 janvier 2013 10:56
    jeudi 3 janvier 2013 10:56