Select automatico cada nuevo mes...

[neodani]

Buenas,

Sabéis como puedo hacer un select tipo:

<select name="fecha">
<option>Enero 2009</option>
<option>Febrero 2009</option>
...
...
<option>Enero 2010</option>
</select>

Y que cada vez que se empiece un nuevo mes aparezca en el desplegable de forma automática?

Muchas gracias de antemano!

[Myakire]

Cada vez que empiece en nuevo mes?

O sea que quieres el combo ahorita solo con Enero 2010 y el próximo mes con Febrero 2010?

Si es así sería con un while:

Código:

MesInicial = 1
While MesInicial <= Month(Date)
   %>
   <option><%=VectorConNombresDeLosMeses(i) & " " & Year(Date)%>
   <%
Wend

No estoy seguro si la función MonthName te regresa el nombre del mes siempre en inglés o depende del idioma del Servidor, cosa de probar.

Saludos!

[neodani]

Iniciado por Myakire

Cada vez que empiece en nuevo mes?

O sea que quieres el combo ahorita solo con Enero 2010 y el próximo mes con Febrero 2010?

Si es así sería con un while:

Código:

MesInicial = 1
While MesInicial <= Month(Date)
   %>
   <option><%=VectorConNombresDeLosMeses(i) & " " & Year(Date)%>
   <%
Wend

No estoy seguro si la función MonthName te regresa el nombre del mes siempre en inglés o depende del idioma del Servidor, cosa de probar.

Saludos!

He probado esto sin éxito... dentro del desplegable no escribe nada

Código ASP:

<select name="periodo">
<%
Dim NombreMeses(11)
NombreMeses=['Enero','Febrero','Marzo','Abril','Mayo','Junio','Julio','Agosto','Setiembre','Octubre','Noviembre','Diciembre']
MesInicial = 1
While MesInicial <= Month(Date())
   %>
   <option><%=NombreMeses(i) & " " & Year(Date()) %>
   <%
Wend
%>
</select>
 

¿Alguien sabe por qué?

Si sirve de algo el código fuente una vez ejecuto la web es el siguiente

Código HTML:

<select name="periodo">
 <font face="Arial" size=2>
<p>Microsoft VBScript runtime </font> <font face="Arial" size=2>error '800a000d'</font>
<p>
<font face="Arial" size=2>Type mismatch</font>
<p>
<font face="Arial" size=2>/reportes/select.asp</font><font face="Arial" size=2>, line 66</font>
 

Muchas gracias de antemano!

[Myakire]

Solo tenias que incrementar el contador, si no no se sale del ciclo. Por cierto, efectivamente MonthName te da el nombre del mes según el idioma del server.

Código ASP:

<select name="periodo">
<%
MesInicial = 1
While MesInicial <= Month(Date())
   %>
   <option><%=MonthName(MesInicial) & " " & Year(Date()) %>
   <%
     MesInicial = MesInicial + 1
Wend
%>
</select>
 

[neodani]

Iniciado por Myakire

Solo tenias que incrementar el contador, si no no se sale del ciclo. Por cierto, efectivamente MonthName te da el nombre del mes según el idioma del server.

Código ASP:

<select name="periodo">
<%
MesInicial = 1
While MesInicial <= Month(Date())
   %>
   <option><%=MonthName(MesInicial) & " " & Year(Date()) %>
   <%
     MesInicial = MesInicial + 1
Wend
%>
</select>
 

Muchas gracias Myakire, ahora si que muestra el mes y el año hasta el mes actual, con el formato "enero 2010"

Empieza en enero de 2010. ¿Cómo puedo hacerlo para indicarle que quiero que empiece desde un determinado mes?
Por ejemplo desde Agosto de 2009?

Debería indicarle en el while MesInicial, la fecha de agosto de 2009... pero la pongo completa? solo el mes?
Si pongo solo el mes... agosto es el mes 8, por lo que el bucle no entraría...

Podéis echarme una mano?

Muchas gracias de antemano!

[Myakire]

Eso no tiene mucha ciencia, solo debes de además de tener un contador para el mes, tener otro para el año iniciado en 2009, cuando el contador del mes (iniciado en 8) sea mayor a 12, lo colocas de nuevo a 1 e incrementas el del año.

Trata de hacerlo

Saludos

[neodani]

Iniciado por Myakire

Eso no tiene mucha ciencia, solo debes de además de tener un contador para el mes, tener otro para el año iniciado en 2009, cuando el contador del mes (iniciado en 8) sea mayor a 12, lo colocas de nuevo a 1 e incrementas el del año.

Trata de hacerlo

Saludos

Lo he logrado así... no se si la forma más eficiente posible

Código ASP:

<select name="periodo">
<% 'MESES -------------------------------
MesInicial = 8 'Le definimos desde que mes del año pasado tiene que mostrar estadisticas (8 = Agosto)
While MesInicial <= 12
%>
    <option><%=MonthName(MesInicial) & " " & Year(Date())-1 %>
<%
MesInicial = MesInicial + 1
Wend
 
MesInicial = 1
While MesInicial <= Month(Date())
%>
    <option><%=MonthName(MesInicial) & " " & Year(Date()) %>
<%
MesInicial = MesInicial + 1
Wend
%>
</select>
 

Gracias de antemano!

[Myakire]

Código ASP:

<select name="periodo">
<%
MesInicial  = 8
AnioInicial = 2009
While (MesInicial <= Month(Date())) OR AnioInicial < Year(Date)
   %>
   <option><%=MonthName(MesInicial) & " " & AnioInicial %>
   <%
     MesInicial = MesInicial + 1
     If MesInicial > 12 Then 
        MesInicial = 1
            AnioInicial = AnioInicial + 1 
     End if
Wend
%>
</select>
 

[neodani]

Iniciado por Myakire

Código ASP:

<select name="periodo">
<%
MesInicial  = 8
AnioInicial = 2009
While (MesInicial <= Month(Date())) OR AnioInicial < Year(Date)
   %>
   <option><%=MonthName(MesInicial) & " " & AnioInicial %>
   <%
     MesInicial = MesInicial + 1
     If MesInicial > 12 Then 
        MesInicial = 1
            AnioInicial = AnioInicial + 1 
     End if
Wend
%>
</select>
 

Wooww mucho mejor así donde va a parar!!

Muchas gracias maestro :)