Afficher 3 listes déroulantes en fonction de la date du jour

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 606 fois - Téléchargée 29 fois

Contenu du snippet

Une petite fonction bien utile lors de la création de formulaires d'enregistrement. Elle vous permettra de créer directement les listes déroulantes pour une date.
Je l'utilise beaucoup alors je suppose que d'autres en auront l'utilité ...

Source / Exemple :


<%
'définition de la date du jour (serveur)

dim sDateyear,sDateMois,sDateDay
   
    sDateYear = year(date())
    sDateMois = month(date())
    sDateDay = day(date())

sub DisplayDay(sPrefixe, sDay)
	dim i, lDay
	if sDay = "" then
	  lDay = 1
	else
	  lDay = clng(sDay)
	end if
	for i = 1 to 31
    Response.Write "<option id=""" & sPrefixe & "day" & i & """ name=""" & sPrefixe & "day" & i & """ value=""" & i & """"
    if lDay = i then
      Response.Write " selected"
    end if
    Response.Write ">" & i
  next
end sub
sub DisplayMonth(sPrefixe, sMonth)
	dim i, lMonth
	if sMonth = "" then
	  lMonth = 1
	else
  	lMonth = clng(sMonth)
	end if
	for i = 1 to 12
    Response.Write "<option id=""" & sPrefixe & "month" & i & """ name=""" & sPrefixe & "month" & i & """ value=""" & i & """"
    if lMonth = i then
      Response.Write " selected"
    end if
    Response.Write ">" & i
  next
end sub
sub DisplayYear(sPrefixe, sYear)
	dim i, lYear, lSelectedYear
	lYear = year(now)
	if sYear = "" then
	  lSelectedYear = lYear
	else
	  lSelectedYear = clng(sYear)
	end if
	for i = 0 to 4
    Response.Write "<option id=""" & sPrefixe & "month" & i & """ name=""" & sPrefixe & "month" & i & """ value=""" & lYear + i & """"
    if lSelectedYear = lYear + i then
      Response.Write " selected"
    end if
    Response.Write ">" & lYear + i
  next
end sub
%>

<html>
<body>
<!--votre formulaire
la première partie de l appel de la fonction est le préfixe, à vous de choisir
-->

<select name="jour" id="jour">
         <%DisplayDay "jour", sDateDay%>
</select>
<select name="mois" id="mois">
          <%DisplayMonth "mois", sDateMois%>
 </select>
<select name="annee" id="annee">
          <%DisplayYear "annee", sDateYear%>
</select>

<!--fin de votre formulaire-->
</body>
</html>

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de divil

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.