Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CALENDRIER


Information sur la source

Catégorie :Date/Heure Classé sous : calendrier, calendar Niveau : Débutant Date de création : 19/12/2002 Date de mise à jour : 19/12/2002 13:13:23 Vu : 9 316

Note :
3 / 10 - par 1 personne
3,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

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)="&nbsp;"
  • 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)="&nbsp;"
  • 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&eacute;e</b></font></td>
  • <td width="33%">&nbsp;</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="=&gt;" 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)="&nbsp;"
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)="&nbsp;"
	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&eacute;e</b></font></td>
        <td width="33%">&nbsp;</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="=&gt;" 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>

Commentaires et avis

Aucun commentaire pour le moment.

Ajouter un commentaire

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 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 Problème d'affichage d'un calendar extender dans un gridview [ par teatsx ] Bonjour à tous.J'ai un petit problème d'affichage d'un calendarExtender (Ajax Control Toolkit) dont je n'arrive pas à m'expliquer.J'ai un calendarExte Calendar en anglais [ par Sabine26 ] Bonjour, voilà j'ai un Calendar qui est en français, je souhaiterai le mettre en anglais! Après quelque petite recherche sur le net, j'ai trouvé une p Calendrier en asp.net [ par BrokenArrow29 ] Bonjour tout le mondeJ'aurais besoin aussi pour mon site web d'un calendrier sur lequel dans une journée précise je pourrais faire afficher un graphiq Besoin d'aide sur excel, access, ou autre selon votre bon vouloir. [ par Furiousmoh ] Bonjour à tous,je bosse dans une entreprise de collecte de déchets. Au quotidien, nous avons un réél problème de transmission des informations car bea calendrier en français [ par sofiesofie ] salut,je veux le code d'une calendrier en ASP.NET qui m'affiche la date com l'exemple dans l'image si dessous, et qui me permet de calculer la différe calendrier avec liste déroulante ds semaine [ par carlito7 ] Bonsoir,Je suis actuellemnt entrain de développer une application web de gestion de planning en C#.net, le problème est le suivant:J'ai une liste déro


Nos sponsors

Sondage...

CalendriCode

Octobre 2008
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode