Usuário com melhor resposta
dias do mes corrente no <select></select> de um form dinamicamente no formato dd/mm/aaaa. Como?

Pergunta
-
Pessoal, como eu faço com que os dias do mês corrente sejam exibidos em <select></select> de um form dinamicamente nesse formato dd/mm/aaaa.
exemplo: mês de abril que sejam exibidos somente os dias referentes ao mes de abril e assim por diante (de segunda-feira a sexta-feira) os dias referentes aos sabados e domingos não serao exibidos .como fazer isso com asp?
desde já agradeço a atenção e ajuda de todos.
ANDRÉ GUSTAVO
Respostas
-
Segue um exemplo de como pegar as datas, é só você colocar para gera o select.
<%
dim mes : mes = 2
dim ano : ano = year(Date())
dim dinicial : dinicial = 1
dim dfinal
Select Case mes
case 1,3,5,7,8,10,12
dfinal = 31
case 4,6,9,11
dfinal = 30
case 2
if ((ano mod 2) = 0) Then
dfinal = 29
else
dfinal = 28
End if
end select
while (dinicial <= dfinal)
dim data : data = dinicial & "/" & mes & "/" & ano
dim d : d = CDate(data)
if ( WeekDay(d) <> 7 and WeekDay(d) <> 1) Then
Response.Write("Data: " & data & " Dia: " & WeekDayName(WeekDay(d)) & "<br />")
End if
dinicial = dinicial + 1
wend
%>
Abraço
Estevam
**** Se a reposta foi útil, então não esqueça de marca-lá. ***- Marcado como Resposta ANDRE.GUSTAVO quarta-feira, 8 de abril de 2009 02:58
- Não Marcado como Resposta ANDRE.GUSTAVO quarta-feira, 8 de abril de 2009 02:59
- Marcado como Resposta ANDRE.GUSTAVO quarta-feira, 8 de abril de 2009 03:00
Todas as Respostas
-
Segue um exemplo de como pegar as datas, é só você colocar para gera o select.
<%
dim mes : mes = 2
dim ano : ano = year(Date())
dim dinicial : dinicial = 1
dim dfinal
Select Case mes
case 1,3,5,7,8,10,12
dfinal = 31
case 4,6,9,11
dfinal = 30
case 2
if ((ano mod 2) = 0) Then
dfinal = 29
else
dfinal = 28
End if
end select
while (dinicial <= dfinal)
dim data : data = dinicial & "/" & mes & "/" & ano
dim d : d = CDate(data)
if ( WeekDay(d) <> 7 and WeekDay(d) <> 1) Then
Response.Write("Data: " & data & " Dia: " & WeekDayName(WeekDay(d)) & "<br />")
End if
dinicial = dinicial + 1
wend
%>
Abraço
Estevam
**** Se a reposta foi útil, então não esqueça de marca-lá. ***- Marcado como Resposta ANDRE.GUSTAVO quarta-feira, 8 de abril de 2009 02:58
- Não Marcado como Resposta ANDRE.GUSTAVO quarta-feira, 8 de abril de 2009 02:59
- Marcado como Resposta ANDRE.GUSTAVO quarta-feira, 8 de abril de 2009 03:00
-