no de semaine

Christophe

27/01/2004 à 12:22

Voici

Public Function NoSemaine(Djour As Double) As Byte

' en indiquant que le 1er jour est un samedi on correspond à ce qui
est demandé,

NoSemaine = CInt(Format(Djour, "ww", vbSaturday, vbFirstJan1))
If NoSemaine = 53 Then
NoSemaine = 1
End If
End Function

"jojo" a écrit dans le message de
news: 4fe601c3e4c6$d94b8ad0$
Bonjour,

Comment faire pour obtenir le numéro de la semaine d'une
date en VB.

Merci.

Modeste

27/01/2004 à 13:23

Bonjour,
déja répondu récement ici même :

http://support.microsoft.com/default.aspx?
scid=kb;fr;200299

Function WOY (MyDate As Date) As Integer ' Week Of the
Year
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

pour une formule feuille de calcul faire une recherche la
semaine passée (Christophe PEJOUT)

@+

-----Message d'origine-----
Bonjour,

Comment faire pour obtenir le numéro de la semaine d'une
date en VB.

Merci.
.

ru-th

27/01/2004 à 13:26

Dis donc, Modeste

sais-tu pourquoi depuis hier un certain nombre d'habitués font preuve d'une
absence injustifiée (ou injustifiable)
ai-je râté un episode ?, un mouvement de grève ? ;-))

a+
rural thierry
"Modeste" a écrit dans le message de
news: 493b01c3e4d0$5a620690$
Bonjour,
déja répondu récement ici même :

http://support.microsoft.com/default.aspx?
scid=kb;fr;200299

Function WOY (MyDate As Date) As Integer ' Week Of the
Year
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

pour une formule feuille de calcul faire une recherche la
semaine passée (Christophe PEJOUT)

@+

-----Message d'origine-----
Bonjour,

Comment faire pour obtenir le numéro de la semaine d'une
date en VB.

Merci.
.

Modeste

27/01/2004 à 13:50

;-)))

Hélas seule confirmation le Lakota est à la neige,
peut-etre son frére l'a-t-il suivi ?????

Michel G. est revenu ce week-end
Daniel.J. est toujours présent
Mr le Maire Christian.H fait quelques apparitions
Pascal E. est bien présent
ainsi que [Ricky]
de par sa présence Emcy ferait une bonne recrue ;-)))
Un petite apparitionn de Eric K.
Clément est plus sur MPFW....
Me concernant avec ce --µ+?#%--té de CDO je papillonne
uniquement sur les noms connus ... :-((

Les autres ?????
Pourtant y'avait pas de canicule ces derniers jours !!!!!

une solution (comme tu l'as fait) mettre [HS] dans tout
les messages peut-etre vont-ils émerger de leur couettes

@+

-----Message d'origine-----
Dis donc, Modeste

sais-tu pourquoi depuis hier un certain nombre
d'habitués font preuve d'une

absence injustifiée (ou injustifiable)
ai-je râté un episode ?, un mouvement de grève ? ;-))

a+
rural thierry
"Modeste" a écrit
dans le message de

news: 493b01c3e4d0$5a620690$
Bonjour,
déja répondu récement ici même :

http://support.microsoft.com/default.aspx?
scid=kb;fr;200299

Function WOY (MyDate As Date) As Integer ' Week Of the
Year
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

pour une formule feuille de calcul faire une recherche la
semaine passée (Christophe PEJOUT)

@+

-----Message d'origine-----
Bonjour,

Comment faire pour obtenir le numéro de la semaine d'une
date en VB.

Merci.
.

.

ChrisV

27/01/2004 à 15:32

J'y suis reviendu !
C'était top ! ;-)

ChrisV

nb: mais Alain a voulu en profiter encore un peu !

"Modeste" a écrit dans le message de
news: 4a7f01c3e4d4$1f2a9570$
;-)))

Hélas seule confirmation le Lakota est à la neige,
peut-etre son frére l'a-t-il suivi ?????

