Repedir dias do Mês para folha ponto

[Libos 0]

Olá gente boa.Estou querendo repetir os dias do mes junto com o dia referente da semana um abaixo do outro para confecção de folha ponto.Alguém pode me ajudar?como saber por exemplo que julho/2004 tem 31 dias e que seu primeiro dia foi em uma quinta-feira e a partir dai criar uma tabela para assinatura de folha ponto.Agradeço qualquer dicaAbraçosLibos

[Salgado 4]

Não sou muito Fã de passar códigos prontos, mas fiquei curioso e fui tentar algo, saiu isso:

Function ListarDias(Mes, Ano)

Data = CDate("01/"& Mes &"/"& Ano)

Proximo = Mes

While Mes = Proximo

ListarDias = ListarDias & Day(Data) &" - "& WeekDayName(WeekDay(Data)) &"<BR>"

Data = DateAdd("d", 1, Data)

Proximo = Month(Data)

Wend

End Function

[/tr]

Para usar você chama a função passando o Mês e o Ano como parâmetros, assim:

Response.Write(ListarDias(7, 2004))[/tr]

[Libos 0]

Não sou muito Fã de passar códigos prontos, mas fiquei curioso e fui tentar algo, saiu isso:

ASP [/tr][tr]Function ListarDias(Mes, Ano)

Data = CDate("01/"& Mes &"/"& Ano)

Proximo = Mes

While Mes = Proximo

ListarDias = ListarDias & Day(Data) &" - "& WeekDayName(WeekDay(Data)) &"<BR>"

Data = DateAdd("d", 1, Data)

Proximo = Month(Data)

Wend

End Function

[/tr]

Para usar você chama a função passando o Mês e o Ano como parâmetros, assim:

ASP [/tr][tr]Response.Write(ListarDias(7, 2004))[/tr]

Valeu Salgado!

Mandou bem.

Fiz algumas alterações com relação ao layout - ficou 10

 

ASP [/tr][tr]<%

response.write"<table width=100% border=1 bordercolor=#333333 cellpadding=3 cellspacing=>"

response.write"<tr ><td rowspan=2>Dia da Semana</td><td colspan=2>1º Turno<td colspan=2>2º Turno</td><td rowspan=2>Rubrica</td>"

response.write"<tr><td>Chegada</td><td>Saida</td><td>Chegada</td><td>Saida</td>"

Function ListarDias(Mes, Ano)

Data = CDate("01/"& Mes &"/"& Ano)

Proximo = Mes

While Mes = Proximo

ListarDias = ListarDias &" <tr><td>"& Day(Data) &" - "& WeekDayName(WeekDay(Data)) &"<td><font color=ffffff>__________</font></td><td><font color=ffffff>__________</font></td><td><font color=ffffff>__________</font></td><td><font color=ffffff>__________</font></td><td><font color=ffffff>__________</font></td></tr>"

Data = DateAdd("d", 1, Data)

Proximo = Month(Data)

Wend

End Function

 

%>

<%

Response.Write(ListarDias(month(now()), year(now())))

%>

[/tr]

 

que Deus te abençõe Salgado.

visite www.ejesus.com.br

 

Abraços

 

Libos

[edsunpaul 0]

<%datain=("05/06/2007")Anoi=year(datain)Mesi=month(datain)Diai=day(datain)datat=("10/06/2007")Anot=year(dataout)Mest=month(dataout)Diat=day(dataout)Data = CDate(""& Diai &"/"& Mesi &"/"& Anoi)Proximo = MestWhile Mest = datatListarDias = ListarDias & Day(Data) &" - "& WeekDayName(WeekDay(Data)) &"<BR>"Data = DateAdd("d", 1, Data)datat = Month(Mest)Wend%><%=ListarDias%>

 

Não estou conseguindo selecionar entre datas especifica.

Consigo dar o início, mas não o final do dia que quero.

 

Alguem tem alguma ideia.

 

Muito obrigado.

[edsunpaul 0]

Modifiquei o código, mas mesmo assim não funciona.

Alquem poderia me ajudar?

 

 

<%'DATA INICIODia = ("10")Mes = ("06")Ano = ("2007")'DATA FINALdatafinal = ("20/06/2007")Data = CDate(Dia &"/"& Mes &"/"& Ano)Proximo = datafinalWhile datafinal = ProximoListarDias = ListarDias & Day(Data) &" - "& WeekDayName(WeekDay(Data)) &"<BR>"Data = DateAdd("d", 1, Data)Proximo = dataWend%><%=ListarDias%>

[edsunpaul 0]

Alguém tem alguma ideía para eu ir atras da resposta?Ainda não encontrei nada.Valeu

[edsunpaul 0]

Consegui se algum dia alguem precisar...<% datai = cdate("15/6/2007")dataf = cdate("20/6/2007")while datai <= dataf%><%=datai%><BR> <%datai = DateAdd("d", 1, datai) 'datai=datai + 1 wend %><BR><BR><hr color="#000000"><%=datai%>