Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Problème de numéro de semaine ???

Problème de numéro de semaine ???

33 réponses
Avatar
LE TROLL
Bonjour,

Je n'arrive pas à avoir la bonne semaine aux extrêmes:

- J'utilise le format (ww)
- La semaine se change le lundi
- Donc à la fin de l'année il peut y avoir une semaine 53
qui passe même au début de l'autre année...
- Donc encore, pas de semaine 1 avant l'année suivant...
- Heu, c'est comme ça, désolé...

Dans Excel j'utilise ce calcul (qui fonctionne), mais je
n'y comprends rien, recopiage, lol:
=ENT((C2-SOMME(MOD(DATE(ANNEE(C2-MOD(C2-2;7)+3);1;2);{1E+99;7})*{1;-1})+5)/7)
C2 étant la date du jour
---------------

Mais là en VB, je n'arrive pas à retranscrire ces signes
cabalistiques...

Alors si quelqu'un a une idée de calcul avec ma semaine
53 ???

Merci, au revoir et à bientôt :o)
--
ECRIRE AU TROLL http://irolog.free.fr/letroll/index.html
------------------------------------------------------------
LE TROLL, éleveur de trolls depuis César, qui disait :
Avec une hache, celui qui tient le manche a toujours raison
!
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4
Avatar
LE TROLL
Eh, la prochaine fois, quand tu ne sais pas, ben tu dis
rien, ou tu dis je ne sais pas, mais répondre quand on ne
sait pas, ben ça fait perdre du temps pour rien!

Ta formule bidon que tu me proposes, elle n'évolue même pas
suivent la date, c'était vraiment pas la peine de me pondre
des trucs pareils!!!

Moi j'ai demandé:

ENONCE
-1- VB5
-2- La semaine commence le lundi
-3- La semaine 1 n'est jamais en fin N-1, donc 53 si besoin
-4- Donc aussi la 53 peut aller sur l'année N avant le 1er
lundi.
Exemple de la formule à modifier sous excel, qui fonctionne:
=ENT((C2-SOMME(MOD(DATE(ANNEE(C2-MOD(C2-2;7)+3);1;2);{1E+99;7})*{1;-1})+5)/7)
C2 étant la date du jour par rapport au calcul...

QUESTION
Qui sait svp, me mettre ça en une formule vb qui fonctionne
???

Et toi:
-- Après 4 réponse
-- En 4 heure de temps
-- Tu me ponds un truc fixe qui ne fonctionne pas:

(DateDiff("d", DateSerial(Year(Date), 1, 1), Date) + 1) / 7

Bob, alors quan tu ne sais pas (tout comme moi ici), tu
laisse tomber, ou tu me dis je ne sais pas, car j'aurais pu
demaner dan un autre forum...

Ok Bill ???
Va rejoindre tes copain Jean-Marc et scraper en Irak
pour les vacances, ils font de bon prix :o)

Pour ce qui est de MOI, "ancien militaire fachao"... tu
dis...
NON, c'est FAUX, il faut mettre: "ancien militaire, facho"
Tu comprends la différence ???
-----------------------------------
Avatar
scraper
Bonjour LE TROLL, dans le message
news:u$
tu disais :


Ok Bill ???
Va rejoindre tes copain Jean-Marc et scraper en Irak
pour les vacances, ils font de bon prix :o)



je t'aurai prévenu, tant pis pour toi ;-)




--

Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez.tiscali.fr

scraper
Avatar
LE TROLL
Ça ne m'intéresse pas de parler aux cons, va faire tes
menaces ailleurs, et balance si tu en as envie, mais surtout
ne touche jamais à mes question, je t'interdis de répondre
dedans!
Avatar
LE TROLL
Alfred, j'air regardé ta routine, merci encore,
cependant si on force la semaine 1 de vb à passer en 53, il
faut forcer toute l'année +1 semaine, c'est assez laborieux,
je cherche un calcul global, qui donne le numéro de la
semaine, quoi qu'il en soit, avec comme contrainte:

Voici l'énoncé du problème:

-1- VB5
-2- La semaine commence le lundi
-3- La semaine 1 n'est jamais en fin N-1, donc 53 si besoin
-4- Donc aussi la 53 peut aller sur l'année N avant le 1er
lundi.
Exemple de la formule à modifier sous Excel, qui fonctionne:
=ENT((C2-SOMME(MOD(DATE(ANNEE(C2-MOD(C2-2;7)+3);1;2);{1E+99;7})*{1;-1})+5)/7)
C2 étant la date du jour par rapport au calcul...

exemples pratiques:
jeudi 1/1/2004 = s1
lundi 27/1/2004 = s53
samedi 1/1/2005 = s53
lundi 3/1/2005 = s1
samedi 31/12/2005 = s52
dimanche 1/1/2006 = s52
lundi 2/1/2006 = s1

Il n'y a rien à voir avec la norme iso 8601 je crois, le
calendrier sus-cité impose cette forme là, je dois la
respecter...

En fait je ne suis pas assez bon en date de semaine,
j'utilise rarement, donc comme sus-dit je cherche une
formule globale, telle que celle d'Excel, l'idéal serait que
quelqu'un sache me la retranscrire en VB5, car ce matin ce
fut plutôt raté :o)

Merci, @+, bye, Joe.
--------------------------
Avatar
Loïc
Merci LE TROLL grace à toi je me marre de bon matin. Mes collègues ne
comprennent pas mon sourir crétin. Bon ben t'as tout dit. Je pense
qu'il ne sert à rien de continuer à débattre avec toi dans la mesure ou
tu n'écoutes pas les autres parler et que tu t'exprimes on ne peut plus
mal.

