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

[pc75]

Bonjour,

Ou encore :

Code :

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

1
2
 
MaDate = String(2 - len(trim(Month(Date()))), "0") & Month(Date())

[pitchalov]

Bonjour,

Pour ma part, voici ce que j'utilise :

Code :

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

1
2
strCurrentMonth = Right("0" & Month(Date()), 2)
MsgBox strCurrentMonth

C'est utile pour avoir toujours le même nombre de caractère dans un fichier de log affichant les dates, ou lorsque les fichiers commencent par la date du jour.

Exemple d'application :

Code :

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

1
2
3
4
dateNow = Now
strLogFileName = Year(dateNow) & Right("0" & Month(dateNow), 2) & Right("0" & Day(dateNow), 2) & "-" & _
	Right("0" & Hour(dateNow), 2) & Right("0" & Minute(dateNow), 2) & Right("0" & Second(dateNow), 2) & ".log"
MsgBox "Nom du fichier de log : " & strLogFileName

Bonne continuation.

[omen999]

bonjour,

et sinon, il y a la lecture de la FAQ