Michel G. est revenu ce week-end
Daniel.J. est toujours présent
Mr le Maire Christian.H fait quelques apparitions
Pascal E. est bien présent
ainsi que [Ricky]
de par sa présence Emcy ferait une bonne recrue ;-)))
Un petite apparitionn de Eric K.
Clément est plus sur MPFW....
Me concernant avec ce --µ+?#%--té de CDO je papillonne
uniquement sur les noms connus ... :-((

Les autres ?????
Pourtant y'avait pas de canicule ces derniers jours !!!!!

une solution (comme tu l'as fait) mettre [HS] dans tout
les messages peut-etre vont-ils émerger de leur couettes

@+

-----Message d'origine-----
Dis donc, Modeste

sais-tu pourquoi depuis hier un certain nombre
d'habitués font preuve d'une

absence injustifiée (ou injustifiable)
ai-je râté un episode ?, un mouvement de grève ? ;-))

a+
rural thierry
"Modeste" a écrit
dans le message de

news: 493b01c3e4d0$5a620690$
Bonjour,
déja répondu récement ici même :

http://support.microsoft.com/default.aspx?
scid=kb;fr;200299

Function WOY (MyDate As Date) As Integer ' Week Of the
Year
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

pour une formule feuille de calcul faire une recherche la
semaine passée (Christophe PEJOUT)

@+

-----Message d'origine-----
Bonjour,

Comment faire pour obtenir le numéro de la semaine d'une
date en VB.

Merci.
.

.

ru-th

27/01/2004 à 17:03

une solution (comme tu l'as fait) mettre [HS] dans tout
les messages peut-etre vont-ils émerger de leur couettes

ben dis donc, cela n'a pas trainé !
à croire qu'ils le faisaient exprès !
;-))

rural thierry
"Modeste" a écrit dans le message de
news: 4a7f01c3e4d4$1f2a9570$
;-)))

Hélas seule confirmation le Lakota est à la neige,
peut-etre son frére l'a-t-il suivi ?????

Michel G. est revenu ce week-end
Daniel.J. est toujours présent
Mr le Maire Christian.H fait quelques apparitions
Pascal E. est bien présent
ainsi que [Ricky]
de par sa présence Emcy ferait une bonne recrue ;-)))
Un petite apparitionn de Eric K.
Clément est plus sur MPFW....
Me concernant avec ce --µ+?#%--té de CDO je papillonne
uniquement sur les noms connus ... :-((

Les autres ?????
Pourtant y'avait pas de canicule ces derniers jours !!!!!

une solution (comme tu l'as fait) mettre [HS] dans tout
les messages peut-etre vont-ils émerger de leur couettes

@+

-----Message d'origine-----
Dis donc, Modeste

sais-tu pourquoi depuis hier un certain nombre
d'habitués font preuve d'une

absence injustifiée (ou injustifiable)
ai-je râté un episode ?, un mouvement de grève ? ;-))

a+
rural thierry
"Modeste" a écrit
dans le message de

news: 493b01c3e4d0$5a620690$
Bonjour,
déja répondu récement ici même :

http://support.microsoft.com/default.aspx?
scid=kb;fr;200299

Function WOY (MyDate As Date) As Integer ' Week Of the
Year
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

pour une formule feuille de calcul faire une recherche la
semaine passée (Christophe PEJOUT)

@+

-----Message d'origine-----
Bonjour,

Comment faire pour obtenir le numéro de la semaine d'une
date en VB.

Merci.
.

.

JièL Goubert

28/01/2004 à 01:12

Bonjoir(c) Modeste

Le 27/01/2004 13:50 vous nous disiez ceci :

une solution (comme tu l'as fait) mettre [HS] dans tout
les messages peut-etre vont-ils émerger de leur couettes

Présent ;-)))
Mais pas assez de temps en ce moment, i'll be back ;-)

--
JièL i'll be backeur occasionnel

J

28/01/2004 à 08:02

C'est vrai que le HS, cela attire!!
Ici on a eu une pluie telle qu'il y avait de quoi rester sous la
couette. Ouh la la, pas possible de voir la route. l'écran noir, genre
BSOD, mais en noir.
Amitiés à tous
J@@

une solution (comme tu l'as fait) mettre [HS] dans tout
les messages peut-etre vont-ils émerger de leur couettes

@+

-----Message d'origine-----
Dis donc, Modeste

sais-tu pourquoi depuis hier un certain nombre
d'habitués font preuve d'une

absence injustifiée (ou injustifiable)
ai-je râté un episode ?, un mouvement de grève ? ;-))

a+
rural thierry
"Modeste" a écrit
dans le message de

news: 493b01c3e4d0$5a620690$
Bonjour,
déja répondu récement ici même :

http://support.microsoft.com/default.aspx?
scid=kb;fr;200299

Function WOY (MyDate As Date) As Integer ' Week Of the
Year
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

pour une formule feuille de calcul faire une recherche la
semaine passée (Christophe PEJOUT)

@+

-----Message d'origine-----
Bonjour,

Comment faire pour obtenir le numéro de la semaine d'une
date en VB.

Merci.
.

.

no de semaine

8 réponses

Veuillez sélectionner un problème