Batch: Retour de sept jours en arrière

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

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