Mostrar datas de acordo com o servidor, dinamicamente

[Jow Xavier 0]

Bom dia, tenho o seguinte SCRIPT

<table width="100%" border="0">
  <tr>
	<td>Segunda Feira <%response.write(date())%></td>
	<td>Terça Feira <%response.write(date())%></td>
	<td>Quarta Feira <%response.write(date())%></td>
	<td>Quinta Feira <%response.write(date())%></td>
	<td>Sexta Feira <%response.write(date())%></td>
	</tr>

Mas está exibindo sempre a mesma data, gostaria q exibisse a data do mês de acordo com o dia, keria q exibisse assim

<table width="100%" border="0">
  <tr>
	<td>Segunda Feira <%response.write(date()-1)%></td>
	<td>Terça Feira <%response.write(date())%></td>
	<td>Quarta Feira <%response.write(date()+1)%></td>
	<td>Quinta Feira <%response.write(date()+2)%></td>
	<td>Sexta Feira <%response.write(date()+3)%></td>
	</tr>

Mas isso dinamicamente de acordo com o servidor, como faço isso ???

[Mário Monteiro 179]

nao entendi direito

 

mas creio que para fucnionar a sua logica ai precisa primeiro saber qual é o dia da semana atual

 

para ai sim construir as demias informações

 

do jeito que está nunca vai funcionar direito

[Jow Xavier 0]

Perfeito concordo com você, olha só eu pego a data atual e armazeno em uma variável, por exemplo

<% option Explicit 
Dim dataAtual
dataAtual=date()
%>

agora eu tenho e a data atual, como eu faço para exibir de segunda a sexta as suas datas correspondentes ...

 

Segunda 21/04/2008 terça 22/04/2008 quarta 23/04/2008 quinta 24/04/2008 sexta 25/04/2008

 

???

[Mário Monteiro 179]

Deixa eu fazer um rascunho aqui

[Mário Monteiro 179]

Ta isso é so para voce ter uma ideia

 

Tente enxugar o codigo agora

 

Select Case Weekday(Date)
Case 1
Response.Write("Domingo - " & Date)
Response.Write("Segunda - " & Date + 1)
Response.Write("Terça - " & Date + 2)
Response.Write("Quarta - " & Date + 3)
Response.Write("Quinta - " & Date + 4)
Response.Write("Sexta - " & Date + 5)
Response.Write("Sabado - " & Date + 6)
Case 2
Response.Write("Domingo - " & Date - 1)
Response.Write("Segunda - " & Date)
Response.Write("Terça - " & Date + 1)
Response.Write("Quarta - " & Date + 2)
Response.Write("Quinta - " & Date + 3)
Response.Write("Sexta - " & Date + 4)
Response.Write("Sabado - " & Date + 5)
Case 3
Response.Write("Domingo - " & Date - 2)
Response.Write("Segunda - " & Date - 1)
Response.Write("Terça - " & Date)
Response.Write("Quarta - " & Date + 1)
Response.Write("Quinta - " & Date + 2)
Response.Write("Sexta - " & Date + 3)
Response.Write("Sabado - " & Date + 4)
Case 4
Response.Write("Domingo - " & Date - 3)
Response.Write("Segunda - " & Date - 2)
Response.Write("Terça - " & Date - 1)
Response.Write("Quarta - " & Date)
Response.Write("Quinta - " & Date + 1)
Response.Write("Sexta - " & Date + 2)
Response.Write("Sabado - " & Date + 3)
Case 5
Response.Write("Domingo - " & Date - 4)
Response.Write("Segunda - " & Date - 3)
Response.Write("Terça - " & Date - 2)
Response.Write("Quarta - " & Date - 1)
Response.Write("Quinta - " & Date)
Response.Write("Sexta - " & Date + 1)
Response.Write("Sabado - " & Date + 2)
Case 6
Response.Write("Domingo - " & Date - 5)
Response.Write("Segunda - " & Date - 4)
Response.Write("Terça - " & Date - 3)
Response.Write("Quarta - " & Date - 2)
Response.Write("Quinta - " & Date - 1)
Response.Write("Sexta - " & Date)
Response.Write("Sabado - " & Date + 1)
Case 7
Response.Write("Domingo - " & Date - 6)
Response.Write("Segunda - " & Date - 5)
Response.Write("Terça - " & Date - 4)
Response.Write("Quarta - " & Date - 3)
Response.Write("Quinta - " & Date - 2)
Response.Write("Sexta - " & Date - 1)
Response.Write("Sabado - " & Date)
End Select

[Mário Monteiro 179]

Consegui enxugar um pouco o codigo

 

veja agora

For I = (-1 * (Weekday(Date))) + 1 To (-1 * (Weekday(Date))) + 7
Response.Write(WeekdayName(Weekday(Date + I)) & " - " & Date + I)
Next

[Jow Xavier 0]

Eu preciso fazer exibir de segunda a sexta, eu fiz em cima do seu primeiro código:

<% Select Case Weekday(Date)
Case 1
Response.Write("Segunda - " & Date + 1)
Response.Write("Terça - " & Date + 2)
Response.Write("Quarta - " & Date + 3)
Response.Write("Quinta - " & Date + 4)
Response.Write("Sexta - " & Date + 5)

Case 2
Response.Write("Segunda - " & Date)
Response.Write("Terça - " & Date + 1)
Response.Write("Quarta - " & Date + 2)
Response.Write("Quinta - " & Date + 3)
Response.Write("Sexta - " & Date + 4)

Case 3
Response.Write("Segunda - " & Date - 1)
Response.Write("Terça - " & Date)
Response.Write("Quarta - " & Date + 1)
Response.Write("Quinta - " & Date + 2)
Response.Write("Sexta - " & Date + 3)

Case 4
Response.Write("Segunda - " & Date - 2)
Response.Write("Terça - " & Date - 1)
Response.Write("Quarta - " & Date)
Response.Write("Quinta - " & Date + 1)
Response.Write("Sexta - " & Date + 2)

Case 5
Response.Write("Segunda - " & Date - 3)
Response.Write("Terça - " & Date - 2)
Response.Write("Quarta - " & Date - 1)
Response.Write("Quinta - " & Date)
Response.Write("Sexta - " & Date + 1)


End Select

%>

agora tá exibindo de segunda a sexta, mas perciso jogar em uma tabela nessa estrutura

<table>
<tr>
<td></td>
</tr>
</table>

[hargon 64]

Consegui enxugar um pouco o codigo

 

veja agora

For I = (-1 * (Weekday(Date))) + 1 To (-1 * (Weekday(Date))) + 7
Response.Write(WeekdayName(Weekday(Date + I)) & " - " & Date + I)
Next

Conseguiu enxugar um pouco? :blink:

[Jow Xavier 0]

opá valeu mesmo ... consegui resolver já !!!

[Mário Monteiro 179]

Consegui enxugar um pouco o codigo

 

veja agora

For I = (-1 * (Weekday(Date))) + 1 To (-1 * (Weekday(Date))) + 7
Response.Write(WeekdayName(Weekday(Date + I)) & " - " & Date + I)
Next

Conseguiu enxugar um pouco? :blink:

 

Um pouquinho só mas já ajudou né?

 

http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

 

opá valeu mesmo ... consegui resolver já !!!

Que bom qeu resolveu

 

Abraços