Numéro de semaine [Résolu]

Messages postés
104
Date d'inscription
samedi 5 juillet 2008
Dernière intervention
15 novembre 2012
- - Dernière réponse : inraf
Messages postés
104
Date d'inscription
samedi 5 juillet 2008
Dernière intervention
15 novembre 2012
- 7 janv. 2010 à 10:31
est-il possible de récupérer le numéro de la semaine  en cours automatiquement?
Afficher la suite 

Votre réponse

9 réponses

Meilleure réponse
Messages postés
3288
Date d'inscription
jeudi 3 avril 2008
Dernière intervention
14 septembre 2014
3
Merci
en faisant une recherche sur codyxmot clé date http://www.codyx.org/snippet_calculer-numero-semaine-date_152.aspx#1394

c'est si dur que ça de faire une recherche??

Bonjour chez vous !

Merci gillardg 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 97 internautes ce mois-ci

Commenter la réponse de gillardg
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
3
Merci
Salut,
ya pas de quoi...

ca serait pas plutot

TextBox96.Text = NumSem

Ou

TextBox96.Value = NumSem

Quand tu dis:
"ça mais ça ne va pas" Ca veut dire quoi exactement? rien ne se passe ou bien il y a une erreur donnée par le VB?
@+: Ju£i€n
Pensez: Réponse acceptée

Merci jrivet 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 97 internautes ce mois-ci

Commenter la réponse de jrivet
Messages postés
1839
Date d'inscription
vendredi 13 mai 2005
Dernière intervention
20 novembre 2013
0
Merci
Salut,

en VB6 on fait comme ça :

Function CurrentWeek() As Long
    CurrentWeek = DatePart("WW", Date, vbSunday, vbFirstJan1)
End Function

Vois si tu as quelque chose de similaire

A+
Commenter la réponse de bigfish_le vrai
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
0
Merci
Bonsoir,
Si difficile que cela d'être poli....

Pas seulement pour le demandeur d'ailleurs...........

@+: Ju£i€n
Pensez: Réponse acceptée
Commenter la réponse de jrivet
Messages postés
104
Date d'inscription
samedi 5 juillet 2008
Dernière intervention
15 novembre 2012
0
Merci
Excusé moi monsieur jrivet.

Mais pour mon problème je retourne vers toi gillardg tu ma déjà bien aidé avec d'autre problème et je t'en remercie

si je veux afficher le numéro dans un textbox j'ai essayer ça mais ça ne va pas ?








Private



Sub
Button42_Click(

ByVal
sender

As
System.Object,

ByVal
e

As
System.EventArgs)

Handles
Button42.Click


Dim
NumSem

As



String

NumSem = DatePart(DateInterval.WeekOfYear, DateTime.Now, FirstDayOfWeek.Monday).ToString







'






'






'

TextBox96 = NumSem.text








 







End



Sub
Commenter la réponse de inraf
Messages postés
104
Date d'inscription
samedi 5 juillet 2008
Dernière intervention
15 novembre 2012
0
Merci
Je suis trop nul

désolé

TextBox96.Text = NumSem

Merci
Commenter la réponse de inraf
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
0
Merci
Salut,
Si ton problème est résolu, merci d'appuyer sur le bouton reponse accepté sur le ou les posts qui t ont AIDER

@+: Ju£i€n
Pensez: Réponse acceptée
Commenter la réponse de jrivet
Messages postés
146
Date d'inscription
lundi 28 avril 2003
Dernière intervention
16 février 2012
0
Merci
slt a tt,

cette fonction a le bug de la semaine 53
Commenter la réponse de slyderkiller
Messages postés
104
Date d'inscription
samedi 5 juillet 2008
Dernière intervention
15 novembre 2012
0
Merci
oui il bug

mais avec ça peut-etre non??


Dim NumSem As String
NumSem = DatePart(DateInterval.WeekOfYear, DateTime.Now, FirstDayOfWeek.Monday, FirstWeekOfYear .FirstFullWeek ).ToString

'
'
'
Label13.Text = NumSem
Commenter la réponse de inraf

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.