Retornar Nº De 1 A 365 (ou 366) P/ Cada Dia Do Ano

[JurisCode]

Gostaria de uma funçãozinha que retornasse um valor numérico para cada dia do ano (de 1 a 365 ou 366) e depois fazer uma série de if para espaço determinado de valores:

Alg pode transcrever essas idéias abaixo para uma linguagem em asp?

Eu tentei, mas não tenho um conhecimento em linguagem propriamente, mas sei apenas a lógica da coisa

nome_funcao = dia de hoje menos o dia 31/12 do ano passado (isso de uma forma que force retornar um nº inteiro entre 1 e 365 ou 366)

if nome_funcao >0 AND <= 15
THEN
RESPONSE.WRITE "a mensagem para os 15 primeiros dias do mês de janeiro"
if nome_funcao >15 AND <= 31
then
response.write "mensagem para os 15 últmos dias de janeiro"
if nome_funcao >31 AND <=45
then
response.write "mensagem para os 15 primeiros dias de fevereiro"
if nome_funcao >45 AND <=90
then
response.write "mensagem para o final de fevereiro e mês de março"
(...)

como vocês podem ver, eu quero fazer algo bem aleatório, alguns duram poucos dias, outros duram várias semanas e outro mais de um mês, isso para que as atualizações coincidam com as datas comemorativas.

algm pode me ajudar nesse sentido? Seria um esqueminha interessante para mensagens de acordo com a época do ano e meu site, o ditados, precisa disso, porque fica meio difícil eu atualizar sempre nas mesmas épocas, e eu nemt enho acesso FTP, preciso mandar as atualizações por MSN para o webmaster do Cifras, daí ele upa com o login do cifras... Daí no mês de maio eu coloco uma chamadinha para o dia das mães e uma pro mês das noivas, depois do dia 15 de maio, eu já coloco uma pro dia dos namorados, e continuo com a outra do mês das noivas... Quero fazer tres funçõezinahs dessa na página inicial, uma para o texto de cima, uma para o texto de baixo e uma para atualizar a imagem da página inicial...

Algm pode me ajudar?

Obrigado, antecipadamente

[bareta]

DateDiff ( )

devolve um numero de intervalo entre duas datas.
DiffADate = "A partir de hoje : " & DateDiff("d", Now, "10-12-2002") 
As diferenças possiveis a fazer estão restritas pelas seguintes hipóteses :
yyyy -> Ano
que -> Quarto
m -> Mês 
y -> Dia do Ano 
d -> Dia 
w -> Dia da semana 
ww -> Semana do ano
h -> Hora
n -> Minuto
s -> Segundo

[Principe]

Do jeito que você quer fazer, acho mais fácil armazenar as datas comemorativas num banco de dados e buscar pela data atual alguma comemoração, pode por um campo dizendo quanto tempo fica a msg, etc...

Ou armazenar em um arquivo texto mesmo(o que exige maior conhecimento).

Porque se fizer IF's,... meu Deus... pense bem... quantas datas comemorativas existem!?!? vai ter que criar uma página só com os IF's, com umas mil linhas.. vai dar até cãimbra nos dedos heheehehe

Mas se você realmente quer fazer com IF's, pode usar a função que o Bareta mencionou, Datediff.

Seria algo assim:

function DiasDesseAno()
  DiasDesseAno=DateDiff("d",CDate("01/01/"&Year(Date)),Date)
End Function
Dim DiaDoAno
DiaDoAno=DiasDesseAno()
If DiaDoAno > 0 and DiaDoAno < 15 Then 'aí começa os ifs

Recomendo(extremamente) armazenar o resultado da função numa variável pra evitar de fazer o cálculo em todos os IF's, já que não vão ser poucos. Use uma vez só a função e depois puxa sempre o resulado da memória(variável) , fica mais rápido e estável ;)

[JurisCode]

são datas comemorativas de interesse do site...

não temos frases para tudo, peguei 25 datas de maior relevância

ano novo, fim de ano, natal, carnaval, dia das mãe3s, dia dos pais, mês das noivas, dia da bíblia, dia do escritor, da mulher, da juventude, das crianças... mais uns aí, mas peguei apenas 25.

[Principe]

Então usa essa função que passei ali:

function DiasDesseAno()
  DiasDesseAno=DateDiff("d",CDate("01/01/"&Year(Date)),Date)
End Function
Dim DiaDoAno
DiaDoAno=DiasDesseAno()
If DiaDoAno > 0 and DiaDoAno < 15 Then Response.Write("Feliz ano novo")
If DiaDoAno > 60 and DiaDoAno < 85 Then Response.Write("Prepare-se para a páscoa")
If DiaDoAno > .... e por aí vai

Se preferir, mude o nome da função e da variável, só mantenha a estrutura ;)

[JurisCode]

melhor fechar o end if a cada mensagem senão fica aquela montueira de endi ef tudo junto...

[bareta]

if na mesma linha não precisa de end if

If DiaDoAno > 0 and DiaDoAno < 15 Then Response.Write("Feliz ano novo")

[Principe]

uahauhauhauhuauaha

desculpa...

é assim

veja

No asp, se você digita tudo numa linha, não precisa colocar End If

por exemplo:

<%

If Forum="ASP" Then Response.Write("Você está no Forum de ASP")

%>

Está totalmente correto.

Ou Então:

<%

If Forum="ASP" Then Response.Write("Você está no Forum de ASP") Else Response.Write("Você não está em ASP!")

%>

Também é corretíssimo.

Porém nada impede de você colocar End IF no final, muda absolutamente nada:

<%

If Forum="ASP" Then Response.Write("Você está no Forum de ASP") End If

%>

Abraço ;)

Bons estudos

[[ GuTo ]]

Procurem sobre (afim de conhecimento):

- data juliana Google: Resultado da pesquisa...

- ano bissexto Google: Resultado da pesquisa...

Funções em ASP que irão ajudar:

- datediff

- dateadd

no primeiro argumento, usar o "y" pode ser interessante para você (retorno o dia do ano).

é só usar a criatividade agora. ;)