Je pense que je vais postuler pour le développement de troll them'
up...

Et surtout dès que tu as une question n'hésites pas !...



... à la poster ailleur.

--
Loïc
Avatar
LE TROLL
Ah ben je croyais moi qu'au moins tu allais avoir la
pudeur de te faire tout petit!

Voici ta 4eme réponse au bout de 4 heures:

Fais comme ca alors:
Dim nNumeroSemaine as INTEGER
nNumeroSemaine = (DateDiff("d", DateSerial(Year(Date), 1,
1), Date) + 1) / 7

Pauvre pomme, ton torchon met les semaines avec une
décimale, t'as déjà vu les semaines avec des décimales ???
Pauvre pomme, ta semaine elle ne bouge pas, elle est fixe,
car il n'y a aucune variable, ta déjà vu un calcul du numéro
de semaine qu'on ne pourrait pas faire évoluer???
En plus tu es incapable de me dire à quoi correspond ton
"d", normalement c'est "ww", pauvre pomme...

En résumé, tu m'as complètement massacré ma formule, tu as
mis n'importe quoi, tu m'as tourné en rond durant 4 heures,
avant ça marchait mieux qu'après tes conseils, alors
comprends, je ne te reproche pas de pas savoir, je te
reproche (bien que ce n'est pas moi, mais scraper qui encore
une fois est venu en parasite), comme il ne sait pas
programmer, il ne sait pas non plus que la programmation est
assujetti non pas à une obligation de moyen, mais de
résultat... je ne te reproche pas donc, de ne pas savoir, je
te reproche de ne pas avoir dit que tu ne savais pas, tu
comprend la nuance??? Quand on ne sait pas, ou plus, on le
dit!

Montre ça a tes copains, comme tu dis, qu'ils s'amusent,
s'il savent programmer:
Question, comment calculer le numéro d'une semaine désirée?
Ta réponse:
nNumeroSemaine = (DateDiff("d", DateSerial(Year(Date), 1,
1), Date) + 1) / 7

Vas-y montre ça à tes copain, pauvre pomme, qu'ils se
marrent eux aussi :o)
Avatar
jean-marc
"Loïc" wrote in message
news:
Merci LE TROLL grace à toi je me marre de bon matin. Mes collègues ne
comprennent pas mon sourir crétin. Bon ben t'as tout dit. Je pense
qu'il ne sert à rien de continuer à débattre avec toi dans la mesure ou
tu n'écoutes pas les autres parler et que tu t'exprimes on ne peut plus
mal.

Je pense que je vais postuler pour le développement de troll them'
up...



Hello,

Pas de problème!
Les dernières sources de la version 3.5 sont en ligne et à la disposition de
tous, sur:
http://membres.lycos.fr/jeanmarcn/trollthemup.htm
Toutes améliorations et nouvelles idées bienvenues, je me charge d'intégrer
et mettre à jour!

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
Avatar
LE TROLL
A quelle adresse je peux trouver ta face blafarde ???
---------

"jean-marc" a écrit dans le message de news:
42f1f2c6$0$12686$
"Loïc" wrote in message
news:
Merci LE TROLL grace à toi je me marre de bon matin. Mes
collègues ne
comprennent pas mon sourir crétin. Bon ben t'as tout dit.
Je pense
qu'il ne sert à rien de continuer à débattre avec toi
dans la mesure ou
tu n'écoutes pas les autres parler et que tu t'exprimes
on ne peut plus
mal.

Je pense que je vais postuler pour le développement de
troll them'
up...



Hello,

Pas de problème!
Les dernières sources de la version 3.5 sont en ligne et à
la disposition de
tous, sur:
http://membres.lycos.fr/jeanmarcn/trollthemup.htm
Toutes améliorations et nouvelles idées bienvenues, je me
charge d'intégrer
et mettre à jour!

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;








Avatar
Loïc
jean-marc a pensé très fort :
"Loïc" wrote in message
news:
Merci LE TROLL grace à toi je me marre de bon matin. Mes collègues ne
comprennent pas mon sourir crétin. Bon ben t'as tout dit. Je pense
qu'il ne sert à rien de continuer à débattre avec toi dans la mesure ou
tu n'écoutes pas les autres parler et que tu t'exprimes on ne peut plus
mal.

Je pense que je vais postuler pour le développement de troll them'
up...



Hello,

Pas de problème!
Les dernières sources de la version 3.5 sont en ligne et à la disposition de
tous, sur:
http://membres.lycos.fr/jeanmarcn/trollthemup.htm
Toutes améliorations et nouvelles idées bienvenues, je me charge d'intégrer
et mettre à jour!



Merci JM.
Dès que j'ai un peu de temps j'apporterai ma petite touche personnelle
à ce jeu. Je vais réfléchir à une version en réseau.

--
Loïc
Avatar
scraper
Bonjour LE TROLL, dans le message
news:%
tu disais :


A quelle adresse je peux trouver ta face blafarde ???



tu sais pas cliquer, en plus de pas savoir usurper des identités, voire même
de faire fonctionner un bête logiciel comme OE ?

consternant ...


pour info, on répond en dessous de la citation ;-)
(tu sais ce que c'est qu'une citation ? :-)



--

Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez.tiscali.fr

scraper
1 2 3 4