Forum de discussion
Forum « Programmation ASP » (archives)
Comment je peux extraire (et convertir) le format d’une date (AAAA/MM) en (mois/AAAA)
Envoyé: 18 juillet 2006, 11h19 par edgargalan
J’ai fait le curseur pour la requête et puis un variable pour afficher seulement le mois et l’année (category = ""last_category = "fake")
Lors d’affichage, je groupe aussi tous les mêmes mois pour avoir un affichage comme celui –ci
7/2006
8/2006
10/2006
12/2006…
Comment je peux convertit les chiffres (qui représentent le mois) par le mot exemple :
Juillet/2006
Aout/2006
Octobre/2006…
Voici une partie de mon code
(…)
<%
If strTheme <> "" then
strSQL = "SELECT *" _
& "FROM EVENEMENTS "
strSQL = "SELECT * FROM Evenements where Theme = '" & strTheme & "'"
set curseur = Server.CreateObject("ADODB.recordset")
curseur.activeconnection=objConn2
curseur.open strSQL
response.write ("<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"">")
category = ""
last_category = "fake"
' pour afficher le premier mois
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
if curseur.eof then
%><tr><td colspan="6" class="arial_12_noir">Aucun événement correspondant à vos critères</td></tr>
<%
else
do while not curseur.eof
category=month(curseur("DateDebut")) & "/" & year(curseur("DateDebut"))
' pour l'afficher les categorys En groupant les mêmes mois
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
%>
<%if last_category <> category then%>
<tr><td colspan="6" class="verdana_12"><font color="#8F9FAF"><strong><%=category%><strong></td></tr>
<%end if%>
<tr>
<td width="5%" rowspan="2" valign="top"> </td>
<td width="15%" rowspan="2" valign="top" class="arial_10"><%=curseur("dateDebut")%><br >
<%=curseur("datefin")%></td>
<td colspan="2" valign="top" class="arial_12_noir"><%=curseur("EVENEMENT")%></td>
<td width="16%" valign="top" class="arial_10"><%=curseur("PARTICIPATION")%></td>
<td width="14%" valign="top" class="arial_11"><%=curseur("REGION")%></td>
</tr>
<%
last_category=category
curseur.movenext
loop
response.write ("</table>")
end if
objConn2.Close
Set objConn2 = Nothing
%>
(…)