none
dias do mes corrente no <select></select> de um form dinamicamente no formato dd/mm/aaaa. Como? RRS feed

  • 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 .

    agendamento2.jpg

    como fazer isso com asp?
    desde já agradeço a atenção e ajuda de todos.


    ANDRÉ GUSTAVO
    domingo, 5 de abril de 2009 04:14

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
    terça-feira, 7 de abril de 2009 13:55

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
    terça-feira, 7 de abril de 2009 13:55
  • Olá Luiz Estevam, cara, valeu mesmo pela ajuda, exatamente isso que eu precisava
    so tive que fazer uma alteração na varialvel que recebe o mes, ela estava passando o mes 2 (fevereiro).
    ta funcionando blz.
    Até+ Luiz.
    Sucesso!!!


    ANDRÉ GUSTAVO
    quarta-feira, 8 de abril de 2009 02:59