begin process at 2012 02 13 16:34:56
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Date/Heure

 > CALENDRIER

CALENDRIER


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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 :14 981

Auteur : zecreator

Ecrire un message privé
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>



 Sources du même auteur

Source avec Zip DLL ACTIVEX POUR GÉNÉRER DE VRAIS FICHIERS EXCEL DEPUIS LE C...
Source avec Zip GÉNÉRATEUR DE QCM EN ASP AVEC RAPPORT DE RÉSULTATS!!!
Source avec Zip SCRIPT SUPPLÉMENTAIRE POUR LE MOTEUR DE RESSOURCES DE ZECREA...
Source avec Zip FAIRE SON SITE DE RESSOURCES...

 Sources de la même categorie

CONVERSION D'UNE DATE/HEURE STANDARD VERS DATE/HEURE CONFORM... par processus
CALCUL DE L'AGE D'UNE PERSONNE (ASP VBSCRIPT) par bluedemon
CONVERSION DE GMT À LOCAL ET DE LOCAL À GMT par revolt
Source avec Zip CALENDRIER DYNAMIQUE AVEC JOURS FERIES par label97
SAISIR DATE FR DANS MYSQL par jeckel

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture AGENDA (AFFICHAGE DES ÉVÉNEMENTS PROVENANT D'UNE BASE DE DON... par rmo
UN CALENDRIER par sokram
Source avec Zip Source avec une capture UN SÉLECTEUR DE DATE EN ASP / DHTML par aspmag
Source avec Zip Source avec une capture AGENDA (AFFICHAGE DES ÉVÉNEMENTS PROVENANT D'UNE BASE DE DON... par rmo
Source .NET (Dotnet) CALENDRIER EN ASP.NET par everest

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 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


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 6,802 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales