numéro de semaineRésolu

Question

est-il possible de récupérer le numéro de la semaine  en cours automatiquement?

gillardg · Accepted Answer

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 !

bigfish_le vrai · Answer

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+

jrivet · Answer

Bonsoir,
Si difficile que cela d'être poli....

Pas seulement pour le demandeur d'ailleurs...........

@+: Ju£i€n
Pensez: Réponse acceptée

inraf · Answer

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

jrivet · Answer

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

inraf · Answer

Je suis trop nul 

désolé

TextBox96.Text = NumSem

Merci

jrivet · Answer

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

slyderkiller · Answer

slt a tt,

cette fonction a le bug de la semaine 53

inraf · Answer

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

Numéro de semaine

9 réponses

Votre réponse

Discussions similaires