[R] Récupérer la date de la veille

[zozisson]

Bonjour,

Je réalise tous les jours des suivis d'installations de chauffage/clim grâce à AutoIt, et j'aurai aimé récupérer la date de la veille afin de nommer mes mails et pièces jointes avec le date de la veille, et avec le chiffre des jours au format jj (01/02/2009 et non 1/02/2009 pour le premier fevrier 2009).
J'ai mis au point une petite fonction (un peu bourine) mais celle-ci ne fonctionne pas :

► Afficher le texte

Code : Tout sélectionner

;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
;FONCTION DONNANT LA DATE D'HIER
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
func _date_hier($anneein,$moisin,$jourin,$anneeout,$moisout,$jourout)
    if $jourin = 1 Then
        if $moisin =1 Then
            $jourout = 31
            $moisout = 12
            $anneeout = $anneein -1
        Else
            $anneeout = $anneein
            $moisout = $moisin -1
            if $moisin = 2 Then
                $jourout = 31   
            elseif $moisin =3   Then
                $jourout = 28   
            elseif $moisin =4   Then
                $jourout = 31   
            elseif $moisin =5   Then
                $jourout = 30   
            elseif $moisin =6   Then
                $jourout = 31   
            elseif $moisin =7   Then
                $jourout = 30   
            elseif $moisin =8   Then
                $jourout = 31   
            elseif $moisin =9   Then
                $jourout = 31   
            elseif $moisin =10  Then
                $jourout = 30   
            elseif $moisin =11  Then
                $jourout = 31   
            elseif $moisin =12  Then
                $jourout = 30   
            EndIf               
        EndIf
    else
        $anneeout = $anneein
        $moisout = $moisin
        if $jourin<10 then
            $jourout = "0" & $jourin - 1
        else
            $jourout = $jourin - 1
        EndIf   
    EndIf       

EndFunc
 

...appelée par :

Code : Tout sélectionner

 
_date_hier(@YEAR,@MON,@MDAY,$anhier,$moishier,$jourhier)

Connaissez-vous un moyen plus simple d'obtenir la date d'hier, et pourquoi ma fonction ne marche pas ?

Je vous remercie.

[jbnh]

Salut,

Dommage de se casser la tête quand la fonction existe déjà

Code : Tout sélectionner

#Include <Date.au3>
$result = _DateAdd('D', -1, _NowCalcDate())
$var = Stringsplit($result, "/")
$result_new = $var[3]&"/"&$var[2]&"/"&$var[1]
MsgBox(0,"Hier", $result_new)

J'ai arrangé pour que le format sont comme tu le souhaitais.

[zozisson]

Merci beaucoup, c'est exactement ce dont je souhaitais.

Bonne journée.