Calendrier - Mois courant et mois suivant

Résolu
fionalabelle Messages postés 14 Date d'inscription mercredi 25 janvier 2006 Statut Membre Dernière intervention 25 août 2006 - 5 mai 2006 à 08:34
nickadele Messages postés 1251 Date d'inscription mercredi 7 août 2002 Statut Modérateur Dernière intervention 10 avril 2013 - 5 mai 2006 à 17:51
Salut à vous,
J’ai trouvé le code ci-dessous sur cette page, et j’aimerai le modifé de facon qu’il affiche non seulement le mois actuel, mais aussi le mois suivant. Mais je n'arrive pas à le faire. Car je suis nouvelle en ce qui concerne le language ColdFusion.


Est-ce-que quelqu’un pourrait m’aider ? <?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />


Exemple :
Mai 2006


Juni 2006





Merci d’avance à tous ceux qui peuvent me repondre.


fiona

<!--- Initialisations --->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<CFSET jourLettre=ListToArray("Dimanche,Lundi,Mardi,Mercredi,Jeudi,Vendredi,Samedi")>
<CFSET moisLettre=ListToArray("Janvier,Février,Mars,Avril,Mai,Juin,Juillet,Août,Septembre,Octobre,Novembre,Décembre")>

<!--- Validation des informations recus et fait la mise à jour de la date à traiter--->
<CFIF ParameterExists(traitDate) IS "No">
<CFSET traitDate=#Now()#>
<CFELSE>
<CFIF NOT IsDate(traitDate)>
<CFSET traitDate=#Now()#>
<CFELSE>
<CFSET tableauDate=#ListToArray(traitDate,"-")#>
<CFSET traitDate=CreateDate(tableauDate[1], tableauDate[2], tableauDate[3])>
</CFIF>
<CFIF ((ParameterExists(modifMois) IS NOT "No") AND (len(modifMois) GT 1) AND(#IsNumeric(right(modifMois,len(modifMois)-1))#))>
<CFIF left(modifMois,1) IS "-">
<CFSET traitDate=#DateAdd("m", -right(modifMois,len(modifMois)-1), traitDate)#>
<CFELSE>
<CFIF left(modifMois,1) IS "~">
<CFSET traitDate=#DateAdd("m", right(modifMois,len(modifMois)-1), traitDate)#>
</CFIF>
</CFIF>
<CFELSE>
<CFIF ((ParameterExists(modifAnnee) IS NOT "No") AND (len(modifAnnee) GT 1) AND (#IsNumeric(right(modifAnnee,len(modifAnnee)-1))#))>
<CFIF left(modifAnnee,1) IS "-">
<CFSET traitDate=#DateAdd("yyyy", -right(modifAnnee,len(modifAnnee)-1), traitDate)#>
<CFELSE>
<CFIF left(modifAnnee,1) IS "~">
<CFSET traitDate=#DateAdd("yyyy", right(modifAnnee,len(modifAnnee)-1), traitDate)#>
</CFIF>
</CFIF>
</CFIF>
</CFIF>
</CFIF>
<CFSET traitAnnee = #Year(traitDate)#>
<CFSET traitMois = #Month(traitDate)#>
<CFSET traitMoisNbJour = #DaysInMonth(traitDate)#>

<!--- Aller chercher les jours spécial dans la DB--->
<html>
<head>
<TITLE>Calendrier</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style>
.date { font-family: Arial, Helvetica, sans-serif; font-size: 8pt;
font-style: normal; font-weight: bold;
color: #000000;text-decoration : none;}
.erreur { font-family: Arial, Helvetica, sans-serif; font-size: 7pt;
font-style: normal; font-weight: bold; color: #FF0000;
text-decoration : none;}
.grise { font-family: Arial, Helvetica, sans-serif; font-size: 7pt;
font-style: normal; font-weight: bold; color: #AAAAAA;
text-decoration : none;}
.titre { font-family: Arial, Helvetica, sans-serif; font-size: 12pt;
font-style: normal; font-weight: bold; color: #000000;
text-decoration : none;}

</style>
<style type="text/css">
<!--

a:hover {
font-family: Arial, Helvetica, sans-serif; font-size: 8pt;
font-style: normal;
font-weight: bold;
color: #FF0000;
text-decoration : none;
}
a {
font-family: Arial, Helvetica, sans-serif;
font-size: 8pt;
font-style: normal;
font-weight: bold;
color: #000000;
text-decoration : none;
}

-->
</style>
</head>



Calendrier




<table width="210" border="0" cellspacing="1" cellpadding="1">
<!--- Ligne pour le mois --->
----,

#LSDateFormat(traitDate,\"yyyy-mm-dd\")#</CFOUTPUT>\"><

</td>
<CFOUTPUT>#moisLettre[traitMois]#</CFOUTPUT>,
#LSDateFormat(traitDate,"yyyy-mm-dd")#</CFOUTPUT>">>,

<!--- Ligne pour l'Année--->
----

#LSDateFormat(traitDate,"yyyy-mm-dd")#</CFOUTPUT>"><,
<CFOUTPUT>#traitAnnee#</CFOUTPUT>,
#LSDateFormat(traitDate,"yyyy-mm-dd")#</CFOUTPUT>">>

<!--- Ligne pour les jours de la semaines--->
Di,
Lu,
Ma,
Me,
Je,
Ve,
Sa,

<!--- DEBUT AFFICHAGE DES CELLULES DES JOURS DU MOIS --->
----

<!--- affichage des cellules vides en debut de tableau --->
<CFSET cptcel=#Evaluate((7 + DayOfWeek(CreateDate(traitAnnee,traitMois,1)) - 1) mod 7)#>
<CFLOOP index=\"i\" from=\"1\" to=\"#cptcel#\">
,
</CFLOOP>

<!--- flag sert a specifier qu'il s'agit de la premiere ligne --->
<CFSET flag=\"False\">

<!--- debut de boucle de 1 au nombre de jour dans le mois --->
<CFLOOP index=\"i\" from=\"1\" to=\"#traitMoisNbJour#\">
<!---commencer une nouvelle ligne lorsque l'on arrive a la 7 eme cellule (=rupture)--->
<CFSET cptcel=#Evaluate(cptcel + 1)#>
<CFIF (#Evaluate(cptcel MOD 7)# IS 1) AND (#flag# IS \"True\")>
----

</CFIF>
<CFSET flag=\"True\">
<CFOUTPUT>#i#</CFOUTPUT>,
</CFLOOP>
<!--- completer la fin du tableau par des cellules vides --->
<CFLOOP index=\"i\" from=\"1\" to=\"#Evaluate((7-(cptcel mod 7)) mod 7)#\">
,
</CFLOOP>



</td>
</tr>
</table>


<hr>



</html>

5 réponses

nickadele Messages postés 1251 Date d'inscription mercredi 7 août 2002 Statut Modérateur Dernière intervention 10 avril 2013
5 mai 2006 à 13:21
Sans trop me prendre la tête, voici une petite adaptation :
le début du code jusque Body reste inchangé...
faudra certainement afgrandir la fenetre popup lors de l'appel...


<table width="100%" border="0" cellpadding="0" cellspacing="0" class="content" bgcolor="#BgMenu#">
----, <<</td>
#MonthasString(Month(dateOnClick))#,
>>,
,
<<,
#Year(dateOnClick)#,
>>

</td>
</tr>
<tr>
<td>
Su,
Mo,
Tu,
We,
Th,
Fr,
Sa,

<cfloop index=\"j\" from=\"1\" to=\"6\" step=\"1\">
----

<cfloop index=\"i\" from=\"1\" to=\"7\" step=\"1\">
<cfif (i eq J1) and (j eq 1) or (Jour GTE 1) and (Jour LT NbJ)>
<cfset Jour=Jour+1>
<cfif (Jour EQ Day(dateOnClick)) and (Mois EQ month(dateOnClick)) and (Annee EQ year(dateOnClick))>
#Jour#
<cfelse>
#Jour#
</cfif>
<cfelse>

</cfif>,
</cfloop>

</cfloop>

</td>
<td>&nbps</td>
<cfset Jour=0>
<cfset Currentdate = Dateadd('m', 1, Currentdate) />
<cfset Mois=#Month(Currentdate)#><!--- Le mois de la date du jour --->
<cfset Annee=#Year(Currentdate)#><!--- Le annee de la date du jour --->
<cfset J1=DayofWeek("#Month(Currentdate)#/01/#Year(Currentdate)#")>
<cfset NBJ=DaysInMonth(Currentdate)> <!--- Nombre de Jour --->

<td>
Su,
Mo,
Tu,
We,
Th,
Fr,
Sa,

<cfloop index=\"j\" from=\"1\" to=\"6\" step=\"1\">
----

<cfloop index=\"i\" from=\"1\" to=\"7\" step=\"1\">
<cfif (i eq J1) and (j eq 1) or (Jour GTE 1) and (Jour LT NbJ)>
<cfset Jour=Jour+1>
#Jour#
<cfelse>

</cfif>,
</cfloop>

</cfloop>

</td>
</tr>
</table>


</html>
</cfoutput>
3
nickadele Messages postés 1251 Date d'inscription mercredi 7 août 2002 Statut Modérateur Dernière intervention 10 avril 2013
5 mai 2006 à 17:51
fionalabelle,

pour rappel ce site est à vocation d'aider les gens qui sont bloqué face à un problème, pas de leur pondre du code source à la demande.
Donc je te répondrai tout simplement, fait une boucle itérative de 0 à 24 et le tour est joué!

Merci !

Nickadele
----------------------------------------------
non, ma belle ne s'appel pas Adèle
3
syndrael Messages postés 2378 Date d'inscription lundi 4 février 2002 Statut Membre Dernière intervention 29 décembre 2012 20
5 mai 2006 à 09:37
Bonjour,

Ma réponse ne va po te plaire, mais c'est loin d'être le bon code, il y
a des instructions obsolètes et puis c'est beaucoup de code pour pas
grand chose. Je regrette de ne po avoir le temps sinon je te le ferai,
je pense que des personnes dévouées te consacreront plus de temps que
moi. Je te conseille de tout recommencer..

S.
0
fionalabelle Messages postés 14 Date d'inscription mercredi 25 janvier 2006 Statut Membre Dernière intervention 25 août 2006
5 mai 2006 à 10:16
bonjour syndrael,
j'avai confondue de code. C'est plutot celui ci que j'essaye de modifier pourqu'il me presente deux mois au meme moment.
Pardon aide moi, car je suis vraiement bloqué.

Merci

<cfset title="-[ Calendar ]-"><!--- Texte du titre --->
<cfset BgColor="64aaDC"><!--- Couleur de fond de page --->
<cfset bgcarac="aaa4DC"><!--- Couleur de fond de page --->
<cfset BgMenu="64aaDC"><!--- Couleur de fond pour la selection du mois et de l annee --->
<cfset BgDayAlpha="0066aa"><!--- Couleur de fond des jours en lettre --->
<cfset BgDayNumb="CCCCCC"><!--- Couleur de fond des jours en chiffre --->
<cfset WCase="30"><!--- Largeur de la case --->
<cfset HCase="30"><!--- Hauteur de la case --->


<cfparam name="dateOnClick" default="#Now()#"><!--- Date du jour, elle sera utiliser pour faire des calculs --->
<cfparam name="Currentdate" default="#Now()#"><!--- Date du jour --->
<cfset Jour=0>
<cfset Mois=#Month(Currentdate)#><!--- Le mois de la date du jour --->
<cfset Annee=#Year(Currentdate)#><!--- Le annee de la date du jour --->
<cfset J1=DayofWeek("#Month(dateOnClick)#/01/#Year(dateOnClick)#")>
<cfset NBJ=DaysInMonth(dateOnClick)> <!--- Nombre de Jour --->


<cfoutput>
<html>
<head>
<title>#title#</title>
<style>
A:visited { color: FFFFFF; font-size: 9pt; font-family: Verdana; font-weight : bold; text-decoration: none }
A:hover { color: 33AA55; font-size: 9pt; font-family: Verdana; font-weight : bold; text-decoration: none }
A:link { color: FFFFFF; font-size: 9pt; font-family: Verdana; font-weight : bold; text-decoration: none }
A:active { color: 33AA55; font-size: 9pt; font-family: Verdana; font-weight : bold; text-decoration: none }
.currentday { color: FF0000; font-size: 9pt; font-family: Verdana; font-weight : bold; text-decoration: none }
.currentday:visited { color: FF0000; font-size: 9pt; font-family: Verdana; font-weight : bold; text-decoration: none }
.currentday:hover { color: 33AA55; font-size: 9pt; font-family: Verdana; font-weight : bold; text-decoration: none }
.currentday:link { color: FF0000; font-size: 9pt; font-family: Verdana; font-weight : bold; text-decoration: none }
.currentday:active { color: 33AA55; font-size: 9pt; font-family: Verdana; font-weight : bold; text-decoration: none }
.content { color: FFFFFF; font-size: 9pt; font-family: Verdana; font-weight : bold; text-decoration: none }
</style>
<script>
function dayClick() {
alert('#month(dateOnClick)#-#Jour#-#year(dateOnClick)#');
}
</script>
</head>



<table width="100%" border="0" cellpadding="0" cellspacing="0" class="content" bgcolor="#BgMenu#">
----, &lt;&lt;</td>
#MonthasString(Month(dateOnClick))#,
&gt;&gt;,
&nbsp;,
&lt;&lt;,
#Year(dateOnClick)#,
&gt;&gt;

</td>
</tr>
<tr>
<td>
Su,
Mo,
Tu,
We,
Th,
Fr,
Sa,

<cfloop index=\"j\" from=\"1\" to=\"6\" step=\"1\">
----

<cfloop index=\"i\" from=\"1\" to=\"7\" step=\"1\">
<cfif (i eq J1) and (j eq 1) or (Jour GTE 1) and (Jour LT NbJ)>
<cfset Jour=Jour+1>
<cfif (Jour EQ Day(dateOnClick)) and (Mois EQ month(dateOnClick)) and (Annee EQ year(dateOnClick))>
#Jour#
<cfelse>
#Jour#
</cfif>
<cfelse>
&nbsp;
</cfif>,
</cfloop>

</cfloop>

</td>
</tr>
</table>



</html>
</cfoutput>
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
fionalabelle Messages postés 14 Date d'inscription mercredi 25 janvier 2006 Statut Membre Dernière intervention 25 août 2006
5 mai 2006 à 14:20
Merci nickadele de ton aide.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />





Peux-tu s’il te plait me dire avec quelle function je peux afficher toutes les heures d’un jour précis ?





Par exemple quand j’utilise la fonction hour, il ne m’affiche que l’heure actuelle, mais j’ai besoin que toutes les heures de la journée soit affiché.





Exemple :


L’heure actuelle est #TimeFormat(Now())#.


On se trouve à l’heure #Hour(Now())#, Minute #Minute(Now())#


Et Seconde #Second(Now())# de ce jour.





Resultat:


L’heure actuelle est 02:00 PM. On se trouve à l’heure 14, Minute 0 Et Seconde 57 de ce jour.





Je voudrais afficher pour aujourd’hui :


00h


01h


02h


03h


.


.


.


.


23h
0
Rejoignez-nous