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 32 33 34 35 36 37 38 39 40 41 42 43 44 45
|
<table name="eche" onkeyup="chiffres(this)" onkeydown="chiffres(this)" id='echeancier'>
<tr>
<%
'on commence par déclarer les variables utiles
dim dateK 'variable contenant le mois correspondant à la cellule parcourue, au format date
dim dateFin 'variable contenant le dernier mois pour lequel il faut afficher une cellule
dim i 'variable contenant le numéro d'ordre de la cellule parcourue (i=1 pour la 1ère cellule, etc.)
dim dt 'variable contenant le mois correspondant à la cellule parcourue, au format "mm/aaaa"
'puis on initialise ces variables :
' - i = 1 (on commence par la première case, logique)
' - dateK = date du jour + 1 mois (la première case du tableau correspond au mois M+1)
' - dateFin = premier mois de l'année civile de (date du jour + 3 ans)
i = 1
dateK = DateAdd("m", 1, Now)
dateFin = cdate("01/01/" & (DatePart("yyyy", Now) + 3))
'pour chaque mois compris entre M+1 et décembre A+2...
do while dateK <= dateFin
'... on crée une nouvelle case...
response.write "<td align=""center""><font size=""2"">"
'... on y indique le mois qui convient, au format "mm/aaaa", ainsi qu'un champ de saisie nommé
'd'après ce mois...
if len(month(dateK)) = 1 then
dt = "0" & Month(dateK) & "/" & Year(dateK)
response.write("0" & Month(dateK) & "/" & Year(dateK))
else
dt = Month(dateK) & "/" & Year(dateK)
response.write(Month(dateK) & "/" & Year(dateK))
end if
response.write "</font><br>"
response.write "<input name=" & dt & " size=5 maxlength=30>"
'... et on n'oublie pas de clôturer la case
response.write "</td>"
'si on vient d'afficher la case correspondant au mois de décembre d'une année, on part sur une
'nouvelle ligne du tableau
if Month(DateK) = 12 then
response.write "</tr><tr>"
end if
'enfin, on incrémente les compteurs dateK (d'un mois) et i (d'une unité)
dateK = DateAdd("m", 1, dateK)
i = i + 1
loop
%>
</tr> |
Partager