Batch: Retour de sept jours en arrière

Je ne sais pas trop d'où sa vient, mais c'est le 0 qui apparaitrait devant le 8 ou le 9.

if %date:~0,1%==0 (set JOUR=%date:~1,1%) else (set JOUR=%date:~0,2%)

%date:~0,1% les deux paramètres après le ~ corresponde aux caractères qu'il doit prendre en charge. le premier chiffe correspond au premier caractère compté. Exemple : le 1 correspond au deuxième chiffres des jours (9) si la date est 09.06.2009

le deuxième paramètre correspond au nombre de caractères suivant à prendre en compte. Exemple : le 2 correspond à 09 si la date est 09.06.2009

Je sais pas si c'est très claire mais c'est pas facile à expliquer :(

c'est bon j'ai compris ^^
Il ne gère pas le 0 devant 9 ou 8. Faut pas chercher à comprendre XD

Merci pour l'info !

Re ce matin j'ai fini le batch et j'ai même fait un VBScript (mieux que le vieux Batch, c'est pour les puristes^^).

Eh oui j'ai fini mon sujet de stage alors je me fais un peu chier lol

Le Batch

----------------------- myDate.bat------------------------------
@echo off
cls
setlocal EnableDelayedExpansion

REM set /p sert a demander une valeur
REM set /a pour dire que la variable est un entier

REM -- on peut remplacer par set /a nbJourSoustraire=7 pour fixer à 7 jours --
set /p nbJourSoustraire=Nombre de jour a soustraire ? 

for /f "tokens=1-3 delims=^/" %%1 in ('date ^/T') do (
    set /a jour=%%1
    set /a mois=%%2
    set /a annee=%%3
    
    echo Date Actuelle : !jour!^/!mois!^/!annee!

    REM -- Gestion du nombre de jours pour le mois précédent--
    REM -- Exemple, si je suis en juin le mois précédent comporte 31 jour (mai) --

       set /a modulo=!annee!%%4
	
       if !mois! equ 1 set /a nbJourPrecedent=31 
       if !mois! equ 2 set /a nbJourPrecedent=31
       if !mois! equ 4 set /a nbJourPrecedent=31
       if !mois! equ 6 set /a nbJourPrecedent=31
       if !mois! equ 8 set /a nbJourPrecedent=31
       if !mois! equ 9 set /a nbJourPrecedent=31
       if !mois! equ 11 set /a nbJourPrecedent=31

       if !mois! equ 3 (
         REM -- année bissextile --
           if !modulo! equ 0 (set /a nbJourPrecedent=29) ELSE set /a nbJourPrecedent=28
       )
       
       if !mois! equ 5 set /a nbJourPrecedent=30
       if !mois! equ 7 set /a nbJourPrecedent=30
       if !mois! equ 10 set /a nbJourPrecedent=30
       if !mois! equ 12 set /a nbJourPrecedent=30
	
    REM -- END gestion nbJourPrecedent --

    REM -- si la date est inferieur ou = à nbJourSoustraire --
       if !jour! leq !nbJourSoustraire! (
         REM -- si début janvier --
         if !mois! equ 1 (
	    set /a mois=12
	    set /a jour=!nbJourPrecedent! - !nbJourSoustraire! + !jour!
	    set /a annee-=1
	    GOTO END
         )
         set /a mois-=1
         set /a jour=!nbJourPrecedent! - !nbJourSoustraire! + !jour!
         GOTO END
       )
    REM -- END jr<8 --

    REM -- Cas général --
      set /a jour-=!nbJourSoustraire!
)

:END

echo Date -!nbJourSoustraire! jours : %jour%^/%mois%^/%annee%
endlocal
pause

Le VBScript

---------------------------------------------------------------------
---------------------------------- myDate.vbs --------------------
---------------------------------------------------------------------
Dim NbJourMoisPrecedent, NbJourASoustraire
Dim DateActuelle, DateFinale
Dim Parametre, Jour, Mois, Annee

'NbJourASoustraire = CInt(27)
NbJourASoustraire = CInt(inputbox("Entez le nombre de jours à soustraire ?")) 'Cint=>conversion de String en Int
Parametre=split(Date, "/")

Jour  = CInt(Parametre(0))
Mois  = CInt(Parametre(1))
Annee = CInt(Parametre(2))

'<-- On peut mettre directement Date, mais c'est pour les test -->'
DateActuelle = Jour & "/" & Mois & "/" & Annee 

WScript.echo "Date Actuelle   : " & DateActuelle

'<-- Les mois précedents avec 31 Jours -->'
If Mois=1 OR Mois=2 Or Mois=4 Or Mois=6 Or Mois=8 Or Mois=9 Or Mois=11 Then
	NbJourMoisPrecedent = 31
Else 
	'<-- Les mois précedents avec 30 Jours -->'
	If Mois=5 OR Mois=7 Or Mois=10 Or Mois=12 Then
		NbJourMoisPrecedent = 30
	Else
		If Mois=3 Then
			'<-- Années Bissextiles -->'
			If Annee Mod 4 = 0 Then
				NbJourMoisPrecedent = 29
			Else
				NbJourMoisPrecedent = 28
			End If
		End If
	End If
End If

'<-- Début du mois(<=X) donc avec -X jours on doit décaler d'un mois -->'
If Jour <= NbJourASoustraire Then
	'<-- Changement d'année -->'
	If Mois=1 Then
		Mois = 12
		Annee = Annee - 1
	Else
		Mois = Mois - 1
	End If
	Jour = NbJourMoisPrecedent - NbJourASoustraire + Jour
Else
	'<-- Cas général -->'
	Jour = Jour - NbJourASoustraire
End If

DateFinale = Jour & "/" & Mois & "/" & Annee

WScript.echo "Date -" & NbJourASoustraire & " jour(s) : " & DateFinale

WScript.Sleep 3000 'Pause de 3s pour avoir le temps de lire le résultat

Résultats :

/** Date d'aujourd'hui **/
Date Actuelle : 5/1/2009
Date -7 jours : 29/12/2008

/** Cas avec changement d'année**/
Date Actuelle : 5/1/2009
Date -7 jours : 29/12/2008

/** Année non Bissextile **/
Date Actuelle : 3/3/2003
Date -7 jours : 24/2/2003

/** Année Bissextile **/
Date Actuelle : 3/3/2004
Date -7 jours : 25/2/2004

Enjoy ^^

Bonjour,

Merci pour les sources qui m'ont permis de me dépatouiller dans un premier temps avec un problème similaire.
En cherchant un peu je suis tomber sur la fonction DateAdd(interval, number, date) qui permet de résoudre le problème plus simplement (en VBS), voir le lien ci-dessous pour les descriptifs complets des fonction dates VBS.

J'ai donc repris le script et cela se limite à cela :

'---------------------------------------------------------------------
'---------------------------------- myDate.vbs --------------------
'---------------------------------------------------------------------
Dim NbJourASoustraire
Dim DateFinale

NbJourASoustraire = inputbox("Entez le nombre de jours à soustraire ?")

DateFinale = DateAdd("d",NbJourASoustraire*(-1), Date)

WScript.echo "Date Actuelle : " & Date
WScript.echo "Date Actuelle - " & NbJourASoustraire & " jour(s) : " & DateFinale

WScript.Sleep 3000 'Pause de 3s pour avoir le temps de lire le résultat


http://www.commentcamarche.net/contents/vbscript/vbs-fonctions-date.php3

huhu ^^