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 Pour avoir le n° de la semaine, voici:

Pour avoir le n° de la semaine, voici:

14 réponses
Avatar
LE TROLL
Bonjour,

J'ai enfin trouvé (tout seul), comment avoir le numéro
de la semaine avec la fonction "DatePart":

Dim ladate As Date
Dim semaine as byte
semaine = DatePart("ww", ladate, 2, 2)

Elle change le lundi inclus et comprend au moins 4 jours
dans la 1ere semaine de la nouvelle année "2, 2"
Testé ça semble fonctionner...

Comme quoi, quand les meilleurs du forum ne sont pas là,
comme Fr... ou Ni... ben et le 3, 4 autres, ben ça chute
sérieusement en compétence...

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
Avatar
Modeste
Ta fatuité t'aveugle !!!
à 15:30 la solution t'a été proposée par un nul dans le lien :
http://support.microsoft.com/default.aspx?scid=kb;FR;q200299

Function WOY (MyDate As Date) As Integer ' Semaine de l'année
WOY = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
If WOY > 52 Then
If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then WOY = 1
End If
End Function

quant à l'explication de la formule diffusée par un "nul MVP" :
=ENT((C2-SOMME(MOD(DATE(ANNEE(C2-MOD(C2-2;7)+3);1;2);{1E+99;7})*{1;-1})+5)/7)

la Nulle "Miso" la met à disposition depuis belle lurette là :
http://www.excelabo.net/xl/calendriers.php#numerosemaine



LE TROLL wrote:
J'ai enfin trouvé (tout seul), comment avoir le numéro
de la semaine avec la fonction "DatePart":



--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
Avatar
LE TROLL
Lol, pas fatuité l'ami, mais VB "5", le lien:

Format(AnyDate, "ww", vbMonday, vbFirstFourDays)
DatePart("ww", AnyDate, vbMonday, vbFirstFourDays)

Ça ne marche pas ça en VB "5" :o)

Bisous, bonne nuit :o)
--------------
Avatar
Modeste
LE TROLL wrote:
Ça ne marche pas ça en VB "5"



pur négativisme !!!
http://support.microsoft.com/default.aspx?scid=kb;FR;q200299#appliesto

http://www.dicopsy.com/312-n.htm
--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
Avatar
LE TROLL
lol :o)
Avatar
Zoury
'lut Joe ! :O)

je croyais que depuis l'temps, tu savais chercher sur les archives...
http://groups-beta.google.com/groups?hl=fr&lr=&num&q=num%C3%A9ro+semaine+group%3A*.vb.*
http://groups-beta.google.com/group/microsoft.public.fr.vb/browse_thread/thread/6492198b2809ba0f/895d9ab7be491973

Comme quoi, quand les meilleurs du forum ne sont pas là, comme Fr...
ou Ni... ben et le 3, 4 autres, ben ça chute sérieusement en compétence...



Alors que les meilleurs, Comme François P ou Nicolas G, ils ne
répondent pas n'importe quoi quand ils ne savent pas...



mais bon puisque nous ne sommes pas dans tes "répondeurs" favoris j'imagine
que tu n'aurais qu'ignoré nos messages.. ;O)

--
Cordialement
Yanick
MVP pour Visual Basic



"Modeste" a écrit dans le message de news:
%
Ta fatuité t'aveugle !!!
à 15:30 la solution t'a été proposée par un nul dans le lien :
http://support.microsoft.com/default.aspx?scid=kb;FR;q200299

Function WOY (MyDate As Date) As Integer ' Semaine de l'année
WOY = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
If WOY > 52 Then
If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then WOY = 1
End If
End Function

quant à l'explication de la formule diffusée par un "nul MVP" :
=ENT((C2-SOMME(MOD(DATE(ANNEE(C2-MOD(C2-2;7)+3);1;2);{1E+99;7})*{1;-1})+5)/7)

la Nulle "Miso" la met à disposition depuis belle lurette là :
http://www.excelabo.net/xl/calendriers.php#numerosemaine



LE TROLL wrote:
J'ai enfin trouvé (tout seul), comment avoir le numéro
de la semaine avec la fonction "DatePart":



--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr




Avatar
LE TROLL
Toi non, je te classe en 3 ou 4eme meilleur avec
Driss :o)

Généralement les mvp de vb (développeurs), assurent, ça
c'est positif dans ce forum...
Sauf que justement des 2 meilleurs mvp, le présentéisme
laisse à désirer par contre, hélas...

Il y a en d'autres encore qui sont excellents, mais une
poignée, pour certains qui ne sont pas là depuis plusieurs
années, je n'ai encore pu me faire une idée sur l'étendue de
leurs connaissances...

