Re: date de la veille

"news.free.fr" <jipief@hotmail.com> a écrit dans le message de 
news:47b47e62$0$19703$426a74cc@news.free.fr...
> Bonjur,
>
> Sous MSDOS,
Sous MSDOS réellement ou plutôt en ligne de commande sous Windows ?

> je souhaiterais savoir s'il est possible de récupérer un date du style 
> date - x jours ou date + xjours.

En VBS, c'est très facile, grace à la fonction "DateAdd", qui calcule 
automatiquement un décalage de date, en tenant compte des années 
bissextiles, accepte la date en entrée sous n'importe quel format, ...

Script "VEILLE.VBS"
-------- couper ici -------- 
Set args=wscript.arguments
if args.count=0 then Curdate=now else CurDate=args(0)
Veille=DateAdd("d",-1,CurDate)
wscript.echo FormatDateTime(Veille,vbShortDate)
-------- couper ici -------- 

Exemple :
K:\>veille
13/02/2008

K:\>veille 01/01/2008
31/12/2007

K:\>veille "1 mars 2000"
29/02/2000




Et si on veut faire varier le décalage (en plus ou en moins) :
1er paramètre : le décalage
2ème paramètre : la date

Si aucun paramètre transmis : calcul de la veille d'aujourd'hui
Si un seul paramètre transmis : calcul du décalage par rapport à aujourd'hui

Script "DECALAGE.VBS"
-------- couper ici -------- 
Set args=wscript.arguments
Curdate=now
if args.count=0 then
    decal=-1
else
    decal=args(0)
    if args.count>1 then CurDate=args(1)
    end if
Veille=DateAdd("d",decal,CurDate)
wscript.echo FormatDateTime(Veille,vbShortDate)
-------- couper ici -------- 

Exemples :

K:\>decalage -1 "1 mars 2000"
29/02/2000

K:\>decalage 1 "1 mars 2000"
02/03/2000

K:\>decalage 2 "30 décembre 1999"
01/01/2000

K:\>decalage -3 "3 mars 1999"
28/02/1999

K:\>decalage
13/02/2008

K:\>decalage -3 "3 mars 2000"
29/02/2000

K:\>decalage 31 29/02/2008
31/03/2008

K:\>decalage 10
24/02/2008


--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP] - http://www.bellamyjc.org