[RESOLU] Numéro du jour de la semaine

Numéro du jour de la semaine [RESOLU] - VB/VBA/VBS - Programmation

Marsh Posté le 24-02-2006 à 16:37:18    

Bonjour, je cherche un code VB pour me renvoyer le numéro de la semaine
 
lundi = 1, mardi = 2...


Message édité par juans le 24-02-2006 à 17:31:47
Reply

Marsh Posté le 24-02-2006 à 16:37:18   

Reply

Marsh Posté le 24-02-2006 à 16:51:11    

Bonjour,
 
Tu peux utiliser la fonction Weekday(date, [firstdayofweek])) :
 

Code :
  1. Dim NumeroJour As Integer
  2.     NumeroJour = Weekday(Now, vbMonday)


À noter que l'aide (Menu ? > Aide sur Microsoft Visual Basic) est plutôt bien renseignée ;)

Reply

Marsh Posté le 24-02-2006 à 17:30:30    

Merci, j'ai trouvé un code entre temps...... Bien plus long
 
d = mon numéro de jour de la semaine (avec lundi = 1, mardi = 2...)
 
 

Code :
  1. numéro de jour
  2. Dim numerojour As Date
  3. numerojour = Now()
  4. nj = Format(numerojour, "DDDD" )
  6. If nj = "lundi" Then
  7. d = 1
  8. ElseIf nj = "mardi" Then
  9. d = 2
  10. ElseIf nj = "mercredi" Then
  11. d = 3
  12. ElseIf nj = "jeudi" Then
  13. d = 4
  14. ElseIf nj = "vendredi" Then
  15. d = 5
  16. ElseIf nj = "samedi" Then
  17. d = 6
  18. ElseIf nj = "dimanche" Then
  19. d = 7
  20. End If

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed