Modifier le format de Month(Date())

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 :-)

:salut:
Postez votre code :zoubi:
:merci:

Code:

---

1 2 3

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

---

Voilà :-)

Moi, je ferais ceci :

Code:

---

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)

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.

Dans l'ordre que tu as choisi :

Code:

---

1 2 3

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

---

Une autre possibilité :

Code:

---

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

---

Bonjour,

Ou encore :

Code:

---

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

---

Bonjour,

Pour ma part, voici ce que j'utilise :

Code:

---

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:

---

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.

bonjour,

et sinon, il y a la lecture de la FAQ :scarymov: