Discussion :

[barul]

Bonjour.

Est-ce qu'il est possible de modifier le format qu'affiche Month(Date()) qui est, par exemple pour ce mois ci, 6 en 06 ? J'ai fait un truc crade (mais qui fonctionne) qui est de rajouter le 0 en dur, mais ça va poser problème lorsque les mois seront composés de 2 chiffres...

Merci d'avance :-)

[hackoofr]

Postez votre code

[barul]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Annee = Year(Date())
Mois = Month(Date())
WScript.echo Annee & "-" & 0 & Mois

Voilà :-)

[l_autodidacte]

Moi, je ferais ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msgbox Replace(FormatDateTime(Date, 0),"/","-")

0 pour une date abrégée et 1 pour une date entière(du type vendredi 22 juin 2012)

[barul]

Le problème est que je ne veux pas la date complète, mais que l'année et le mois, c'est pour ça que j'avais séparé les deux valeurs avec Year et Month.

[l_autodidacte]

Dans l'ordre que tu as choisi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  Madate= Replace(FormatDateTime(Date, 0),"/","-")
  madate=Right(Madate,4) & Mid(madate,3,3)
  msgbox madate

Une autre possibilité :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Annee = Year(Date())
Mois = LeftZero(Month(Date()))
WScript.echo Annee & "-" &  Mois
 Function LeftZero(Nombre)
   If Nombre<10 Then
      LeftZero="0" + Cstr(Nombre)
   Else
      LeftZero=Cstr(Nombre)
   End If
End Function