[R] Quantième en date

[Fish]

Bonjour, je voulait faire un petit script pour convertir un quantième (jour de l'année) en date.
Je voulait savoir si une formule pour faire sa existe, comme sa je pourrait l'appliquer à une variable
et pour modifier cette dernière une InputBox.
Dans tout les cas merci à l'avance pour vos réponses!

[Jerome]

Coucou,


J'ai pas saisit tout ce que vous voulez faire, si vous pouviez mieux expliquer (exemple?)
Je vous donne quand même un début de piste avec ce code :

Code : Tout sélectionner

StringFormat("%02d-%02d-%d", @MDAY, @MON, @YEAR)

Vous pouvez aussi vous rendre ici pour plus d'informations.





Jérôme

[Fish]

Bonjour Jèrome, voila se que je cherche à faire:
Au lancement du programme,une InputBox apparait et on entre le jour de l'année (exemple:365)
et le programme ouvre une MsgBox ou il y a marquer "31/12/1995" par exemple (Pour le 1995 pas besoin de formule je changerait le script tout les ans).
Et j'ai du mal a trouver une règle de calcul pour cela.
En tout cas merci de votre intérêt pour mon problème.

[Jerome]

Re-Coucou,


Je voit pas trop comment faire, parce que faudrait gérer les années sextile et bissextile.
Je verrait plus une Gui avec 3 listes déroulantes (jours/mois/années). Si vous préférer cette solution, sa me semble plus simple à gérer et surtout vous n'aurez pas à faire de modification dans votre code tout les ans pour l'année.

J'en conclut donc que l'année ne sera pas à gérer non plus, étant donnée que vous prenez celle en cours.


Edit : Voici un petit truc :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 356, 105, 192, 124)
$Button1 = GUICtrlCreateButton("Go", 240, 40, 75, 25, $WS_GROUP)
$Combo1 = GUICtrlCreateCombo("", 24, 40, 57, 25)
GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31")
$Combo2 = GUICtrlCreateCombo("", 104, 40, 113, 25)
GUICtrlSetData(-1, "Janvier|Févier|Mars|Avril|Mai|Juin|Juillet|Aout|Septembre|Octobre|Novembre|Decembre")
$Label1 = GUICtrlCreateLabel("Jours", 24, 16, 29, 17)
$Label2 = GUICtrlCreateLabel("Mois", 104, 16, 26, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $jours = GUICtrlRead($Combo1)
            $mois = GUICtrlRead($Combo2)
            If $mois = "Janvier" Then $mois = "01"
            If $mois = "Févier" Then $mois = "02"
            If $mois = "Mars" Then $mois = "03"
            If $mois = "Avril" Then $mois = "04"
            If $mois = "Mai" Then $mois = "05"
            If $mois = "Juin" Then $mois = "06"
            If $mois = "Juillet" Then $mois = "07"
            If $mois = "Aout" Then $mois = "08"
            If $mois = "Septembre" Then $mois = "09"
            If $mois = "Octobre" Then $mois = "10"
            If $mois = "Novembre" Then $mois = "11"
            If $mois = "Decembre" Then $mois = "12"
            MsgBox("","", $jours & "/" & $mois & "/" & @YEAR)
    EndSwitch
WEnd

 

A vous de modifiez comme bon vous semble.




Jérôme

[Fish]

Euh c'est le contraire qui me serait utile, on entre le quantième (par exemple 268) et le programme nous donne la date correspondant à sa...
Néanmoins merci.

[Tlem]

Sachant que le premier janvier de l'année en cours est le jour N°1 de l'année, il suffit par exemple pour cette année de rajouter 268 jours au 01/01/2010.

Donc cela donne :

► Afficher le texte

Code : Tout sélectionner

#include <Date.au3>

$sNewDate = _DateAdd( 'd',268, @YEAR & "/01/01")
MsgBox( 4096, "", "Le 268iem jour de l'année est le : " & $sNewDate & " en date Américaine")

$aDate = StringSplit($sNewDate, "/")
$DateFr = $aDate[3] & "/" & $aDate[2] & "/" & $aDate[1]
MsgBox( 4096, "", "Le 268iem jour de l'année est le : " & $DateFr & " en date Francaise")

[Fish]

Merci mais quand j'essaye de mettre une entrée (InputBox) pour configurer la date entée et bien sa ne marche plus, les dates et les jours de l'année se décalent...Je ne sait plus quoi faire....Merci cependant pour toutes vos réponses.

[sylvanie]

Et bien là, il va falloir commencer à donner des morceaux de codes, car là on peut extrapoler un max ...
Genre dans les grands classiques, on prends l'Id du contrôle à la place de la valeur, etc. Mais sans code, faut charger l'include <Madame_Irma.au3> et appeler la foction bouledecristale()

[bloodwolff]

Et bien là, il va falloir commencer à donner des morceaux de codes, car là on peut extrapoler un max ...
Genre dans les grands classiques, on prends l'Id du contrôle à la place de la valeur, etc. Mais sans code, faut charger l'include <Madame_Irma.au3> et appeler la foction bouledecristale()

j'ai testé la fonction mais elle ne marche pas , sa dois venir de l'include je le trouve pas dans le dossier udf

[Tlem]