Je disais donc que plus c'est mauvais en vb, moins c'est
réservé et plus ça polémique, plus ça dit des conneries...
Le pire qui vient, mais n'a rien à y foutre, ne sachant pas
programmer, c'est un mvp de sous-groupe, scraper qu'il
s'appelle je crois, une tache, la tache des taches, au mieux
il répond des banalités, au pire, et en permanence, il lance
des réflexions hors sujet, plus appel à la délation, bref,
la balance parfaite, il se prend pour un milicien des
forums, lol, je me demande s'il n'est pas malade du haut...
Dans le même genre, mais avec compétence vb, t'as le dénommé
jean-marc, petit gaucho se seconde zone, qui vient refaire
la révolution d'octobre ici, il sue la haine sur tout ce qui
ne pense pas comme lui...

Ces deux là ont une caractéristique commune, une parole de
pute comme on dit, re-lol, les 2 on déclarés masquer mes
questions, mais en fait, il ne le font pas, ou pas en
permanence, leur comportement est généralement
disproportionné, violent, doivent être d'extrême gauche je
pense... Bon, tant qu'on est pas au pouvoir on peut rien
faire, désolé :o)
---------------
Avatar
Loïc
LE TROLL a écrit :
Toi non, je te classe en 3 ou 4eme meilleur avec Driss :o)

Généralement les mvp de vb (développeurs), assurent, ça c'est positif dans ce
forum...
Sauf que justement des 2 meilleurs mvp, le présentéisme laisse à désirer par
contre, hélas...

Il y a en d'autres encore qui sont excellents, mais une poignée, pour
certains qui ne sont pas là depuis plusieurs années, je n'ai encore pu me
faire une idée sur l'étendue de leurs connaissances...

Je disais donc que plus c'est mauvais en vb, moins c'est réservé et plus ça
polémique, plus ça dit des conneries...
Le pire qui vient, mais n'a rien à y foutre, ne sachant pas programmer, c'est
un mvp de sous-groupe, scraper qu'il s'appelle je crois, une tache, la tache
des taches, au mieux il répond des banalités, au pire, et en permanence, il
lance des réflexions hors sujet, plus appel à la délation, bref, la balance
parfaite, il se prend pour un milicien des forums, lol, je me demande s'il
n'est pas malade du haut...
Dans le même genre, mais avec compétence vb, t'as le dénommé jean-marc, petit
gaucho se seconde zone, qui vient refaire la révolution d'octobre ici, il sue
la haine sur tout ce qui ne pense pas comme lui...

Ces deux là ont une caractéristique commune, une parole de pute comme on dit,
re-lol, les 2 on déclarés masquer mes questions, mais en fait, il ne le font
pas, ou pas en permanence, leur comportement est généralement
disproportionné, violent, doivent être d'extrême gauche je pense... Bon, tant
qu'on est pas au pouvoir on peut rien faire, désolé :o)
---------------



Pourquoi on t'a pas mis en première ligne toi hein ?? :/

--
Loïc
Avatar
LE TROLL
Hein moi, pourquoi on m'a pas mis en première ligne, lol,
parce que je ne suis pas en première ligne moi :o)
Avatar
scraper
Bonjour Zoury, dans le message
news:
tu disais :


'lut Joe ! :O)



[...]

je comprends pas que tu t'adresses encore sur ce fil à un lauréat
incontestable GodWin ???

:-(


--

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

scraper
Avatar
jerome crevecoeur
Hello everybody,

Vous avez l'air de bien vous amuser ;-)

Comme ce post risque d'être populaire , je vous propose la meilleure
fonction semaine que j'ai trouvé.
Car il y a quelques problemes dans OLEAUT32.DLL qui entraine des bugs
sur certains jours,

A ++++++++++++++
il faut donc un traitement supplémentaire:
--------------------------------
Function SemaineAnnee(MyDate As Date) As String

Dim NoSemaine As Integer
Dim NoAnnee As Integer

If Not IsDate(MyDate) Then
SemaineAnnee = ""
Else
NoSemaine = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
If NoSemaine = 53 Then
' Correction Bug Oleaut32.dll (29/12/2003 par exemple)
' http://support.microsoft.com/default.aspx?scid=kb;FR;q20029 9
If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 The n
NoSemaine = 1
End If
End If

Select Case NoSemaine
'Affecter la semaine 1 de fin d'année
'au début de l'année suivante
Case 1
If Month(MyDate) = 12 Then
NoAnnee = Year(MyDate) + 1
Else
NoAnnee = Year(MyDate)
End If

Case Is < 52
NoAnnee = Year(MyDate)

'Affecter la semaine 52 ou 53 de début d'année
'à la fin d'année précédente
Case Is >= 52
If Month(MyDate) = 1 Then
NoAnnee = Year(MyDate) - 1
Else
NoAnnee = Year(MyDate)
End If
End Select

SemaineAnnee = NoAnnee & "/" & Format(NoSemaine, "00")

End If

End Function
----------------------------------


scraper wrote:
Bonjour Zoury, dans le message
news:
tu disais :


'lut Joe ! :O)




[...]

je comprends pas que tu t'adresses encore sur ce fil à un lauréat
incontestable GodWin ???

:-(




1 2