Accueil > > > CALENDRIER
CALENDRIER
Information sur la source
Description
Un script ASP qui vous propose un petit calendrier avec choix du mois et de l'année. Vous pouvez le décortiquer pour l'adapter à vos besoin. P.S. : Gère le 29 février :)
Source
- <%
- dim dd
- dim mm
- dim yy
- dim annee
- dim jour
- dim nbjour
- dim mois(12)
- dim nomjour(7)
- dim seljour
- dim selmois
- dim selannee
- dim strselannee
- dim j
- dim r
-
- dim bgcol(44)
- dim txtcol(44)
- dim txtdt(44)
- dim c
- dim url
- dim furl
-
- dt=date()
-
- jour=weekday(dt)
-
- nomjour(1)="Lundi"
- nomjour(2)="Mardi"
- nomjour(3)="Mercredi"
- nomjour(4)="Jeudi"
- nomjour(5)="Vendredi"
- nomjour(6)="Samedi"
- nomjour(7)="Dimanche"
-
- dd=cint(mid(dt,1,2))
- mm=cint(mid(dt,4,2))
- yy=cint(mid(dt,7,4))
-
- mois(1)="janvier"
- mois(2)="février"
- mois(3)="mars"
- mois(4)="avril"
- mois(5)="mai"
- mois(6)="juin"
- mois(7)="juillet"
- mois(8)="août"
- mois(9)="septembre"
- mois(10)="octobre"
- mois(11)="novembre"
- mois(12)="décembre"
-
- if request.querystring("jour")<>"" then
- seljour=cint(mid(request.querystring("jour"),1,2))
- selmois=cint(mid(request.querystring("jour"),4,2))
- selannee=cint(mid(request.querystring("jour"),7,4))
- else
- seljour=dd
- selmois=mm
- selannee=yy
- end if
-
- if len(cstr(yy))<4 then
- annee=cstr(2000+yy)
- else
- annee=cstr(yy)
- end if
-
- if len(cstr(selannee))<4 then
- strselannee=cstr(2000+selannee)
- else
- strselannee=cstr(selannee)
- end if
-
- select case selmois
- case 1,3,5,7,8,10,12
- nbjour=31
- case 4,6,9,11
- nbjour=30
- case 2
- If IsDate("29" & "/02/" & strselannee ) Then nbjour = 29 Else nbjour = 28
- end select
-
- 'Initialise le calendrier du mois
- j=weekday("01/" & mois(selmois) & "/" & selannee)
- j=j-1
- if j=0 then j=7
-
- for r=1 to j
- bgcol(r)="#dddddd"
- txtcol(r)=""
- txtdt(r)=" "
- next
- c=1
- for r=j to 42
- url=string(2-len(cstr(c)),"0") & c
- url=url & "/" & string(2-len(cstr(selmois)),"0") & selmois
- url=url & "/" & string(4-len(cstr(selannee)),"0") & selannee
-
- bgcol(r)="#FFFFFF"
- txtcol(r)="#FF0000"
- if c>nbjour then
- bgcol(r)="#dddddd"
- txtdt(r)=" "
- else
- txtdt(r)="<center><a href=""calendar.asp?jour=" & url & """>" & c & "</a></center>"
-
- if c=dd and selmois=mm and selannee=yy then
- bgcol(r)="#770000"
- txtcol(r)="#FFFFFF"
- txtdt(r)="<center>" & c & "</center>"
- end if
-
- if c=seljour then
- bgcol(r)="#007700"
- txtcol(r)="#FFFFCC"
- txtdt(r)="<center><b>" & c & "<b></center>"
- end if
-
- end if
- c=c+1
- next
-
- %>
- <html><title>Calendrier</title>
- <script language="javascript">
- function changecal()
- {
- window.open('calendar.asp?jour=01/' + document.form.mois.value + '/' + document.form.annee.value,'_self');
- }
- </script>
- <STYLE>
- a:link{color:#186194;text-decoration:none;}
- a:visited{color:#186194;text-decoration:none;}
- a:hover{color:#00795a;text-decoration:underline;}
- </style>
- <body bgcolor="#FFFFFF">
- <form method="post" action="" name="form">
- <div align="center"><br>
- <table width="115" border="0">
- <tr>
- <td width="33%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>Mois
- </b></font></td>
- <td width="33%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>
- Année</b></font></td>
- <td width="33%"> </td>
- </tr>
- <tr>
- <td width="33%">
- <div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>
- <select name="mois">
- <%
- for r=1 to 12
- if selmois=r then
- %>
- <option value="<%=string(2-len(cstr(r)),"0") & r%>" selected><%=mois(r)%></option>
- <%
- else
- %>
- <option value="<%=string(2-len(cstr(r)),"0") & r%>"><%=mois(r)%></option>
- <%
- end if
- next
- %>
- </select>
- </b> </font> </div>
- </td>
- <td width="33%">
- <div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>
- <select name="annee">
- <%
- for r=2000 to 2020
- if strselannee=cstr(r) then
- %>
- <option value="<%=r%>" selected><%=r%></option>
- <%
- else
- %>
- <option value="<%=r%>"><%=r%></option>
- <%
- end if
- next
- %>
- </select>
- </b></font></div>
- </td>
- <td width="33%">
- <div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
- <input type="button" name="btn" value="=>" onclick="javascript:changecal();">
- </font></div>
- </td>
- </tr>
- <tr>
- <td colspan="3">
- <hr>
- </td>
- </tr>
- <tr bgcolor="#770000">
- <td colspan="3">
- <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFCC">Vue
- en cours<br>
- <b>le <%=seljour & " " & mois(selmois) & " " & strselannee%></b></font></div>
- </td>
- </tr>
- <tr>
- <td colspan="3">
- <table width="100%" border="1" align="center">
- <tr bgcolor="186194" align="center" valign="middle">
- <td width="20">
- <div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">L</font></b></font></div>
- </td>
- <td width="20">
- <div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">M</font></b></font></div>
- </td>
- <td width="20">
- <div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">M</font></b></font></div>
- </td>
- <td width="20">
- <div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">J</font></b></font></div>
- </td>
- <td width="20">
- <div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">V</font></b></font></div>
- </td>
- <td width="20">
- <div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">S</font></b></font></div>
- </td>
- <td width="20">
- <div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">D</font></b></font></div>
- </td>
- </tr>
- <tr> <%
- for r=1 to 7
- %>
- <td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
- <%
- next
- %> </tr>
- <tr> <%
- for r=8 to 14
- %>
- <td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
- <%
- next
- %> </tr>
- <tr> <%
- for r=15 to 21
- %>
- <td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
- <%
- next
- %> </tr>
- <tr> <%
- for r=22 to 28
- %>
- <td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
- <%
- next
- %> </tr>
- <tr> <%
- for r=29 to 35
- %>
- <td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
- <%
- next
- %> </tr>
- <%
- for r=36 to 42
- %>
- <td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
- <%
- next
- %> </tr>
- </table>
- </td>
- </tr>
- <tr>
- <td colspan="3">
- <hr>
- </td>
- </tr>
- <tr>
- <td colspan="3">
- <div align="center"></div>
- <div align="center"></div>
- <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nous
- sommes le<br>
- <b><font color="#FF0000"><%= nomjour(jour-1) & " " & dd & " " & mois(mm) & " " & annee%>
- </font></b></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FF0000">
- </font> </b> </font> </div>
- </td>
- </tr>
- </table>
- </div>
- </form>
- <br>
- </html>
<%
dim dd
dim mm
dim yy
dim annee
dim jour
dim nbjour
dim mois(12)
dim nomjour(7)
dim seljour
dim selmois
dim selannee
dim strselannee
dim j
dim r
dim bgcol(44)
dim txtcol(44)
dim txtdt(44)
dim c
dim url
dim furl
dt=date()
jour=weekday(dt)
nomjour(1)="Lundi"
nomjour(2)="Mardi"
nomjour(3)="Mercredi"
nomjour(4)="Jeudi"
nomjour(5)="Vendredi"
nomjour(6)="Samedi"
nomjour(7)="Dimanche"
dd=cint(mid(dt,1,2))
mm=cint(mid(dt,4,2))
yy=cint(mid(dt,7,4))
mois(1)="janvier"
mois(2)="février"
mois(3)="mars"
mois(4)="avril"
mois(5)="mai"
mois(6)="juin"
mois(7)="juillet"
mois(8)="août"
mois(9)="septembre"
mois(10)="octobre"
mois(11)="novembre"
mois(12)="décembre"
if request.querystring("jour")<>"" then
seljour=cint(mid(request.querystring("jour"),1,2))
selmois=cint(mid(request.querystring("jour"),4,2))
selannee=cint(mid(request.querystring("jour"),7,4))
else
seljour=dd
selmois=mm
selannee=yy
end if
if len(cstr(yy))<4 then
annee=cstr(2000+yy)
else
annee=cstr(yy)
end if
if len(cstr(selannee))<4 then
strselannee=cstr(2000+selannee)
else
strselannee=cstr(selannee)
end if
select case selmois
case 1,3,5,7,8,10,12
nbjour=31
case 4,6,9,11
nbjour=30
case 2
If IsDate("29" & "/02/" & strselannee ) Then nbjour = 29 Else nbjour = 28
end select
'Initialise le calendrier du mois
j=weekday("01/" & mois(selmois) & "/" & selannee)
j=j-1
if j=0 then j=7
for r=1 to j
bgcol(r)="#dddddd"
txtcol(r)=""
txtdt(r)=" "
next
c=1
for r=j to 42
url=string(2-len(cstr(c)),"0") & c
url=url & "/" & string(2-len(cstr(selmois)),"0") & selmois
url=url & "/" & string(4-len(cstr(selannee)),"0") & selannee
bgcol(r)="#FFFFFF"
txtcol(r)="#FF0000"
if c>nbjour then
bgcol(r)="#dddddd"
txtdt(r)=" "
else
txtdt(r)="<center><a href=""calendar.asp?jour=" & url & """>" & c & "</a></center>"
if c=dd and selmois=mm and selannee=yy then
bgcol(r)="#770000"
txtcol(r)="#FFFFFF"
txtdt(r)="<center>" & c & "</center>"
end if
if c=seljour then
bgcol(r)="#007700"
txtcol(r)="#FFFFCC"
txtdt(r)="<center><b>" & c & "<b></center>"
end if
end if
c=c+1
next
%>
<html><title>Calendrier</title>
<script language="javascript">
function changecal()
{
window.open('calendar.asp?jour=01/' + document.form.mois.value + '/' + document.form.annee.value,'_self');
}
</script>
<STYLE>
a:link{color:#186194;text-decoration:none;}
a:visited{color:#186194;text-decoration:none;}
a:hover{color:#00795a;text-decoration:underline;}
</style>
<body bgcolor="#FFFFFF">
<form method="post" action="" name="form">
<div align="center"><br>
<table width="115" border="0">
<tr>
<td width="33%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>Mois
</b></font></td>
<td width="33%"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>
Année</b></font></td>
<td width="33%"> </td>
</tr>
<tr>
<td width="33%">
<div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>
<select name="mois">
<%
for r=1 to 12
if selmois=r then
%>
<option value="<%=string(2-len(cstr(r)),"0") & r%>" selected><%=mois(r)%></option>
<%
else
%>
<option value="<%=string(2-len(cstr(r)),"0") & r%>"><%=mois(r)%></option>
<%
end if
next
%>
</select>
</b> </font> </div>
</td>
<td width="33%">
<div align="left"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b>
<select name="annee">
<%
for r=2000 to 2020
if strselannee=cstr(r) then
%>
<option value="<%=r%>" selected><%=r%></option>
<%
else
%>
<option value="<%=r%>"><%=r%></option>
<%
end if
next
%>
</select>
</b></font></div>
</td>
<td width="33%">
<div align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<input type="button" name="btn" value="=>" onclick="javascript:changecal();">
</font></div>
</td>
</tr>
<tr>
<td colspan="3">
<hr>
</td>
</tr>
<tr bgcolor="#770000">
<td colspan="3">
<div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFCC">Vue
en cours<br>
<b>le <%=seljour & " " & mois(selmois) & " " & strselannee%></b></font></div>
</td>
</tr>
<tr>
<td colspan="3">
<table width="100%" border="1" align="center">
<tr bgcolor="186194" align="center" valign="middle">
<td width="20">
<div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">L</font></b></font></div>
</td>
<td width="20">
<div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">M</font></b></font></div>
</td>
<td width="20">
<div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">M</font></b></font></div>
</td>
<td width="20">
<div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">J</font></b></font></div>
</td>
<td width="20">
<div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">V</font></b></font></div>
</td>
<td width="20">
<div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">S</font></b></font></div>
</td>
<td width="20">
<div align="center"><font color="#FFFFCC" size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif">D</font></b></font></div>
</td>
</tr>
<tr> <%
for r=1 to 7
%>
<td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
<%
next
%> </tr>
<tr> <%
for r=8 to 14
%>
<td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
<%
next
%> </tr>
<tr> <%
for r=15 to 21
%>
<td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
<%
next
%> </tr>
<tr> <%
for r=22 to 28
%>
<td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
<%
next
%> </tr>
<tr> <%
for r=29 to 35
%>
<td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
<%
next
%> </tr>
<%
for r=36 to 42
%>
<td width="20" bgcolor="<%=bgcol(r)%>" align="center"><font size="1" face="verdana" color="<%=txtcol(r)%>"><%=txtdt(r)%></font></td>
<%
next
%> </tr>
</table>
</td>
</tr>
<tr>
<td colspan="3">
<hr>
</td>
</tr>
<tr>
<td colspan="3">
<div align="center"></div>
<div align="center"></div>
<div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nous
sommes le<br>
<b><font color="#FF0000"><%= nomjour(jour-1) & " " & dd & " " & mois(mm) & " " & annee%>
</font></b></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#FF0000">
</font> </b> </font> </div>
</td>
</tr>
</table>
</div>
</form>
<br>
</html>
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Sharepoint - Calendar [ par DiscoPlacid ]
Bien le bonjour,Depuis un certain temps, je cherche à modifier le calendrier dans wss3.0. Ne trouvant absolumment rien de concret, je me suis mis à en
AjaxControlToolKit - Calendar [ par magikbanana ]
Bonjour,Je trouve le contrôle de calendrier de ACTK excellent, par rapport au contrôle de ASP.NET par défaut c'est beaucoup plus beau.Le problème est
Calendrier à la semaine [ par Urda ]
Bonjour , Après des recherche plus ou moin fructueuse j'ai décider de demander votre aide.Voilà mon problème , dans le cadre d'un dévelopement d'un in
control calendar [ par tortuegenie ]
Bonjour, je dvp un site web et j'ai besoin d'un calendrier, je souhaitais donc utiliser le control calendar de visual studio 2005.Le truc c'est que je
Calendar Extender ne montre que 5 jours de la semaine [ par Antonio01 ]
Bonjour j´utilise le controle CalendarExtender il fonctionne bien sauf qu4il ne m´affiche que du lundi au vendredi comment faire pour qu´apparaisse le
ajax extender et scrollbar [ par foufoulol ]
Bonjour, J'ai des extender d'autocompletion et des calendar extender dans une listview. Tout marche trés bien sauf lorsque j'ai un scrollbar horizont
calendrier en asp.net [ par hano1800 ]
salut tout le monde je veux savoir comment je peux choisie un module dans une select et il va me donnée la date ou on est faire ce module dans une cal
Calendrier - Sélection de dates [ par ben85000 ]
Bonjour a tous !J'utilise Visual Studio 2008.J'ai inséré dans ma Web Form un composant permettant d'avoir un calendrier (asp:Calendar). Tout fonctionn
Calendar [ par aylandar2009 ]
bonjour...bon je pose une question pour les fort dans le domaine...je veux créer un Calendar en ASP.NET, jusque la tt est fastoche (un jeu d'enfant),
Exporter les dates d'une bdd dans le calendrier outlook [ par rdeloozc ]
Bonjour est il donc possible pour un débutant d'exporter les dates d'une base de donnée access dans le calendrier d'outlook??? Je travaille avec Acces
|
Derniers Blogs
TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc
Forum
RE : FORMULAIRERE : FORMULAIRE par jopop
Cliquez pour lire la suite par jopop RE : FORMULAIRERE : FORMULAIRE par ap24dp
Cliquez pour lire la suite par ap24dp RE : FORMULAIRERE : FORMULAIRE par Megafan
Cliquez pour lire la suite par Megafan
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|