|
ASP / Affichage de la date en
français
Ce script affiche
la date en français.
<% @ LANGUAGE="VBSCRIPT" %>
<% Response.Buffer = True %>
<%JourChiffre=day(now)
Mois=Month(now)
NbJour=Weekday(now)
Annee=Year(now)
Select Case Mois
Case 1
MoisTexte = "Janvier"
Case 2
MoisTexte = "Février"
Case 3
MoisTexte = "Mars"
Case 4
MoisTexte = "Avril"
Case 5
MoisTexte = "Mai"
Case 6
MoisTexte = "Juin"
Case 7
MoisTexte = "Juillet"
Case 8
MoisTexte = "Août"
Case 9
MoisTexte = "Septembre"
Case 10
MoisTexte = "Octobre"
Case 11
MoisTexte = "Novembre"
Case 12
MoisTexte = "Décembre"
End Select
Select Case NbJour
Case 1
JourTexte = "Dimanche"
Case 2
JourTexte = "Lundi"
Case 3
JourTexte = "Mardi"
Case 4
JourTexte = "Mercredi"
Case 5
JourTexte = "Jeudi"
Case 6
JourTexte = "Vendredi"
Case 7
JourTexte = "Samedi"
End Select
%>
<HTML>
<BODY>
<%=JourTexte%> <%=JourChiffre%> <%=MoisTexte%> <%=Annee%>
</BODY>
</HTML>
|
