Page 1 sur 1
[R] Quantième en date
Posté : dim. 24 oct. 2010 12:42
par 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!
Re: [...]Quantième en date
Posté : dim. 24 oct. 2010 13:01
par 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 :
Vous pouvez aussi vous rendre
ici pour plus d'informations.
Jérôme
Re: [...]Quantième en date
Posté : dim. 24 oct. 2010 13:14
par 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.
Re: [...]Quantième en date
Posté : dim. 24 oct. 2010 13:34
par 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
Re: [R]Quantième en dates
Posté : dim. 24 oct. 2010 13:50
par 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.
Re: [R] Quantième en date
Posté : dim. 24 oct. 2010 22:56
par 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")
Re: [..] Quantième en date
Posté : lun. 25 oct. 2010 19:13
par 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.
Re: [R] Quantième en date
Posté : lun. 25 oct. 2010 21:26
par 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()
Re: [R] Quantième en date
Posté : mar. 26 oct. 2010 01:47
par bloodwolff
sylvanie a écrit :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
Re: [R] Quantième en date
Posté : mar. 26 oct. 2010 07:55
par Tlem
