[R] Saisir la date du jour

[brice59]

Bonjour,

J'aimerais savoir s'il est possible de "faire" saisir une date sous le format "YYYYMM"!

Pour compliquer un peu, Le but est de saisir la date avec ce format en allant de "M-11" à "M".

Merci d'avance

[TT22]

Je suis pas sur d'avoir bien compris mais je crois que c'est ça :

► Afficher le texte

Code : Tout sélectionner

$date = InputBox("Date","Veuillez entrer la date sousle format YYYY-MM")
MsgBox(64,"Date","Vous avez entré la date suivante :"&@CRLF&$date)

[brice59]

Je me suis mal exprimé.

voici le code que j'ai trouvé pour ceux que ça peut intéresser

Code : Tout sélectionner

local $NewDate = (@YEAR&@MON)
send(@YEAR&@MON)

[TT22]

Ok, en fait tu voulais que ce soit l'ordi qui marque la date et pas l'utilisateur

Edit : Par contre dans ton script, "local $NewDate = (@YEAR&@MON)" ça ne sert à rien.

[brice59]

le problème n'est plus le même.

Pour M-1 il met "20115" et non "201105"

De plus en réfléchissant un peu, si je veux M-6, il ne me met pas "201012" mais "20110".

il doit y avoir un problème avec le format.

Je continue mes recherches. Merci à vous si vous avez une réponse

[jchd]

Quelque chose comme ça ?

Code : Tout sélectionner

Local $date = StringFormat("%04i%02i", @YEAR, @MON)
ConsoleWrite($date & @LF)
ConsoleWrite(StringFormat("%04i%02i", 17, 3) & @LF)

[TT22]

Si j'ai bien compris, tu veux qu'on puisse enlever un certain nombres d'années et de mois à la date du jours ?
Si c'est le cas alors ton script est :

► Afficher le texte

Code : Tout sélectionner

$annee = @YEAR
$mois  = @MON

$moin_annee = InputBox("Date","Combien d'années voulez-vous enlever ?")
$moin_mois  = InputBox("Date","Combien de mois voulez-vous enlever ?")

$annee2 = $annee - $moin_annee
$mois2  = $mois - $moin_mois

    
    While 1
        If (0>$mois2) Then
        $mois2  = 12-($moin_mois - $mois)
        $mois = $mois+12
        $annee2 = $annee2 - 1
    EndIf
    
    If ($mois2>0) Then
        ExitLoop
    EndIf
        
        WEnd

MsgBox(64,"Date","Votre date est : "&$annee2&"-"&$mois2)

Sinon c'est que j'ai pas compris

[jchd]

Argh, tout s'éclaire !
Voici ce que tu veux :

Code : Tout sélectionner

#include <Date.au3>

Local $date = '2011/04/23'
For $i = -11 To 0
    ConsoleWrite(StringRegExpReplace(_DateAdd("M", $i, $date), "(\d\d\d\d)/(\d\d)/\d\d", "$1$2") & @LF)
Next

[brice59]

Merci pour vos réponses,

Le code qui correspond le plus à mes besoins est celui de TT22

Code : Tout sélectionner

$annee = @YEAR
$mois  = @MON

$moin_annee = 0
$moin_mois  = 1

$annee2 = $annee - $moin_annee
$mois2  = $mois - $moin_mois

   
    While 1
        If (0>$mois2) Then
        $mois2  = 12-($moin_mois - $mois)
        $mois = $mois+12
        $annee2 = $annee2 - 1
    EndIf
   
    If ($mois2>0) Then
        ExitLoop
    EndIf
       
        WEnd

MsgBox(0, "test",$annee2&$mois2)

Mon dernier soucis et de mettre le format yyyymm je continue sur la piste de jchd

Je pense que je finirai par trouver.

Merci

[mikell]

Je pense que si jchd avait écrit son code comme ça, il t'aurait plu davantage

Code : Tout sélectionner

