Décrémenter de un le mois dans la date

Bonjour,
J'aurais besoin d'un petit script qui me décrémenter de un le numéro de mois dans la date.
Par exemple, on est le 16/02/2015, j'aurais besoin de récupérer la date, la modifier pour qu'elle donne 16/01/2015.
J'ai commencer mon script avec la petite spécificité du mois de janvier qui doit me donner 12/2014 (année précédente forcément).
Le résultat attendu est trois valeurs différentes, la première la date du mois précédent sous la forme AAAAMMJJ avec le numéro du mois précédent et le jour toujours à 01.
La deuxième valeur sous la forme AAAAMMJJ avec le mois actuel.
Et la dernière valeur sous la forme MM/AAAA avec le mois précédent.
Voici mon script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Set /a annee=%date:~6,4% Set /a moisencours=%date:~3,2% Set /a mois2=%date:~3,2% Set /a test=01   If %moisencours% == %test% Goto :janvier Goto :autremois   :janvier %mois2%=12 %annee%=%annee%-01 Goto :FinTraitement   :autremois %mois2%=%moisencours%-01 Goto :FinTraitement   :FinTraitement Set /a 1erjour=01 Set /a dernierjour=01 set /a mois2=%moisencours%-01 Set /a eventDateStart=%annee%%mois2%01 Set /a eventDateEnd=%annee%%moisencours%01 Set datePeriode=%mois2%/%annee%     echo extraction.query.eventDateStart=%eventDateStart% > D:\VDL\Exploit\Interfaces\Bureau_Hygiene\external.properties2 echo extraction.query.eventDateEnd=%eventDateEnd% >> D:\VDL\Exploit\Interfaces\Bureau_Hygiene\external.properties2 echo extraction.query.datePeriode=%datePeriode% >> D:\VDL\Exploit\Interfaces\Bureau_Hygiene\external.properties2

---

Le retour attendus est la création d'un fichier "external.properties" avec comme contenu

Citation:

---

extraction.query.eventDateStart=20150101
extraction.query.eventDateEnd=20150201
extraction.query.datePeriode=01/2015

---

Pour ce mois-ci.

Pour le moment, le retour que j'ai est celui-là :

Citation:

---

extraction.query.eventDateStart=2015101
extraction.query.eventDateEnd=2015201
extraction.query.datePeriode=1/2015

---

Il me manque donc un "0" dans chaque numéro de mois. :s

Si quelqu'un a une idée, d'avance merci.

Je te propose un script mixte BAT/VBS qui utilise les fonctions natives de gestion des dates du VBS :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

::SachaDee 2015   @echo off echo>##.vbs wscript.echo DateAdd("M",-1,now) for /f "tokens=1 delims== " %%y in ('cscript/nologo ##.vbs') do (set $dateMoins1=%%y) echo %$dateMoins1% del ##.vbs 2>nul   ( echo extraction.query.eventDateStart=%$dateMoins1:~6,4%%$dateMoins1:~3,2%%$dateMoins1:~0,2% echo extraction.query.eventDateEnd=%$dateMoins1:~6,4%%date:~3,2%%$dateMoins1:~0,2% echo extraction.query.datePeriode=%$dateMoins1:~3,2%/%date:~6,4% )>D:\VDL\Exploit\Interfaces\Bureau_Hygiene\external.properties2 pause

---

;)

Malheureusement, je ne peut pas utiliser de VBS. Ce script doit être lancer par un ordonnanceur (controlm) qui ne supporte pas le VBS. Elle accepte quasiment exclusivement les .bat. :s
Mais je te remercie de ta réponse.

PS : Ma faute, j'aurais du préciser cette information dès le départ.

Citation:

---

Malheureusement, je ne peut pas utiliser de VBS. Ce script doit être lancer par un ordonnanceur (controlm) qui ne supporte pas le VBS. Elle accepte quasiment exclusivement les .bat

---

Mon code est un .BAT (qui utilise du VBS)

Si tu veux ça en BAT pur voici une solution :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

::SachaDee 2015   @echo off FOR /F "skip=1 tokens=1,2,3" %%a IN ('WMIC Path Win32_LocalTime Get Month ^,Year^,Day /Format:table') do ( Set $An=%%c Set $Mois=%%b Set $Jour=%%a goto:next )   :next setlocal if %$Mois%==1 ( set $Mois=13 set /a $An=%$an%-1 )   set /a $mois-=1 call:Lead0   echo extraction.query.eventDateStart=%$an%%$mois%%$Jour%>D:\VDL\Exploit\Interfaces\Bureau_Hygiene\external.properties2   endlocal&(set $M=%$mois% set $A=%$an%)   call:Lead0   ( echo extraction.query.eventDateEnd=%$an%%$Mois%%$Jour% echo extraction.query.datePeriode=%$M%/%$A% )>D:\VDL\Exploit\Interfaces\Bureau_Hygiene\external.properties2   pause exit/b     :Lead0 if %$Mois% leq 10 set $Mois=0%$Mois%

---

;)

Je te remercie de ta réponse.