calcul d'abo.
Jimmy
j'ai une formule à rallonge pour calculer la date d'échéance d'un abonnement
(3,6 ou 12 mois) d'un journal qui parait tous les jours sauf dimanche et 1er
mai. Le 1er jour d'abonnement peut être n'importe quel jour de la semaine
sauf dimanche bien entendu.
Existe t-il une formule simple ?
Merci d'avance
Jimmy le deb.
Azo4
--
Serge CENCI
MVP MS Windows
https://mvp.support.microsoft.com/profile/Serge.Cenci
http://www.communautes-numeriques.net/
sergioENL...@orange.fr
"Jimmy" <jimmy....@invalid.com> a écrit dans le message de
news:uHiZZxxf...@TK2MSFTNGP06.phx.gbl...
Jimmy
news:%23drmYf5...@TK2MSFTNGP05.phx.gbl...
Bonjour serge,
Ces formules servent à calculer des champs d'une base de données de +de 430
abonnés.
Je devrais la réaliser sous Access mais je ne suis pas au point et n'ai pas
de temps pour le moment.
Cordialement, Jimmy.
Azo4
NB - le nombre de formules de la BD de Works est...limité!
--
Serge CENCI
MVP MS Windows
https://mvp.support.microsoft.com/profile/Serge.Cenci
http://www.communautes-numeriques.net/
sergioENL...@orange.fr
"Jimmy" <jimmy....@invalid.com> a écrit dans le message de
news:uKVrkj6f...@TK2MSFTNGP02.phx.gbl...
Jimmy
> peux-tu nous donner ici ta formule?
>
> NB - le nombre de formules de la BD de Works est...limité!
Si tu veux:
- Il s'agit d'abonnements à un journal en 3, 6, 12mois ou prélèvement
mensuels(prl).
- Abonnements en A= 7jours/7; B=6jours/7 (sauf dimanche); C= vendredi,samedi
et dimanche; D= samedi, dimanche et lundi; E= du mardi au samedi (5jours);
F= du lundi au vendredi 5 jours).
- champs 'Mise en service': date de mise en service.
- champs Nbr = 1 si la mise en service + longueur d'Abo. comprend le 1er mai
(jour semaine pour 2008,2009).
- champs QEST (quantité exemplaires semaine totale): nombre de journaux
'semaine' à livrer.
- champs QJST = QEST+Nbr+RECS rem : Quantité Journaux Semaine Totale (RECS
est le nombre de journaux non livrés pour motif de suspensions d'Abo ,
etc...)
- champs Deb = CHOISIR(RES(Mise en service;7);7;1;2;3;4;5;6) rem :indique le
numéro du jour de mise en service.
- champs Aj=
SI(prl=1;"";SI(A=1#OR#B=13#OR#3F=1;SI(Deb>2;9-Deb;2-Deb);SI(C=1;SI(Deb>6;6;ABS(Deb-6));SI(D=1;SI(Deb(>6;0;ABS(Deb-7));SI(E=1;SI(Deb>3;10-Deb;3-Deb);"";)))))
rem : Ajustement en fonction du jour de mise en service
- champs QASS'=
SI(prl=1;"";SI(A=1#OR#B=1;QJST-SI(Deb>2;8-Deb;0);SI(C=1;SI(Deb=7;QJST-1QJST);SI(D=1;SI(Deb<7;QJST-1;QJST);SI(E=1;QJST-SI(Deb>3;8-Deb;0);SI(F=1;QJST-SI(Deb>2;7-Deb.0);"";))))))
rem : nombre de jours modifiés d'Abo.
- champs ECHS=SI(prl=1;"";Mise en
service+SI(A=1#OR#B=1;Aj+QASS'+ENT(QASS'/6);SI(C=1;Aj+ENT(QASS'/2*6+ENT(QASS'/2+RES(QASS'/2);SI(D=1;Aj+ENT(QASS'/2)*6+ARRONDI(QASS'/2;0)+RES(QASS';2);SIE=1#OR#F=1;Aj+QASS'+ENT(QASS'/5)*2;0)))))
rem : Echéance Semaine.
Cette base de données n'a pas été faite au départ pour la gestion
financière, c'est pourquoi le rajout ci-dessus n'est pas rationnel mais
fonctionne très bien.
Les mêmes calculs sont fait pour les dimanche.
Les abonnements en prélèvements mensuels (prl) font l'objet de calculs
distincts, c'est pourquoi ils sont neutralisés dans tous les calculs
ci-dessus
Des fautes de frappe se trouvent surement dans la recopie des formules
ci-dessus (désolé)
Le paracétamol n'est pas inclus....
A vous lire,
Jimmy.
Azo4
> Des fautes de frappe se trouvent surement dans la recopie des formules
et le copier/coller? ;o))
vue ta formule , je passerais sous excel pour utiliser SOMMEPROD...
--
Serge CENCI
MVP MS Windows
https://mvp.support.microsoft.com/profile/Serge.Cenci
http://www.communautes-numeriques.net/
sergioENL...@orange.fr
"Jimmy" <jimmy....@invalid.com> a écrit dans le message de
news:%23zOohCI...@TK2MSFTNGP06.phx.gbl...
Jimmy
> d'accord!
>
>> Des fautes de frappe se trouvent surement dans la recopie des formules
> et le copier/coller? ;o))
> vue ta formule , je passerais sous excel pour utiliser SOMMEPROD...
>
> --
> Serge CENCI
> MVP MS Windows
> https://mvp.support.microsoft.com/profile/Serge.Cenci
> http://www.communautes-numeriques.net/
> sergioENL...@orange.fr
>
>
de Works.
Cette base de données est faite au départ pour gérer +400 abonnés à + ou -
10/ semaine et procurer au livreur un séquentiel de sa tournée avec les
clients en fonction du jour de la semaine, de la situation (si suspendu ou
pas), du type d'abonnement etc. soit des paramètre de base de données pures.
En gros, 80 champs sont utilisés pour cela.
Jimmy
Azo4
> de Works
en principe il faut le faire à partir de la fenêtre d'édition!
--
Serge CENCI
MVP MS Windows
https://mvp.support.microsoft.com/profile/Serge.Cenci
http://www.communautes-numeriques.net/
sergioENL...@orange.fr
"Jimmy" <jimmy....@invalid.com> a écrit dans le message de
news:u701ZPIg...@TK2MSFTNGP04.phx.gbl...
Jimmy
copier.......
"Azo4" <sergeEN...@mvps.org> a écrit dans le message de
news:OR87muJg...@TK2MSFTNGP05.phx.gbl...
Jimmy
EUREKA!
je suis arrivé à copier les formules :
Aj=SI(prl=1;"";SI(A=1#OR#B=1#OR#F=1;SI(Deb>2;9-Deb;2-Deb);SI(C=1;SI(Deb>6;6;ABS(Deb-6));SI(D=1;SI(Deb>6;0;ABS(Deb-7));SI(E=1;SI(Deb>3;10-Deb;3-Deb);"")))))
QASS'=SI(prl=1;"";SI(A=1#OR#B=1;QJST-SI(Deb>2;8-Deb;0);SI(C=1;SI(Deb=7;QJST-1;QJST);SI(D=1;SI(Deb<7;QJST-1;QJST);SI(E=1;QJST-SI(Deb>3;8-Deb;0);SI(F=1;QJST-SI(Deb>2;7-Deb;0);""))))))
ECHS=SI(prl=1;"";Mise en
service+SI(A=1#OR#B=1;Aj+QASS'+ENT(QASS'/6);SI(C=1;Aj+ENT(QASS'/2)*6+ENT(QASS'/2)+RES(QASS';2);SI(D=1;Aj+ENT(QASS'/2)*6+ARRONDI(QASS'/2;0)+RES(QASS';2);SI(E=1#OR#F=1;Aj+QASS'+ENT(QASS'/5)*2;0)))))
Plus simple ????
Azo4
> je suis arrivé à copier les formules :
> Plus simple ????
oui....sous excel!
--
Serge CENCI
MVP MS Windows
https://mvp.support.microsoft.com/profile/Serge.Cenci
http://www.communautes-numeriques.net/
sergioENL...@orange.fr
"Jimmy" <jimmy....@invalid.com> a écrit dans le message de
news:uwmfnJig...@TK2MSFTNGP03.phx.gbl...