#include <Date.au3>

Local $date = '2011/04/23'
$var = ""
For $i = -11 To 0
    $bla = StringRegExpReplace(_DateAdd("M", $i, $date), "(\d\d\d\d)/(\d\d)/\d\d", "$1$2")
    $var = $var & StringLeft($bla, 4) & " " & StringRight($bla, 2) & @LF
Next
Msgbox(0,"", $var)
 

[jchd]

Euh, une ligne c'est trop ou pas assez ?

► Afficher le texte

#include <Date.au3>

$Nmois = -1 ; il y a un mois
$date = StringRegExpReplace(_DateAdd("M", $Nmois, @YEAR&'/'&@MON&'/'&@MDAY), "(\d\d\d\d)/(\d\d)/\d\d", "$1$2")
ConsoleWrite($date & @LF)
$Nmois = -453 ; il y a 453 mois
$date = StringRegExpReplace(_DateAdd("M", $Nmois, @YEAR&'/'&@MON&'/'&@MDAY), "(\d\d\d\d)/(\d\d)/\d\d", "$1$2")
ConsoleWrite($date & @LF)
$Nmois = 7901 ; dans 7901 mois
$date = StringRegExpReplace(_DateAdd("M", $Nmois, @YEAR&'/'&@MON&'/'&@MDAY), "(\d\d\d\d)/(\d\d)/\d\d", "$1$2")
ConsoleWrite($date & @LF)

Me semblait simple ça, m'enfin...
Sinon, on va faire aussi comme ça :

► Afficher le texte

#include <Date.au3>

Local $date = '2011/04/23'
Local $bla
For $i = -11 To 0
$bla &= StringRegExpReplace(_DateAdd("M", $i, $date), "(\d\d\d\d)/(\d\d)/\d\d", "$1 $2") & @LF
Next
Msgbox(0,"", $bla)

[TT22]

Juste une petite mise à jour du script que j'ai déjà proposé :

► Afficher le texte

Code : Tout sélectionner

$annee = @YEAR
$mois  = @MON

$moin_annee = InputBox("Date","Combien d'années voulez-vous enlever ?")
[color=#FF0000]If @error = 1 Then
    Exit
EndIf[/color]
$moin_mois  = InputBox("Date","Combien de mois voulez-vous enlever ?")
[color=#FF0000]If @error = 1 Then
    Exit
EndIf[/color]

$annee2 = $annee - $moin_annee
$mois2  = $mois - $moin_mois

    
    While 1
        If (0>$mois2) Then
        $mois2  = 12-($moin_mois - $mois)
        $mois = $mois+12
        $annee2 = $annee2 - 1
    EndIf
    
    If ($mois2>0) Then
        ExitLoop
    EndIf
    
    [color=#FF0000]If ($mois2=0) Then
        ExitLoop
    EndIf[/color]
        
        WEnd

MsgBox(64,"Date","Votre date est : "&$annee2&"-"&$mois2)

[brice59]

Merci

Ce code ci me semble plus simple, mais comment faire pour mettre la date du jour à la place ?

Code : Tout sélectionner

#include <Date.au3>

Local $date = "[u]date du jour[/u]"
Local $bla
For $i = -1 To -1
$bla &= StringRegExpReplace(_DateAdd("M", $i, $date), "(\d\d\d\d)/(\d\d)/\d\d", "$1$2") & @LF
Next
; a mettre plus tard SEND($bla)
Msgbox(0,"", $bla)

[jchd]

Tu as bien essayé le premier script 3 posts au-dessus ?

► Afficher le texte

$Date = @YEAR & '/' & @MON & '/' & @MDAY

[brice59]

Merci

il me manquait le caractère pour laisser le " / "

[jchd]

Il le faut dans la date pour pouvoir bénéficier de la simplicité d'emploi de _DateAdd. Après comme tu le vois, extraire l'année et le mois au format dont tu as besoin est un jeu.